acSendObject not sending email

[blindlemonray]

Hi All,

I am trying to send emails via Access but when i run my code the email opens puts in all the correct details, attaches the report but stops short of actually sending the email. I still have to click send. My code is :-

DoCmd.SendObject acSendReport, "User", acFormatSNP, "user@test.co.uk", , , "ReportName", "Please find attached your Report.", , True

I have tried adding:-

outlook.mailitem.send
mail.send

Can anyone point me in the right direction

 

[ajrimmer]

The 'True' you have at the end of the line relates to editing the email before sending it. so a change to

DoCmd.SendObject acSendReport, "User", acFormatSNP, "user@test.co.uk", , , "ReportName", "Please find attached your Report.", , [COLOR=red]False[/color]

will send the email without the option to edit (so the email doesn't open).

However (& it's a big however), you'll then run into other issues (google for "Outlook Object Model Guard" or search this site if you want to know more).

 

[blindlemonray]

Hi ajrimmer,

that worked.. I had tried it before it had not, but i figured what it was. The extra comma in my code before the True/false part.

I had seen the comments before regarding Outlook Object Model Guard and now I know what is all about....