Z.B. so:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
While Not(doc Is Nothing)
'Hier gibst Du den Code für das erste markierte Doc ein.......
'Sollen noch weitere Docs behandelt werden, die auch noch ausgewählt sind,
'dann wird mit folgendem Set das nächste Doc genommen......
Set doc = collection.GetNextDocument(doc)
Wend
HTH,
Matthias