Access 2000 Command button help - Need to send 3 Rpt via email at once

[schwarrs]

Currently I have the following VB to send 3 MS Access 2000 reports through email. I would like to have the code send all reports in one email...currently it does it in three. Is is possible to connect them to one?

Private Sub Command82_Click()
On Error GoTo Err_Command82_Click

Dim stRPTProPSPMain As String
Dim stRPTProPSRMain As String
Dim stRPTProCISMain As String

stRPTProPSPMain = "RPTProPSPMain"
stRPTProPSRMain = "RPTProPSRMain"
stRPTProCISMain = "RPTProCISMain"

DoCmd.SendObject acReport, stRPTProPSPMain
DoCmd.SendObject acReport, stRPTProPSRMain
DoCmd.SendObject acReport, stRPTProCISMain

Exit_Command82_Click:
Exit Sub

Err_Command82_Click:
MsgBox Err.Description
Resume Exit_Command82_Click

End Sub