Microsoft KB Archive/209948

Knowledge Base

How to use Automation to send a Microsoft Outlook message using Access 2000

Article ID: 209948

Article Last Modified on 3/29/2007

---

APPLIES TO

• Microsoft Access 2000 Standard Edition

---

This article was previously published under Q209948

For a Microsoft Access 97 version of this article, see 161088 .

Advanced: Requires expert coding, interoperability, and multiuser skills.

This article applies to a Microsoft Access database (.mdb) and to a Microsoft Access project (.adp).

IN THIS TASK

SUMMARY

• Sending a Microsoft Outlook Mail Message Programmatically

REFERENCES

SUMMARY

This article shows you how to use Automation to create and send a Microsoft Outlook message in Microsoft Access 2000.

Microsoft 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. NOTE: 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:

262631 OL2000: Information About the Outlook E-mail Security Update

262617 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 method.

There are six main steps to sending a Microsoft Outlook mail message by using Automation, as follows:

1. Initialize the Outlook session.
2. Create a new message.
3. Add the recipients (To, CC, and BCC) and resolve their names.
4. Set valid properties, such as the Subject, Body, and Importance.
5. Add attachments (if any).
6. Display/Send the message.

back to the top

Sending a Microsoft Outlook Mail Message Programmatically

1. Create a sample text file named Customers.txt in the C:\My Documents folder.
2. Start Microsoft Access, and open the sample database Northwind.mdb.

3. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit
                       

4. On the Tools menu, click References.
5. 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.

6. 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)
   
      With objOutlookMsg
         ' 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)
         End If
   
         ' Resolve each Recipient's name.
         For Each objOutlookRecip In .Recipients
            objOutlookRecip.Resolve
            If Not objOutlookRecip.Resolve Then
            objOutlookMsg.Display
         End If
         Next
         .Send
   
      End With
      Set objOutlookMsg = Nothing
      Set objOutlook = Nothing
   End Sub
                       

7. To test this procedure, type the following line in the Immediate window, and then press ENTER:

   SendMessage "C:\My Documents\Customers.txt"
                           

   To send the message without specifying an attachment, omit the argument when calling the procedure, as follows:

   SendMessage
                       

back to the top

REFERENCES

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.

209963 ACC2000: How to Use Automation to Add Appointments to Microsoft Outlook

209955 ACC2000: How to Use Automation to Create a New Contact Item in Microsoft Outlook

back to the top

Keywords: kbcode kbautomation kbhowtomaster kbinterop kbprogramming KB209948

---

Send feedback to Microsoft

© Microsoft Corporation. All rights reserved.