This article shows you how to use Automation to create and
send a Microsoft Outlook message in Microsoft Access 2000.
provides programming examples for illustration only, without warranty either
expressed or implied. This includes, but is not limited to, the implied
warranties of merchantability or fitness for a particular purpose. This article
assumes that you are familiar with the programming language that is being
demonstrated and with the tools that are used to create and to debug
procedures. Microsoft support engineers can help explain the functionality of a
particular procedure, but they will not modify these examples to provide added
functionality or construct procedures to meet your specific requirements.
The following code may not work properly if you have installed
the Outlook E-mail Security Update. For additional information about this
update, please see one of the following articles in the Microsoft Knowledge
Base, depending on which version of Outlook you have:
OL2000: Information About the Outlook E-mail Security Update
OL98: Information About the Outlook E-mail Security Update
You can use the SendObject
method to send a MAPI mail message programmatically in Microsoft
Access. However, the SendObject
method does not give you access to complete mail functionality,
such as the ability to attach an external file or set message importance. The
example that follows uses Automation to create and send a mail message that you
can use to take advantage of many features in Microsoft Outlook that are not
available with the SendObject
There are six main steps to sending a
Microsoft Outlook mail message by using Automation, as follows:
- Initialize the Outlook session.
- Create a new message.
- Add the recipients (To, CC, and BCC) and resolve their
- Set valid properties, such as the Subject, Body, and
- Add attachments (if any).
- Display/Send the message.
Sending a Microsoft Outlook Mail Message Programmatically
- Create a sample text file named Customers.txt in the C:\My
- Start Microsoft Access, and open the sample database
- Create a module and type the following line in the
Declarations section if it is not already there:
- On the Tools menu, click References.
- In the References box, click to select the Microsoft Outlook 9.0 Object Library, and then click OK.
NOTE: If the Microsoft Outlook 9.0 Object Library does not appear in
the Available References box, browse your hard disk for the file, Msoutl9.olb. If you
cannot locate this file, you must run the Microsoft Outlook Setup program to
install it before you proceed with this example.
- Type the following procedure in the new module:
Sub SendMessage(Optional AttachmentPath)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("Nancy Davolio")
objOutlookRecip.Type = olTo
' Add the CC recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
objOutlookRecip.Type = olCC
' Set the Subject, Body, and Importance of the message.
.Subject = "This is an Automation test with Microsoft Outlook"
.Body = "Last test - I promise." & vbCrLf & vbCrLf
.Importance = olImportanceHigh 'High importance
' Add attachments to the message.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
If Not objOutlookRecip.Resolve Then
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
- To test this procedure, type the following line in the
Immediate window, and then press ENTER:
To send the message without specifying an attachment, omit the argument
when calling the procedure, as follows:
SendMessage "C:\My Documents\Customers.txt"
For more information about using Automation in Microsoft
Access, in the Visual Basic Editor, click Microsoft Visual Basic Help on the
Help menu, type "Automation" in the Office Assistant or the Answer Wizard, and
then click Search to view the topic.
ACC2000: How to Use Automation to Add Appointments to Microsoft Outlook
ACC2000: How to Use Automation to Create a New Contact Item in Microsoft Outlook
Article ID: 209948 - Last Review: March 29, 2007 - Revision: 3.3
- Microsoft Access 2000 Standard Edition
|kbcode kbautomation kbhowtomaster kbinterop kbprogramming KB209948|