LOTUSSCRIPT /COM/OLE のクラス

例:Clone メソッド
このエージェントは、読み込まれた文書の NotesViewEntryCollection にある文書の数を表示し、コレクションのクローンを作成し、クローンが作成されたコレクション内の文書の数をカウントします。

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim vec1 As NotesViewEntryCollection
 Dim vec2 As NotesViewEntryCollection
 Set db = session.CurrentDatabase
 Set view = db.GetView("All")
 view.AutoUpdate = False
 Set vec1 = view.GetAllReadEntries()
 Messagebox vec1.Count,, "Original read documents"
 Set vec2 = vec1.Clone()
 Messagebox vec2.Count,, "Cloned documents"
End Sub