Error in MSAccess when trying to send mail thru outlook in office 2007

Dim blRet As Boolean, AccName, AccMail As String
        AccName = DLookup("ACName", "Clients", "ClientID=" & Me.ClientId)
        AccMail = DLookup("ACEmail", "Clients", "ClientID=" & Me.ClientId)
        blRet = ConvertReportToPDF("Invoice", vbNullString, "C:\database\Invoice No." + Str(Me.InvoiceId) + ".pdf", False, False, 0, "", "", 0, 0)
        SendMessageOA True, "Datatrix Invoice Number " + Str(Me.InvoiceId), "Dear " & AccName & "," & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Please find attached the abovementioned invoice for your perusal." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Kind Regards," & Chr(13) & Chr(10) & "Carol Longhurst", AccMail, , , "C:\database\Invoice No." + Str(Me.InvoiceId) + ".pdf"
 
End Sub
Sub SendMessageOA(ByVal bDisplayMsg As Boolean, _
                  ByVal sSubject As String, _
                  ByVal sMsgBody As String, _
                  ByVal sEmailTo As String, _
                  Optional ByVal sCCTo As String = "", _
                  Optional ByVal sBCCTo As String = "", _
                  Optional ByVal sAttachmentPath = "")
          
        Dim objOutlook As Object
        Dim objOutlookMsg As Object
        Dim objOutlookRecip As Object
        Dim objOutlookAttach As Object
        Dim IndCheck As Boolean

    
    ' Create the Outlook session.
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' Create the message.
    Set objOutlookMsg = objOutlook.CreateItem(0)
    
    With objOutlookMsg
        
        ' Add the To recipient(s) to the message.
        Set objOutlookRecip = .Recipients.Add(sEmailTo)
'        objOutlookRecip.Type = sEmailTo
        
        ' Add the CC recipient(s) to the message.
        If sCCTo <> "" Then
            Set objOutlookRecip = .Recipients.Add(sCCTo)
'            objOutlookRecip.Type = sCCTo
        End If
        
        ' Add the BCC recipient(s) to the message.
        If sBCCTo <> "" Then
            Set objOutlookRecip = .Recipients.Add(sBCCTo)
'            objOutlookRecip.Type = sBCCTo
        End If
        
        ' Set the Subject, Body, and Importance of the message.
        .Subject = sSubject
        .Body = sMsgBody
        '.Importance = olImportanceHigh  'High importance
        
        ' Add attachments to the message.
        If sAttachmentPath <> "" Then
            Set objOutlookAttach = .Attachments.Add(sAttachmentPath)
        End If
        ' Resolve each Recipient's name.
        For Each objOutlookRecip In .Recipients
            objOutlookRecip.Resolve
        Next
        
        ' Should we display the message before sending?
        If bDisplayMsg Then
            .Display
        Else
            .Save
            .Send
        End If

    End With
    Set objOutlook = Nothing
End Sub

Select allOpen in new window