Sending email messages

Automatically generating email messages is useful for many purposes, particularly during customized event procedures. The following example code shows a typical procedure for setting properties of a NewMailMessage object. It uses constants in the AS_MAPIMSG_RECIP_TYPE and AS_MAPIMSG_SEND_FLAGS enumerations to set various properties of the message before sending it.

Sub SendEmailMessage()
    Dim oMessage
    Set oMessage = Client.NewMailMessage

    'Recipients
    oMessage.Recipients.Add "recipient.name@somedomain.com",AS_MMRT_TO
    oMessage.Recipients.Add "recipient.name@anotherdomain.com",AS_MMRT_CC

    'Sender
    oMessage.Originator.Address = "sender.name@mydomain.com"
    oMessage.Originator.Name = "Sender's Name"
    oMessage.Originator.Type = AS_MMRT_ORIG

    'Subject
    oMessage.Subject = "The subject of the message"

    'Body text
    oMessage.NoteText = "The body text of the message"

    'Attachments
     oMessage.Attachments.Add "c:\temp\my.bmp", ""

    'Send it with MAPI otions and reset when done
    oMessage.Send AS_MMSF_LOGON_UI
    oMessage.Clean
End Sub