LOTUSSCRIPT/COM/OLE CLASSES
Examples: Copying an item
1. This example of a form button creates a document in the current database, creates a Subject item with the value "NEW SUBJECT," and copies the Categories and Body items to it from the current document.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument, doc2 As NotesDocument
Dim item As NotesItem
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Set doc2 = New NotesDocument(db)
doc2.Subject = "NEW SUBJECT"
Set item = doc.GetFirstItem("Categories")
Call item.CopyItemToDocument(doc2, "Categories")
Set item = doc.GetFirstItem("Body")
Call item.CopyItemToDocument(doc2, "Body")
Call doc2.Save(True, False)
End Sub
2. This example of a form button creates a document in the current database and copies to it all items from the current document.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument, doc2 As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Set doc2 = New NotesDocument(db)
Call doc.CopyAllItems(doc2)
Call doc2.Save(True, False)
End Sub
See Also
Copying an item in LotusScript classes
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary