.

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: CopyAllItems method
This agent copies all the items on the highlighted document, docA, into
a new document, docB, and then saves docB.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim docA As NotesDocument
 Dim docB As NotesDocument
 Dim collection As NotesDocumentCollection
 Set db = session.CurrentDatabase
 Set collection = db.UnprocessedDocuments
 Set docA = collection.GetFirstDocument()
 If Not (docA Is Nothing) Then
   Set docB = New NotesDocument( db )
   Call docA.CopyAllItems( docB, True )
   Call docB.Save( True, True )
 Else
   Messagebox "No documents found"
 End If
End Sub

See Also