Access.2007.VBA.Bibl..

Outlook is not running; open Outlook with CreateObject.

If Err.Number = 429 Then

Set appOutlook = CreateObject(“Outlook.Application”)

Resume Next

Else

MsgBox “Error No: “ & Err.Number _

& “; Description: “ & Err.Description

Resume ErrorHandlerExit

End If

End Function

Figure 8.27 shows some of the contacts exported to the custom Contacts from Access folder.

FIGURE 8.27

Contacts in a custom Outlook folder exported from Access, in the new Business Card view.

Part II Writing VBA Code to Exchange Data between Office Components