Email Report Attachment in Access

 

Email Report Attachment from VBA

Send Microsoft Access Report as Outlook or Other Email Attachment

Here is a simple method for mailing an Access report to someone as an attachment. This VBA example uses the docmd.sendobject to email the report in rich text format (RTF).This method should work with any email program running on your PC and should also work for sending a PDF email attachment.  The VBA programming code follows:

Public Sub MailIt()

On Error GoTo Error_MailIt

Dim Rst As Recordset

open the table that the report reads to make sure there is a record in it.

Set Rst = CurrentDb.OpenRecordset(“EmailRpt”, & _ DB_OPEN_DYNASET)

If Not Rst.BOF Then

    DoCmd.SendObject acReport, “RptEmailAdjustment”, & _
“rich text format (*.rtf)”, strEmailAddressGlobal, , , & _
StrSubjectGlobal ,  StrMessageGlobal

End If

    Goto OK_Exit:

Error_MailIt:

    MsgBox Error$ & ” MailIt ” GoTo Exit_MailIt

(adsbygoogle = window.adsbygoogle || []).push({});

    Resume OK_Exit

OK_Exit:

    Rst.Close

    Set Rst = Nothing

End Sub

More recent versions of Access give you the ability to output reports in PDF format directly.  This makes it much easier to send reports since almost everyone is used to opening PDF attachments in their emails.

 

Microsoft Office:
MS Access 2000 Through 2016 and Office 365 & Sharepoint

 

Microsoft Office VBA, MS Access 2003, 2007, 2010, 2013, 2016