Gruppen aus Domino Directory exportieren

[chris2212]

Hallo,

mit folgendem Agent muss ich selektierte Gruppen aus dem Domino
Directory in eine Textdate exportieren.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim col As  NotesDocumentCollection
Dim doc As NotesDocument
Dim fileName As String
   
Set db = session.CurrentDatabase
Set col = db.UnprocessedDocuments
Set doc = col.GetFirstDocument()
   
fileName = Inputbox ("Bitte Laufwerk und Dateinamen eingeben: z.B. C:\Kontakt.txt ")
   
Open fileName For Output As #1
While Not(doc Is Nothing)
Write #1, doc.ListName(0)
Set doc = col.GetNextDocument(doc)
Wend
Close #1

Funktioniert "eigentlich" auch, aber da man bei Gruppen mehrere Namen eingeben kann z.B. AAW; : Serial hätte ich diese auch gerne in meine Textdatei.
Ich bekomme aber "nur" den ersten Namen z.B. AAW beim Export.

Wie bekomme ich meinen Agent dazu mir alle Namen einer Gruppe zu exportieren?


Für jede Unterstützung dankbar !

Danke & Gruß
Chris

[klaussal]

... sieh dir mal in der hilfe den punkt "Forall" an....

[chris2212]

Hallo Klauss,

eigentlich hätte ich es beim schreiben bereits bemerken muessen  

Dim session As New NotesSession
Dim db As NotesDatabase
Dim col As  NotesDocumentCollection
Dim doc As NotesDocument
Dim fileName As String
   
Set db = session.CurrentDatabase
Set col = db.UnprocessedDocuments
Set doc = col.GetFirstDocument()
   
fileName = Inputbox ("Bitte Laufwerk und Dateinamen eingeben: z.B. C:\Kontakt.txt ")
   
Open fileName For Output As #1
While Not(doc Is Nothing)
Forall a In doc.ListName
Write #1, a
End Forall      
Set doc = col.GetNextDocument(doc)
Wend
Close #1

Ich weis erst denken dann schreiben...  

Sorry & Gruß
Chris

[klaussal]

... macht ja nix,passiert mir auch ....

schön, dass du das beispiel reingehängt hast !