例: GetFirstDocument method (NotesView - LotusScript®)

次のスクリプトは、データベースの [Open¥By Project & Priority] ビューの最初の文書を取得します。

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