例: GetNthDocument method (NotesDocumentCollection - LotusScript®)

次のスクリプトはコレクションの 3 番目の文書を取得し、Jen Smith に送信します。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument  
  Set db = session.CurrentDatabase
  Set collection = db.FTSearch("Business",10)
  If collection.Count >= 3 Then
    Set doc =  collection.GetNthDocument(3)
    If Not doc Is Nothing Then
      Call doc.Send(False,"Jen Smith/BOS/ACME")
    End If
  End If
End Sub