darshanhiranandani24
New member
- Local time
- Tomorrow, 02:31
- Joined
- Sep 13, 2024
- Messages
- 8
Hi everyone,
I’m Darshan Hiranandani, using Microsoft Access to send emails through Outlook with a donor’s tax receipt attached. The email opens in Outlook with the recipient and subject already filled out, but it defaults to plain text format. I would prefer to have the email open in HTML format because my signature includes a logo and other HTML content.
Outlook’s “Compose messages” is set to HTML, so that’s not the issue. I’ve found solutions involving a lot of VBA code, but I’m hoping there’s a simple way to modify the existing code to open the email in HTML format when using the DoCmd.SendObject command.
Here’s the current portion of my VBA code:
'Emails or prints receipt
Dim continue As Integer
continue = MsgBox("Check receipt details before proceeding.", vbOKCancel, "Donor's tax receipt")
If continue = vbOK Then
If Not IsNull(Forms!frmDonorDonation!EmailAddress) Then
DoCmd.SendObject acSendReport, "rptTaxReceipt", acFormatPDF, Forms!frmDonorDonation!EmailAddress, , "bwccr1955@gmail.com", "Tax Receipt Attached"
Else
DoCmd.RunCommand acCmdPrint
End If
Else
Exit Sub
End If
Regards
Darshan Hiranandani
I’m Darshan Hiranandani, using Microsoft Access to send emails through Outlook with a donor’s tax receipt attached. The email opens in Outlook with the recipient and subject already filled out, but it defaults to plain text format. I would prefer to have the email open in HTML format because my signature includes a logo and other HTML content.
Outlook’s “Compose messages” is set to HTML, so that’s not the issue. I’ve found solutions involving a lot of VBA code, but I’m hoping there’s a simple way to modify the existing code to open the email in HTML format when using the DoCmd.SendObject command.
Here’s the current portion of my VBA code:
'Emails or prints receipt
Dim continue As Integer
continue = MsgBox("Check receipt details before proceeding.", vbOKCancel, "Donor's tax receipt")
If continue = vbOK Then
If Not IsNull(Forms!frmDonorDonation!EmailAddress) Then
DoCmd.SendObject acSendReport, "rptTaxReceipt", acFormatPDF, Forms!frmDonorDonation!EmailAddress, , "bwccr1955@gmail.com", "Tax Receipt Attached"
Else
DoCmd.RunCommand acCmdPrint
End If
Else
Exit Sub
End If
Regards
Darshan Hiranandani