I created button, designed to email a Purchase Order report, "PurchaseOrderEmailingR", in PDF format, to a vendor email, "VendorOrdersEmail",  but I am getting an error 2498 "An expression you entered is the wrong data type for one of the arguments."

Can you identify what is causing this error? The VBA code is below:

Private Sub Command178_Click()
On Error GoTo Err_SendEMail
Dim strSubject As String
Dim strMsgText As String
Dim strCompanyName As String
Dim strMsg As String

strSubject = "PURCHASE ORDER FORM ATTACHED - P.O. # __________ "
strCompanyName = DLookup("[CompanyName]", "DefaultT") & vbCrLf & Format(DLookup("[AlternatePhone]", "DefaultT"), "(000) 000-0000")
strMsgText = "Hi:" & vbCrLf & vbCrLf & "Attached is a Purchase Order # ________ ." & _
vbCrLf & vbCrLf & "Please acknowledge receipt of this order." & vbCrLf & vbCrLf & "Thank you." & vbCrLf & vbCrLf

If IsNull(Me![Email]) Then Exit Sub

strMsg = strMsgText & strCompanyName

DoCmd.SendObject acSendReport, "PurchaseOrderEmailingR", acFormatPDF, _
Me![VendorOrdersEmail], "", "", strSubject, strMsg, True
Exit_SendEMail:
Exit Sub

Err_SendEMail:
If Err.Number = 2501 Then
Resume Next
Else
MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in Err_SendEMail"""
Resume Exit_SendEMail
End If
End Sub

---

Reply from Alex Hedley:

Which line highlights when your click debug?