asked on EmailDatabaseObject "Multiple Reports"
I have this code within a module that emails specific reports to client. The code calls a function that opens up Outlook, calls a wait function and waits 20 seconds for Outlook to send/receive. It then sends an email with one report, waits 3 seconds, then another, and another, and Outlook does an automatic send/receive before exiting. The problem is all these emails are going to the same person.
What I would like to do is make it so that all three reports, are sent in the same email. I have tried various combinations of the code and they all fail. This is the code that sends the emails:
OpenOL
WaitSeconds (20)
DoCmd.SendObject acReport, "CustStmt", "PDFFormat(*.pdf)", "rick@kilduff.com", "", "", "CustStmt", "", False, ""
WaitSeconds (3)
DoCmd.SendObject acReport, "CustAdjmts", "PDFFormat(*.pdf)", "rick@kilduff.com", "", "", "CustAdjmts", "", False, ""
WaitSeconds (3)
DoCmd.SendObject acReport, "CustStmt Summary (Roche)", "PDFFormat(*.pdf)", "rick@kilduff.com", "", "", "CustStmt Summary (Roche)", "", False, ""
CloseOL
Any help would be greatly appreciated
What I would like to do is make it so that all three reports, are sent in the same email. I have tried various combinations of the code and they all fail. This is the code that sends the emails:
OpenOL
WaitSeconds (20)
DoCmd.SendObject acReport, "CustStmt", "PDFFormat(*.pdf)", "rick@kilduff.com", "", "", "CustStmt", "", False, ""
WaitSeconds (3)
DoCmd.SendObject acReport, "CustAdjmts", "PDFFormat(*.pdf)", "rick@kilduff.com", "", "", "CustAdjmts", "", False, ""
WaitSeconds (3)
DoCmd.SendObject acReport, "CustStmt Summary (Roche)", "PDFFormat(*.pdf)", "rick@kilduff.com", "", "", "CustStmt Summary (Roche)", "", False, ""
CloseOL
Any help would be greatly appreciated
Microsoft Access
Last Comment
dawber39
You might also want to consider commercial software, such as FMS, inc's Total Access Mailer.
Jim.
Jim.
Not sure, but you may be able to do this is you instantiate Outlook, using this fairly common code:
http://support.microsoft.com/kb/161088
You would probably need to change the top to this:
Sub SendMessage(DisplayMsg As Boolean)
...and change the "Add Attachment" section to something like this:
' Add attachments to the message.
Set objOutlookAttach = .Attachments.Add(Attachmen
Set objOutlookAttach = .Attachments.Add(Attachmen
Set objOutlookAttach = .Attachments.Add(Attachmen
(I am not quite sure why your "Delays" are needed though...)
JeffCoachman
http://support.microsoft.com/kb/161088
You would probably need to change the top to this:
Sub SendMessage(DisplayMsg As Boolean)
...and change the "Add Attachment" section to something like this:
' Add attachments to the message.
Set objOutlookAttach = .Attachments.Add(Attachmen
Set objOutlookAttach = .Attachments.Add(Attachmen
Set objOutlookAttach = .Attachments.Add(Attachmen
(I am not quite sure why your "Delays" are needed though...)
JeffCoachman
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
I cleaned that up from working code and tested it.
There are, looking at now, some extraneous declarations and comments in it
:0
There are, looking at now, some extraneous declarations and comments in it
:0
Hi Jim, Thanks for mentioning Total Access Emailer:
http://www.fmsinc.com/MicrosoftAccess/Email.asp
It is a Microsoft Access add-in that lets you automatically attach multiple filtered reports as PDF to a message. You can also compress all your attachments into a zip file. The zip file can also be password protected using your phrase or a value from a field in your datasource.
Total Access Emailer also has a programmatic interface to send emails from VBA. A free trial version is available. It uses SMTP to send emails, so it bypasses all the Outlook and MAPI security limitations. Free trial here: http://www.fmsinc.com/MicrosoftAccess/Email/free-trial.html
Here's a paper we wrote entitled: DoCmd SendObject Command in Microsoft Access: Features and Limitations for Sending Emails
http://www.fmsinc.com/MicrosoftAccess/Email/SendObject.html
http://www.fmsinc.com/MicrosoftAccess/Email.asp
It is a Microsoft Access add-in that lets you automatically attach multiple filtered reports as PDF to a message. You can also compress all your attachments into a zip file. The zip file can also be password protected using your phrase or a value from a field in your datasource.
Total Access Emailer also has a programmatic interface to send emails from VBA. A free trial version is available. It uses SMTP to send emails, so it bypasses all the Outlook and MAPI security limitations. Free trial here: http://www.fmsinc.com/MicrosoftAccess/Email/free-trial.html
Here's a paper we wrote entitled: DoCmd SendObject Command in Microsoft Access: Features and Limitations for Sending Emails
http://www.fmsinc.com/MicrosoftAccess/Email/SendObject.html
ASKER
Haven't tried it yet - but the sample works - had shoulder surgery, and everything is on hold for now - thank you all
1. Use a command line utility such as BLAT.
2. Use software that talks directly to a e-mail server (SMTP) such as vbSendMail
3. Using OLE automation, talk to Outlook and have it send the e-mail.
All three of the above will allow for multiple attachments in a single e-mail. However with that said, that's the other piece of this; you need to run and save the reports to disk first in some format (PDF, Snapshot, etc) before you can send as a single e-mail.
Jim.