例: Adding a document

次の例では、指定された文書コレクションに文書を追加します。

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