LOTUSSCRIPT /COM/OLE のクラス

例:RemoveAll メソッド
次の例はコレクション内の文書数が 2 以外であれば FTSearch メソッドで集められたすべての文書を削除します。

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection

Set db = session.CurrentDatabase
Set collection = db.FTSearch("Annual reports", 10)
If collection.Count <> 2 Then
Call collection.RemoveAll(False)
End If
End Sub

関連項目