.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


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

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