例: AddEntry method

このスクリプトは現在のデータベースの [Financial reports] ビューにすべてのエントリを取得し、Annual reports の最初のエントリを追加し、それらすべてを [Business documents] フォルダに入れます。

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