LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) 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("Business", 10) Call collection.FTSearch("Presentations",10) Set newsletter = New NotesNewsletter( collection ) Set doc = newsletter.FormatMsgWithDoclinks( db ) doc.Form = "Memo" doc.Subject = "Here's the newsletter you requested." Call doc.Send( False, "Minnie Brew/CHI/ACME" ) End Sub
See Also