HCL Domino - Examples: Copying an item - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

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

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

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents