• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 176
  • Last Modified:

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

This is a line of code I have from an old program:
             DoCmd.SendObject acReport, rec!ReportName, acFormatRTF, rec!EmailAddress, "", "", "" & GlobalCurrentDate & " - " & rec!TypeDesc & " - " & rec!ReportType & "", "", False, """"""

It works great, but for the report I'm sending now - it drops a lot of the formatting I need.  I'd like to send as a .pdf and we do have PDFCreator on the server.  I'm using Access 2003.  Again, if this is not possible, perhaps I can send the SnapShot Viewer in the email as well?  
Thanks!
0
c9k9h
Asked:
c9k9h
  • 9
  • 5
1 Solution
 
c9k9hAuthor Commented:
...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
0
 
Jeffrey CoachmanCommented:
c9k9h,

Your "twist" should actually be in a new question.
Remember, you are only allowed 1 question per post:
http://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
 
0
 
Patrick MatthewsCommented:
Jeff,

I think you forgot to attach the sample :)

Regards,

Patrick
0
 [eBook] Windows Nano Server

Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks

 
Jeffrey CoachmanCommented:
0
 
Jeffrey CoachmanCommented:
Matt,

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

Jeff
0
 
c9k9hAuthor Commented:
Jeff . . . you're absolutely correct.  This is two questions.  I'll withdraw this (if I can figure out how).
0
 
Jeffrey CoachmanCommented:
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
0
 
Jeffrey CoachmanCommented:
Let's keep the Q open because I had already proposed a solution to both "questions".
0
 
c9k9hAuthor Commented:
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!!!!
0
 
Jeffrey CoachmanCommented:
If all goes according to plan, my post (22634818) should have "stopped" the delete request.
0
 
Jeffrey CoachmanCommented:
Thanks WAM,
LOL
0
 
Jeffrey CoachmanCommented:
c9k9h,

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

Thanks!
;-)

Jeff
0
 
c9k9hAuthor Commented:
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!
0
 
c9k9hAuthor Commented:
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!!!
0
 
Jeffrey CoachmanCommented:
Glad I could help!
:-)

JeffCoachman
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

  • 9
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now