LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim newsletter As NotesNewsletter Dim doc As NotesDocument Dim j As Integer Dim originalDoc As NotesDocument Set db = session.CurrentDatabase Set collection = db.UnprocessedFTSearch( "botany", 0 ) Set newsletter = New NotesNewsletter( collection ) newsletter.DoScore = True newsletter.DoSubject = True newsletter.SubjectItemName = "Topic" Set doc = newsletter.FormatMsgWithDoclinks( db ) doc.Subject = "New botany documents from this week" doc.Form = "Memo" Call doc.Send( False, "Susanna Tallan" ) ' mark all documents in newsletter's collection as ' processed, so that they aren't included in the ' newsletter next time For j = 1 To collection.Count Set originalDoc = collection.GetNthDocument( j ) Call session.UpdateProcessedDoc( originalDoc ) Next End Sub