例: Clone method (NotesViewEntryCollection - LotusScript®)

このエージェントは、読み込まれた文書の 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