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