例: FTSearch method (NotesDocumentCollection - LotusScript®)

次のスクリプトはデータベースの「Business」カテゴリ内で「Presentations」という語を含むすべての文書を集め、文書リンク付きのメールを Minnie Brew に送信します。

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