Dear Expert,
I'm trying to set email address for "Cc" using "Like" but showing error 13 Type mismatch. Problem only red mark code either all are working fine. please help me.
I'm trying to set email address for "Cc" using "Like" but showing error 13 Type mismatch. Problem only red mark code either all are working fine. please help me.
Code:
Private Sub cmdSendMail_Click()
On Error GoTo ErrorHandler
Dim strTo As String
Dim strSubject As String
Dim strMessageText As String
Dim strReport As String
Dim strAttachmentName As String
Dim strWhere As String
Me.Dirty = False
strTo = ""
strSubject = "ECN " & Me.JobStructure
strMessageText = " "
strReport = "rptECN"
strAttachmentName = "ECN " & Me.JobStructure
[COLOR=Red] If Me.Impact Like "*Purchasing*" Then
strWhere = "purchasing@gmail.com"
Else
strWhere = Null
End If[/COLOR]
DoCmd.OpenReport strReport, acViewPreview, , , acHidden
Reports(strReport).Caption = strAttachmentName
DoCmd.SendObject ObjectType:=acSendReport, _
ObjectName:=strReport, _
OutputFormat:=acFormatPDF, _
To:=strTo, _
Cc:=strWhere, _
Subject:=strSubject, _
MESSAGETEXT:=strMessageText, _
EditMessage:=True
DoCmd.Close acReport, strReport
MsgBox "Message Sent Successfully."
Cleanup:
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 2501
MsgBox "Email message was Cancelled."
Case Else
MsgBox Err.Number & ": " & Err.Description
End Select
Resume Cleanup
End Sub