Email using send object in an module

[Guest]

I don't seem to be able to get the following code to fire. Is acFormatSNP a
good term??? Am I missing something?


Option Compare Database

Function EmailSuretyAmendment()
' Prevent error screen if user cancels without sending mail.
On Error Resume Next

Dim strToWhom As String
Dim strMsgBody As String
Dim intSeeOutlook As Integer



' Send report in snap format. Report pulls data from open form.

DoCmd.SendObject acSendReport, "Surety Amendment", acFormatSNP, _
"(e-mail address removed)", "(e-mail address removed)",
"(e-mail address removed)", _
"Amended Surety Advisory", "Please review the attached file for
new Surety information that must be reflected in DACSS Central.", _
"", intSeeOutlook



End Function
--

There is no "I" in Team Work!

Thanks "Team"

KMS Technical Solutions

 

[Ed]

Your 'Edit Message' contains a blank ("") when it is looking for a True or
False.
Put 'Option Explicit' at the top of your module to get some VBA help.