LOTUSSCRIPT/COM/OLE CLASSES

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

See Also