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