LOTUSSCRIPT /COM/OLE のクラス

例:CreateNewsletter メソッド
次のスクリプトは、現在のデータベース上で全文検索を実行し、一致する各文書へのリンクを含むニュースレターを作成します。ニュースレターは、Sharron Karasic にメールで送信されます。

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( "arachnid", 15 )
If ( collection.Count > 0 ) Then
 Set newsletter = session.CreateNewsletter( collection )
 Set doc = newsletter.FormatMsgWithDoclinks( db )
 doc.Form = "Memo"
 doc.Subject = "The Arachnid Report"
 Call doc.Send( False, "Sharron Karasic" )
End If

関連項目