.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

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