LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim newsletter As NotesNewsletter Dim doc As NotesDocument Set db = session.CurrentDatabase Set collection = db.FTSearch( "arachnid", 15 ) If ( collection.Count > 0 ) Then Set newsletter = session.CreateNewsletter( collection ) Set doc = newsletter.FormatMsgWithDoclinks( db ) doc.Form = "Memo" doc.Subject = "The Arachnid Report" Call doc.Send( False, "Sharron Karasic" ) End If
See Also