Email multiple reports in PDF - How to do it.

J

James Kendall

I have the following code.

Private Sub Email_Report_Button_Click()
On Error GoTo Err_Email_Report_Button_Click

Dim stMonthlyReport As String

stMonthlyReport = "R: Claims RMA"

DoCmd.SendObject acReport, stMonthlyReport, acFormatRTF, , , , "Return
Authorization"

Exit_Email_Report_Button_Click:
Exit Sub

Err_Email_Report_Button_Click:
MsgBox Err.Description
Resume Exit_Email_Report_Button_Click

End Sub


I need to know how to use the same e-mail with multiple reports and also to
send it in PDF format. Could someone please modify my code to accomplish
that? Thanks.
 
Top