LOTUSSCRIPT /COM/OLE のクラス

例:GetNthDocument メソッド
次のスクリプトはコレクションの 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

関連項目