Dim ws As New notesuiworkspace
Dim uview As notesuiview
Dim docs As NotesDocumentCollection
Dim doc As notesdocument
Set uview = ws.currentview
Set docs = uview.documents
Set doc = docs.GetFirstDocument
While Not (doc Is Nothing)
[...]
Set doc = docs.getnextdocument(doc)
Wend