write macro to Print Access Report to PDF then E-mail

[Bullsandbears123]

PLEASE HELP!
I am just starting to automate my database. I am using Access 2002 and outlook 2002

I do not know how to program a macro that would

1) open a report
2) Print that report to PDF
3) set the save to a particular folder
4) Close report
5) Send saved PDF file automatically to single e-mail address.
6) repeat every month on the 1st or 5th.

Can anybody give my some advice as to how the code will look?

 

[bkclaw113]

I am working with Access 97, and it does not have PDF as an available format for outputting reports. But the following code outputs a report in HTML format and then creates an email in my outlook drafts folder with the report as an attachment.


Set olApp = New Outlook.Application

Set olMsg = olApp.GetNamespace("MAPI&quot.GetDefaultFolder(olFolderDrafts).Items.Add(olMailItem)

'This sends the report
DoCmd.OutputTo acReport, "Summary Info Level 1", acFormatHTML, conExportPath & "Email Report.html"
olMsg.To = "Email Address"
olMsg.CC = "Email Address"
olMsg.Subject = "Email Subject"
olMsg.Body = "Text for Body of Message"
olMsg.Attachments.Add (conExportPath & "Email Report.html&quot
olMsg.Save
Set olMsg = Nothing



Hope this helps.

 

[NNNNN]

This works for me

DoCmd.SendObject acSendReport, <Your Report name>, acFormatXLS, <Email address>, , , _
<Subject>, &quot;Please find attached the monthly report for your information.&quot; & vbCrLf & vbCrLf & &quot; Kind Regards&quot; & vbCrLf & vbCrLf & &quot;<Your name>&quot;, 1

As long as you have outlook open this will do the job. however this is excel format. you can use acFormatRTF Im n ot sure about pdf though
If you change the 1 at the end of the code to 0 then the email will be sent automatically
if it is 0 then the outlook message window with your message and attachment will appear

hope this helps