LOTUSSCRIPT /COM/OLE のクラス

例:DeleteDocument メソッド
次の例はコレクションの最初の文書を削除し、残りの文書を「My Favorites」フォルダに入れます。

Sub Click(Source As Button)
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("Business reports", 10)
Set doc = collection.GetFirstDocument
Call collection.DeleteDocument(doc)
Call collection.PutAllinFolder("My Favorites")
End Sub

関連項目