.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

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