LOTUSSCRIPT/COM/OLE CLASSES

Examples: Clone method
This agent displays the number of documents in a NotesViewEntryCollection of read documents, makes a clone of the collection, and counts the number of documents in the cloned collection.

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