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