Access - Abrir Nuevo Correo en Outlook desde Access con cmd

Private Sub cmdAbrirNuevoEmail_Click()

    On Error GoTo StartError

    Dim objOutlook As Object

    Dim objItem As Object

    'Create a Microsoft Outlook object.

    Set objOutlook = CreateObject("Outlook.Application")

    'Create and open a new contact form for input.

    Set objItem = objOutlook.CreateItem(olMailItem)

    objItem.Display

    'Quit Microsoft Outlook.

    Set objOutlook = Nothing

    Exit Sub

StartError:

    MsgBox "Error: " & Err & " " & Error

    Exit Sub

End Sub