Reading E-Mail from a COM Compliant Client

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

• Create the COM object for the e-mail client.
• Access the list of available messages.
• Select a message and extract sender, subject, or body.
• Place the sender, subject, or body into Speak variables.
• Close the e-mail client.

The sample code below shows how to read a mail message with Microsoft Outlook 98 or 2000. Refer to the E-Mail Reader example Call Tree or the E-Mail Reader wizard (under the Wizards menu) for a thorough example of reading and sending mail from Outlook.

' Define variables for MS Outlook objects
Dim olook, olookNameSpace, olookEMailFolder, email
' Get Outlook - Outlook must be open!
Set olook = _
GetObject("","Outlook.Application")
' Get MAPI name space
Set olookNameSpace = _
olook.GetNameSpace("MAPI")
' Get the InBox Folder.
Set olookEMailFolder = _
olookNameSpace.GetDefaultFolder(6)
' Enable error handling.
On Error Resume Next
' Get the first email object.
Set email = olookEmailFolder.Items(1)
If Err.Number = 0 Then
' Read e-mail
Speak1 = CStr(email.Body)
End If