Domino 9 und frühere Versionen > Entwicklung

Name in die Gruppe hinzufügen

<< < (3/7) > >>

Selin:
Hallo,

ja, da hab ich doc.Mailing draus gemacht
aber das geht auch nicht

koehlerbv:
"Denken" hatte ich gesagt: Was soll denn dort für ein Wert gespeichert sein ?

Bernhard

Selin:
na der Wert aus dem Listfeld bzw. die Werte. (ist ja ein Mehrfachauswahlfeld)

koehlerbv:
Und warum sollte das in dem Feld des Dokumentes stehen, das Du gerade erst suchst ?

Es lohnt auch ein Blick in die DesignerHelp, denn GetDocumentByKey erwartet einen String als Kriterium und liefert dann auch nur ein Dokument zurück.

Bernhard

Axel:
Hi,

ich versuch dir mal ein bisschen auf die Sprünge zu helfen.

Wie bernhard schon gesagt hat, kannst du nicht ein Feld eines Dokumentes, dass du erst suchen willst, als Parameter für die Suche hernemen.


Ich gehen mal davon aus (ein bisschen Kaffeesatzleserei), dass du den Code in eine Aktion des Adressdokumentes einbauen willst und die entsprechenden Gruppendokumente innerhalb des Domino Verzeichnisses bearbeiten willst.

Dann muss das Ganze so aussehen:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim docGroup As NotesDocument
   Dim item As NotesItem
   Dim books As Variant
   Dim done As Integer
   Dim idx As Integer

   'Zugriff auf das aktuell geöffnete Dokument
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document

   'Suchen des öffentlichen Adressbuches und Zugriff auf die entspr. Ansicht   
   done = False
   books = session.AddressBooks
   Forall b In books
       If (b.IsPublicAddressBook) And (Not done)Then
   Call b.Open( "", "" )
   Set view = b.GetView("(Gruppe)")
   done = True
       End If
   End Forall
   
'Bearbeiten aller markierten Einträge im Listenfeld
   For idx = 0 to UBound(doc.Mailing)
     Set docGroup = view.GetDocumentByKey("ABC_" & doc.Mailing(idx), True)
   
     Set item = docGroup.GetFirstItem( "Members" )
     Call item.AppendToTextList( doc.Mailing(idx))
     Call docGroup.Save(True, False)
   Next   
End Sub

Ich hab den Code nicht getestet und auf Fehlerabfragen hab ich auch verzichtet.

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete