Sending an Access Report as an attachment via Outlook automatically

[nefsay]

I'm trying to send an existing Access Report as an attachment via MS Outlook. The SendObject method is not an option.

Since, the report i'm trying to send is an access object it is not stored at a particular path on the PC/network.

Any help would be greatly appreciated! This is what I have tried so far but have been running out of options...

Dim objOutlook As New Outlook.Application
Dim ObjOutlookMsg As Outlook.MailItem

Set ObjOutlookMsg = objOutlook.CreateItem(olMailItem)
With ObjOutlookMsg
.To = aRecipients
.Subject = "test"
.Body = "hi"
.Body = "Body of email"
.Attachments = aAttachments ( I believe this is where I need help)
.Send
End With
Set ObjOutlookMsg = Nothing
Set objOutlook = Nothing

[ADezii]

Here is Code that Saves a Report as an *.rtf File, Attaches the Report to an E-Mail addressed to JDoe@aol.com, then Sends the E-Mail via Outlook:

'Set a Reference to the Microsoft Outlook ?X.X Object Library
Dim strReportName As String
Dim oLook As Object
Dim oMail As Object
Dim olns As Outlook.NameSpace
Dim strTO As String
Dim strMessageBody As String
Dim strSubject As String

strReportName = "rptEmployees"
DoCmd.OutputTo acOutputReport, strReportName, acFormatRTF, CurrentProject.Path & _
               "\" & strReportName & ".rtf", False
  
Set oLook = CreateObject("Outlook.Application")
Set olns = oLook.GetNamespace("MAPI")
Set oMail = oLook.CreateItem(0)
  
'*********************** USER DEFINED SECTION ************************
strTO = "JDoe@aol.com"
strMessageBody = "Here is the Report that you requested"
strSubject = "Test Project for Attaching Access"
'*********************************************************************
  
With oMail
 .To = strTO
 .Body = strMessageBody
 .Subject = strSubject
 .Attachments.Add CurrentProject.Path & "\" & strReportName & ".rtf"
   '.Display
     .Send
End With
  
Set oMail = Nothing
Set oLook = Nothing

[ChrisPadgham]

it is quite simple really

DoCmd.SendObject acSendReport, "MyReport", acFormatRTF, "theemail@emails.com", , , "Here is your report"

note if you are using a later version of access you can use acFormatPDF to present your report in PDF format

[ADezii]

As stated by the OP:

The SendObject method is not an option.

[ahafenbr]

Multiple reports, receipting

As stated by the OP:

Hello, how would you modify this to send more than one report and also add more email recipients?