LOTUSSCRIPT/COM/OLE CLASSES

Examples: Mailing a document
This example of a form button creates a document, copies to it the Subject and Body fields from the current document, and mails the document to a group called "Marketing." The document is not saved.

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)
 Set item = doc.GetFirstItem("Subject")
 Call item.CopyItemToDocument(doc2, "Subject")
 Set item = doc.GetFirstItem("Body")
 Call item.CopyItemToDocument(doc2, "Body")
 Call doc2.Send(True, "Marketing")
End Sub

See Also