Examples: Adding a document

This example adds a document to the specified document collection.

Sub Initialize
  Dim session As New NotesSession  
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set collection = db.FTSearch("white wine", 0)
  Set doc = collection.GetFirstDocument()
  Call collection.AddDocument(doc)
End Sub