How do I attach more than 1 report on e-mail

J

James Kendall

I have the code to attach one report to an e-mail. How do you attach more
than one? Here is the code I used for attaching a report.

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
 
Top