LOTUSSCRIPT /COM/OLE のクラス

例:FTSearch メソッド
次のスクリプトはデータベースの「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

関連項目