.

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: 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