Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.FTSearch("white wine", 0)
Set doc = collection.GetFirstDocument()
Call collection.AddDocument(doc)
End Sub

関連項目

LotusScript のクラスで文書を追加する

用語集