Send Report as PDF Attachment & Pasted in to Body of Email

[Skhaliq]

hi

i want to know how i can expand below code to send report also pasted into the body of email.

This Code is working good but this is only send as PDF attachment.

Please help

Option Compare Database


Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim eml As String
Dim vOfficeID As String


Set db = CurrentDb
Set rs = db.OpenRecordset("SDE_Email_List", dbOpenDynaset)
rs.MoveFirst
Do


vOfficeID = rs("OfficeID")


DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT [MDO_Sales_Table].* INTO [SDE_Output_table] FROM [MDO_Sales_Table] WHERE ((([MDO_Sales_Table].OfficeID)= '" & vOfficeID & "'))", -1
DoCmd.SendObject acSendReport, "Report Name", acFormatPDF, rs("Email Address"), rs("CC"), "", "Subject", "Please find attached file", 0, False

rs.MoveNext


Loop Until rs.EOF
rs.Close
db.Close
End Sub

[ranman256]

you dont need both. Now you are doubling the email by sending 2 documents.

[June7]

Why are you saving records into a table? Why not just apply filter to report?

If you want data in body of email, don't use report. Loop through recordset and concatenate data into a string that can be used in place of "Please find attached file".