Examples: GetFirstDocument method (NotesView - LotusScript®)

This script gets the first document in the Open\By Project & Priority view of a database.

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)
End If