How to Make Access Report as Body of Email

[joshryanhr]

How do you make a report be the body of an email. I am using the following code to send it as an attachment, but I need it to be the body instead. Also I need the to and cc to generate from a field i have on a form.

Private Sub Command129_Click()

DoCmd.SendObject acSendReport, "Query for disputes report", acFormatSNP, Me.emailto, Me.email2, , "Dispute Update", Open Attatchment to view update.", True



End Sub

 

[SeeThru]

You will need to get the text, and add that as a text body. I think you would need to srite come code to open a recordset containing the information you wanted, grab it all to a variable and them use that in your send email function as the body.

SeeThru
Synergy Connections Ltd - Uk Telemarketing and Telesales Services and
Synergy Mobile Solutions - UK Mobile phones, land lines and call packages

 

[joshryanhr]

Thinks I put the following code in and now it works. Also as a bonus if you cancle the email i dont get the error that says you have cancled and lock access up any more.

Private Sub Command129_Click()

Const ForReading = 1, ForWriting = 2, ForAppending = 3

Dim fs, f
Dim RTFBody, strTo
Dim MyApp As New Outlook.Application
Dim MyItem As Outlook.MailItem

'DoCmd.OutputTo acOutputReport, "Report1", acFormatRTF, "Report1.rtf"
DoCmd.OutputTo acOutputReport, "Disputesupdate", acFormatHTML, "Disputesupdate.htm"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("Disputesupdate.htm", ForReading)
'Set f = fs.OpenTextFile("Report1.rtf", ForReading)
RTFBody = f.ReadAll
f.Close

Set MyItem = MyApp.CreateItem(olMailItem)
With MyItem
.To = Me.emailto
.CC = Me.email2
.Subject = "Dispute Update"
.HTMLBody = RTFBody
End With
MyItem.Display



End Sub