Can you email an access report as a .pdf file and if not - can you send the SnapShot viewer in the email?

...and another twist that is different from above.  When I sent the above report, it was one report that I sent to many people by looping through code.  This time, I have a report with 83 pages that I need to email to 83 different authors - and each author should only get there own page.  So I need to put a filter in there somewhere.  This is the function - it reads through a table.

Public Function EmailStatements() As String
    Dim DB As DAO.Database
    Dim rec As DAO.Recordset
    Set DB = CurrentDb()
    Set rec = DB.OpenRecordset("Testing_Table", dbOpenDynaset)
   
On Error GoTo ErrorHandling_Resume
   
With rec
    .MoveFirst
        Do While Not .EOF
                DoCmd.SendObject acReport, rec!ReportName, acFormatRTF, rec!TestEmail, "", "", rec!MonthYr, "", False, """"""
            rec.MoveNext
        Loop
End With

MsgBox "Files have been sent!", _
vbOKOnly + vbExclamation, "Success!"
   
ErrorHandling_Resume:
    Resume Next
   
End Function

c9k9h,

Your "twist" should actually be in a new question.
Remember, you are only allowed 1 question per post:
https://www.experts-exchange.com/help.jsp#hi23.

Question 1:
If you wish to send the report as a snapshot change:
acFormatRTF
to...
acFormatSNP

Question2.
Here is a sample of how to email individual reports (Filter loop)
You should change the Customer Email addresses to yours to test this, at first.
I am sure you can adapt this sample to work in your own database.
;-)

JeffCoachman
 

Jeff,

I think you forgot to attach the sample :)

Regards,

Patrick

Matt,

I think I was too busy "Counting excel rows backwards" and I got confused!
:-)

Jeff

Jeff . . . you're absolutely correct.  This is two questions.  I'll withdraw this (if I can figure out how).

c9k9h,

As  jesture of good faith, I proposed a solution to both questions here.
;-)

So the question becomes,:
Did you investigate both solutions, and what were the results?

JeffCoachman

Let's keep the Q open because I had already proposed a solution to both "questions".

I'm confused.  I'm sorry.  I read through it quickly and thought no one wanted to touch it because it's two questions.  

So do I need to do something else to keep the question open?

Jeff . . . I won't have a chance to look at your proposed solution until tonight, but will respond then.  Thank you VERY much for you response!!!!

If all goes according to plan, my post (22634818) should have "stopped" the delete request.

Thanks WAM,
LOL

c9k9h,

OK, just let me know what the results of my two proposals were.
(using the SNP format and the sample database)

Thanks!
;-)

Jeff

Jeff . . . I apologize for the delay in getting back to this.  This looks good.  So if I understand correctly, this line:             DoCmd.OpenReport "rptEmailCustReportCustomers", acViewPreview, , "CustomerID=" & "'" & strCustID & "'"

. . . puts the filter in for getting just the sheet needed, then emails it in the next line.  Very cool.  I wish I could double the points, because you did answer two questions.  I appreciate your good faith - it is very appreciated.

I'll have tons more questions coming and I'll be more careful.  Thank you Jeff!

I like the way this works.  I'm not sure if I can use the SnapShot, however.  I'm going to continue researching (or maybe post another question) around sending it in a .pdf format.  If I send it as an .rtf file - it loses too much of the formatting.  Many thanks for this!!!

Glad I could help!
:-)

JeffCoachman