Hallo zusammen,
irgendwie steht ich auf dem Schlauch ..
Per Script/Schleife sollen aus den Arbeitsumgebungen 3 bestimmte Dokumente gelöscht werden.
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As New NotesDatabase( "", "" )
Dim view As NotesView
Dim doc1 As NotesDocument
Dim doc2 As NotesDocument
Call db.Open( "", "names.nsf" )
Set view = db.Getview("Locations")
Dim col As NotesDocumentCollection
Set col = view.getAllDocumentsByKey("Zuhause (Netzwerkeinwahl)", False)
'Set col = db.AllDocuments
Set doc1 = col.getfirstdocument
Do Until (doc1 Is Nothing)
'...Do Something to doc1...
Set doc2 = col.getnextdocument(doc1)
Call doc1.remove(True)
Set doc1 = doc2
Loop
End Sub
So wird aber natürlich nur ein Dokuemt gelöscht, eigentlich müßte ich jetzt auf "view.getAllDocumentsByKey("Nächste Arbeitsumgebung)", False" gehen, wie gesagt der Schlauch
Ein anderer Lösungsvorschlag ist herzlich Willkommen.
gruß
rubbeldidup