LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetNthDocument method
This script gets the third document in a collection and sends it to 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

See Also