How do I send multiple reports in one email? I don’t want to combine the two reports into one, but they will usually go out together. I am using the following code for the basics, but havent’ figured out how to combine to reports.
Private Sub cmdEmailFuture_Click()
On Error GoTo Err_cmdEmailFuture_Click
Dim stDocName As String
Dim stDocName1 As String
stDocName = “rptFutureClasses”
stDocName1 = “rptFutureRegistrations”
DoCmd.SendObject acSendReport, stDocName, acFormatRTF, [Forms]![frmReports]![txtEndoManager] _
, , , “Future classes and registrations”, “Thank you. Please let me know if there are” _
& ” any problems. Fay”
Exit_cmdEmailFuture_Click:
Exit Sub
Err_cmdEmailFuture_Click:
MsgBox Err.Description
Resume Exit_cmdEmailFuture_Click
End Sub
Thank Fay
