mike60smart
Registered User.
- Local time
- Today, 20:37
- Joined
- Aug 6, 2017
- Messages
- 1,914
This might be a better method where the Report is being sent in PDF Format
Code:
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