Enviar varios ficheros en un mensaje
Publicado por Isidro (19 intervenciones) el 14/07/2017 13:31:08
Hola, actualmente estoy utilizando este código para enviar un fichero por mensaje, pero quisiera poder enviar varios ficheros en un sólo mensaje.
En el módulo tengo esto:
Y en el form:
En el módulo tengo esto:
1
2
3
Public Sub EmailMasivo(NombreInforme, destinatario, Asunto, Optional Cuerpo, Optional CC, Optional CCO)
DoCmd.SendObject acSendReport, NombreInforme, "PDF", destinatario, CC, CCO, Asunto, Cuerpo, False
End Sub
Y en el form:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Comando31_Click()
Dim NombreInforme As String
Dim destinatario As String
Dim Asunto As String
Dim Cuerpo As String
'Rendimientos_Resumen
NombreInforme = "RENDIMIENTOS_resumen"
destinatario = "xxxxx@xxxxx"
CC = ""
CC0 = ""
Asunto = "RESUMEN DE RENDIMIENTOS WITRON"
Cuerpo = ""
EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC
'Incidencias_Resumen
NombreInforme = "Incidencias_Resumen"
destinatario = "xxxxxx@xxxxxx"
CC = ""
CC0 = ""
Asunto = "RESUMEN DE INCIDENCIAS WITRON"
Cuerpo = ""
EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC
'Combis_Resumen
NombreInforme = "Combi_Resumen"
destinatario = "xxxx@xxxxxxxxxxxx"
CC = ""
CC0 = ""
Asunto = "Resumen de Roturas y Caidas de Productos"
Cuerpo = ""
EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC
End Sub
Valora esta pregunta
0