Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim lastDoc As NotesDocument
Dim secondToLastDoc As NotesDocument

Set db = session.CurrentDatabase
Set collection = db.FTSearch("Annual reports", 10)
Set lastDoc = collection.GetLastDocument
Set secondToLastDoc = collection.GetPrevDocument( lastDoc )
End Sub

関連項目

GetPrevDocument メソッド

用語集