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")
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