Access - Enviar varios informes al tiempo

 
Vista:

Enviar varios informes al tiempo

Publicado por Javier Ridao (2 intervenciones) el 01/11/2004 17:27:26
¿Cómo puedo enviar varios informes de la misma base de datos (de una sola vez) por correo electrónico?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Enviar varios informes al tiempo

Publicado por Roberto (46 intervenciones) el 01/11/2004 18:15:19
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar