Sending Report from Access as attachment in Email

**taimysho0** · 02-08-2012, 12:21 PM

Hello, I have a report that is generated in access. When a user clicks a button, an email opens up and i want this report to be part of the attachment. I found this code, but it opens up a separate email with the attached report. How do i get it to appear on the first email?

code i use to add attachment but opens up in separate email screen:

DoCmd.SendObject acSendReport, "report", acFormatHTML

Code i have to open up email with body information in it:

Dim strEMail As String
Dim oOutlook As Object
Dim oMail As Object
Dim strAddr As String
Dim MyDB As DAO.Database
Dim rstEMail As DAO.Recordset

Set oOutlook = CreateObject("Outlook.Application")
Set oMail = oOutlook.CreateItem(0)

With oMail
.HTMLBody = "<HTML><body>" & _
"Hi, "
.Display
End With

So the idea is to incorporate the attached report into the second half of the code i provided.

Thanks!

**pbaldy** · 02-08-2012, 12:26 PM

You would need to output it first to create a file, then attach it. You can adapt the code to attach it from here:

http://support.microsoft.com/?kbid=161088

**taimysho0** · 02-08-2012, 12:49 PM

thank you for the link,

im sorry im nott adept at using vb coding. I am having trouble applying the code on that link to my code above. Can you help me modify it so that it fits the report im trying to attach? thanks!

**taimysho0** · 02-08-2012, 03:14 PM

i get that i need a path to send the report to but how do i output the report to a folder for example? this way i can input the path

**pbaldy** · 02-08-2012, 03:23 PM

You can use

DoCmd.OutputTo..

with the appropriate arguments, one of which is path.

**taimysho0** · 02-08-2012, 04:28 PM

hello, thank you for the help. however, i dont know what i am supposed to type in after this part?

DoCmd.OutputTo acOutputReport, "report",

i would like the output to be in HTML/text format, how would i set the path to lets say C

esktop?

thanks..ive tried searching but nothing fits my exact issue..

**pbaldy** · 02-08-2012, 04:44 PM

Just so we're clear, as I've just realized I may have misunderstood, are you trying to attach the report to the email as an attachment (my original assumption), or embed the HTML of the report in the body of the email? I've never tried to do that, though I suppose it's possible.

**taimysho0** · 02-08-2012, 05:00 PM

sorry if i was being unclear, i am trying to attach the report (which needs to be converted to HTML format) to my email. Thats why my original code was:

DoCmd.SendObject acSendReport, "report_amr_exception_open_by_division", acFormatHTML

however, it opens up a separate email window rather than attaching to the email i want it to attach to. thanks

**pbaldy** · 02-08-2012, 05:17 PM

Here's an example with a dynamic file name previously set:

DoCmd.OutputTo acOutputReport, "rptUnpaidInvoices", acFormatPDF, "C:\intacc\" & strFileName & ".pdf"

then your code in the email would look like:

objAttachment.Add "C:\intacc\" & strFileName & ".pdf"

If you look in help on OutputTo, you'll find the change necessary to make it an html file.

**taimysho0** · 02-08-2012, 06:28 PM

in your code what does the "strFileName" represent? is that a variable i need to dim?

**taimysho0** · 02-08-2012, 07:07 PM

i have:

Dim objAttachment As Outlook.Attachment

but im getting this error "user defined type not defined"

im calling it in:

objAttachment.Add "C:\folder stuff\" & strFileName & ".html"

and this is code for the output:

DoCmd.OutputTo acOutputReport, "report", acFormatHTML, "C:\folder stuff\" & strFileName & ".html"

**pbaldy** · 02-08-2012, 07:37 PM

You're using late binding (which is not a bad thing), so try these lines:

Dim objAttachment As Object
Set objAttachment = oOutlook.Attachments

**pbaldy** · 02-08-2012, 09:52 PM

By the way, strFileName was a variable I set earlier to the name I wanted for the file. You don't need it.

**taimysho0** · 02-09-2012, 10:40 AM

hello, thanks again for all the help youve been offering, much appreciated. Now, i am getting an error for this line " Set objAttachment = oOutlook.Attachments". Error is: Object doesnt support this property or method. Here is my code:

Dim strEMail As String
Dim oOutlook As Object
Dim oMail As Object
Dim objAttachment As Object

Set oOutlook = CreateObject("Outlook.Application")
Set oMail = oOutlook.CreateItem(0)
Set objAttachment = oOutlook.Attachments

strEMail = strEMail & Me![tb_email_list_by_division] & ";"

DoCmd.OutputTo acOutputReport, "report_amr_exception_open_by_division", acFormatHTML, "C:\stuff\" & ".html"

With oMail

.Subject = "PROBLEM SITE "
.to = Left$(strEMail, Len(strEMail) - 1)
.cc =

objAttachment.Add "C:\stuff\" & ".html"

.HTMLBody = "<HTML><body>" & _

**pbaldy** · 02-09-2012, 10:51 AM

Sorry, I think I had a cut/paste accident.

Try:

Set objAttachment = oMail.Attachments

It needs to be the mail variable, not the Outlook variable.

Sending Report from Access as attachment in Email

Thread Tools

Sending Report from Access as attachment in Email

Similar Threads

sending gmail email through access

Save Report as PDF, then email Report as Attachment

Sending email to multiple recipients returned from a report

sending a report that contains an attachment

SENDING EMAIL MESSAGES DIRECTLY FROM ACCESS

Posting Permissions