.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: AddDocument method
This example adds a document from collectionA to collectionB, then puts collectionB into a folder called "Business documents."

Sub Click(Source As Button)
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim collectionA As NotesDocumentCollection
 Dim collectionB As NotesDocumentCollection
 Dim doc As NotesDocument
 
 Set db = session.CurrentDatabase
 Set collectionA = db.FTSearch("Annual reports", 10)
 Set collectionB = db.FTSearch("Business reports",10)
 Set doc = collectionA.GetLastDocument
 Call collectionB.AddDocument(doc)
 Call collectionB.PutAllInFolder("Business documents")
End Sub

See Also