LOTUSSCRIPT/COM/OLE CLASSES

Examples: AddEntry method
This script will get all the entries in the Financial reports view of the current database, add the first entry from the Annual reports, and put them all in the Business documents folder.

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