RE:Enviar varios informes al tiempo
Un ejemplo elemental, paso tres informes en formato .rtf al mismo tiempo usando Outlook Express (No funciona si no está instalado Outlook, no me puse a averiguar el motivo).
Dim stDocName, stDocName2, stDocName3, Destinatario As String
Dim stAppName As String
Dim RetVal As String
Destinatario = Mail
stDocName = "PQM-TrabajosMensual"
stDocName2 = "PQM-CobranzasMes"
stDocName3 = "BalanceFacturacion"
stAppName = "C:\Archivos de programa\Outlook Express\msimn.exe"
Call Shell(stAppName, 6)
DoCmd.SendObject acSendReport, stDocName, acFormatRTF, Destinatario, , , TMensual, TMensual, True 'False
DoCmd.SendObject acSendReport, stDocName2, acFormatRTF, Destinatario, , , CMensual, CMensual, True 'False
DoCmd.SendObject acSendReport, stDocName3, acFormatRTF, Destinatario, , , BAnual, BAnual, True 'False