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