次のスクリプトは新規にメールメモを作成して、保存された文書の Body アイテムをメモにコピーします。この例では Call ステートメントを使用しています。
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" )