LOTUSSCRIPT/COM/OLE CLASSES

Examples: Making a Domino newsletter
This agent example creates a newsletter consisting of links to all the documents in the current database and mails the newsletter to the Marketing group.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim news As NotesNewsletter
 Dim doc As NotesDocument
 Set db = session.CurrentDatabase
 Call db.UpdateFTIndex(True)
 Set dc = db.FTSearch("Acme", 0)
 Set news = New NotesNewsletter(dc)
 news.SubjectItemName = "Subject"
 news.DoSubject = True
 Set doc = news.FormatMsgWithDoclinks(db)
 Call doc.Send(True, "Marketing")
End Sub

See Also