次のスクリプトはデータベースの [All by Status & Project] ビューの最後から 2 番目の文書を取得します。
Dim db As New NotesDatabase( "Constantinople", "todo.nsf" )
Dim view As NotesView
Dim lastDoc As NotesDocument
Dim secondToLastDoc As NotesDocument
Set view = db.GetView( "All by Status & Project" )
Set lastDoc = view.GetLastDocument
Set secondToLastDoc = view.GetPrevDocument( lastDoc )