Dim db As New NotesDatabase( "Gaborone", "todo.nsf" ) Dim view As NotesView Dim doc As NotesDocument Set view = db.GetView( "Open\By Project & Priority" ) Set doc = view.GetFirstDocument If doc.HasItem("Subject") Then While Not(doc Is Nothing) Forall subject In doc.GetItemValue("Subject") Messagebox subject End Forall Set doc = view.GetNextDocument(doc) Wend End If
See Also