Enviar varios ficheros por correo
Publicado por isidro (4 intervenciones) el 15/02/2018 13:33:32
Hola, necesito ayuda. Quiero poder enviar más de un fichero por destinatario. Actualmente sólo puedo enviar un único fichero. Estoy empleando lo siguiente:
Dentro del módulo tengo:
Y en el Form tengo esto:
Estaría muy agradecido si me pudieran echar una mano...
Dentro del módulo tengo:
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
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Comando6_Click()
Dim NombreInforme As String
Dim destinatario As String
Dim Asunto As String
Dim Cuerpo As String
'Rendimientos
NombreInforme = " "
destinatario = " "
CC = ""
CC0 = ""
Asunto = " "
Cuerpo = ""
EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC
Estaría muy agradecido si me pudieran echar una mano...
Valora esta pregunta
0