Sending E-Mail with a COM Compliant Client

The basic procedure for sending mail with a client that supports COM is as follows:

• Create the COM object for the e-mail client.
• Create a blank message.
• Populate the message subject, body, and recipient.
• Attach files if necessary.
• Send the message.
• Close the e-mail client.

The sample code below shows how to compose a short message using Microsoft Outlook 98 or 2000. Refer to Microsoft Outlook information for more details on scripting Microsoft Outlook.

' Microsoft Outlook object variables.
Dim myolApp, olNameSpace, myFolder, myMailItem
' Try to create an MSOutlook object
Set myolApp = CreateObject("Outlook.Application")
' Set up MAPI name space for mailing
Set olNameSpace = myOlApp.GetNameSpace("MAPI")
' Create a mail item
Set myMailItem = myOlApp.CreateItem(0)
' Set up mail recipient.
myMailItem.To = "someone@somewhere.com"
' Set message subject.
myMailItem.Subject = "Message " + Answer_Phone
' Set the body of the message
myMailItem.Body = "Hello Friend!"
' Send mail to recipients
myMailItem.Send

Files can also be attached to the e-mail message: this opens the possibility for interesting and powerful features such as Forwarding Voice Messages to E-Mail. The Voice Mail to EMail and E-Mail Reader example Call Trees are available in the examples folder for further reference.