Unable to email report

[mike60smart]

This might be a better method where the Report is being sent in PDF Format

Dim strDocName As String

Dim strWhere As String

Dim strToWhom As String

Dim strMsgBody As String

Dim strSubject As String



strDocName = "1 New Member Letter"

strWhere = "[MembershipID]=" & Me!MembershipID

strSubject = "New Member Letter"

strToWhom = Me![EMail]

strMsgBody = "Find attached your introductory letter."

If Me.Dirty Then Me.Dirty = False ' force a save



DoCmd.OpenReport strDocName, acPreview, , strWhere

DoCmd.SendObject acSendReport, "1 New Member Letter", acFormatPDF, strToWhom, , , strSubject, strMsgBody, True

 

[theDBguy]

View attachment 85667

Just FYI, code should not be necessary if the Ribbon looked like this.