VBA: How to Create a New Contact Item in Outlook with Automation

MORE INFORMATION

The following example shows how to create a form in Microsoft Access that starts Microsoft Outlook from a command button. Then, the Automation code opens a new contact screen for input in Microsoft Outlook. After you enter the contact, and save and close the contact form, the Automation code quits Microsoft Outlook and returns to the Microsoft Access form.

To run Microsoft Outlook from a Microsoft Access form, follow these steps:

1. Open the sample database Northwind.mdb.
2. Create a new form not based on any table or query in Design view:

         Form: FrmOutlook
         ---------------------------
         Caption: Outlook Form
   
         Command button:
            Name: RunOutlook
            Caption: Start Outlook
            OnClick: =StartOutlook()

3. On the View menu, click Code to open the form module.
4. On the Tools menu, click References.
5. Click Microsoft Outlook 8.0 Object Library in the Available References box. If it does not appear in the list, click the Browse button and browse for MSOutl8.olb, which is installed by default in the C:\Program Files\Microsoft Office\Office folder.
6. Click OK to close the References dialog box.
7. Type the following procedure in the form's code module:

         Public Function StartOutLook()
            On Error GoTo StartOutLook_Error
            Dim spObj As Object, MyItem As Object
   
            ' Create a Microsoft OutLook object.
            Set spObj = CreateObject("Outlook.Application")
   
            ' Create and open new contact form for input.
            ' You can substitute olAppointmentItem, olJournalItem, olMailItem,
            ' olNoteItem, olPostItem, or olTaskItem for olContactItem.
             Set MyItem = spObj.CreateItem(olContactItem)
             MyItem.Display
   
            ' Quit Microsoft Outlook.
             Set spObj = Nothing
             Exit Function
   
         StartOutLook_Error:
            MsgBox "Error: " & Err & " " & Error
            Exit Function
         End Function

8. Close the module and switch the form to Form view.
9. Click the Start Outlook button. Note that Microsoft Outlook starts and displays a new contact screen.