LOTUSSCRIPT/COM/OLE CLASSES
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" )
See Also