O'Reilly logo

CDO & MAPI Programming with Visual Basic: by Dave Grundgeiger

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

Sending Mail

After the application has successfully established a MAPI session, it can send a message. Sending a text-only message is trivial. Sending attachments and rich text is somewhat harder and is discussed later in this chapter.

Example 6-1 shows code that logs on to MAPI, sends a simple text message, and logs back off.

Example 6-1. Sending a Text Message

Dim CdoSession As MAPI.Session
Dim CdoFolder As MAPI.Folder
Dim CdoMessages As MAPI.Messages
Dim CdoMessage As MAPI.Message
Dim CdoRecipients As MAPI.Recipients
Dim CdoRecipient As MAPI.Recipient

' Establish a MAPI session.
Set CdoSession = New MAPI.Session
CdoSession.Logon "MyProfile"

' We must have a folder in which to create the outgoing message.
Set CdoFolder = CdoSession.Outbox

' Get the folder's messages collection, so that we can create
' a new message in it.
Set CdoMessages = CdoFolder.Messages

' Create the new message.
Set CdoMessage = CdoMessages.Add

' Set the message content.
CdoMessage.Subject = "This is the message subject."
CdoMessage.Text = "This is the message text."

' Get the message's recipients collection, so that we can
' add a recipient to it.
Set CdoRecipients = CdoMessage.Recipients

' Add a recipient.
Set CdoRecipient = CdoRecipients.Add

' Select an address.
CdoRecipient.Name = "William Gates"
CdoRecipient.Resolve

' Send the message.
CdoMessage.Send

Assuming that a MAPI session has already been established, creating and sending a message involves these steps:

  1. Obtain a Folder object in which to create ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required