LOTUSSCRIPT/COM/OLE CLASSES
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