Examples: CopyItem method

This script creates a new mail memo and copies the Body item from a saved document to the memo. This example uses the Call statement.

Dim db As New NotesDatabase( "", "review.nsf" )
Dim doc As NotesDocument
Dim memo As NotesDocument
Dim item As NotesItem
'...set value of doc...
Set item = doc.GetFirstItem( "Body" )
Set memo = New NotesDocument( db )
memo.Form = "Memo"
memo.Subject = "Here's a copy of the review."
Call memo.CopyItem( item, "Body" )
Call memo.Send( False, "Viquinha Mayer" )