LOTUSSCRIPT /COM/OLE のクラス

例:AddEntry メソッド
このスクリプトは現在のデータベースの [Financial reports] ビューにすべてのエントリを取得し、Annual reports の最初のエントリを追加し、それらすべてを [Business documents] フォルダに入れます。

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim collectionA As NotesDocumentCollection
 Dim view As NotesView
 Dim vec As NotesViewEntryCollection
 Dim doc As NotesDocument
 
 Set db = session.CurrentDatabase
 Set view = db.getView("Financial reports")
 view.AutoUpdate = False
 Set vec = view.AllEntries
 Set collectionA = db.FTSearch("Annual reports", 10)
 Set doc = collectionA.GetFirstDocument
 Call vec.AddEntry(doc)
 Call vec.PutAllInFolder("Business documents")
End Sub