Ist eigentlich ganz einfach :
dim session as New NotesSession
dim curDb as NotesDatabase
dim view as NotesView
dim docCol as NotesDocumentCollection
dim collection as NotesDocumentCollection
dim orgDoc as NotesDocument, searchDoc as NotesDocument
set curDb = session.CurrentDatabase
set docCol = curDb.UnprocessedDocuments
set orgDoc = docCol.GetFistDocument
set collection = view.GetDocumentByKey(key, true)
Je nach Anzahl der Dokumente musst Du jetzt hier durchschleifen
for i = 1 to collection.Count
set searchDoc = collection.GetNthDocument(i)
oder Du referenzierst auf das Dokument wenn Du Dir sicher bist nur eines zu erhalten
set searchDoc = collection.GetFirstDocument
Das war´s eigentlich.
Meff