Enviar varios informes por correo

Isidrof11 1 Publicaciones miércoles, 21 de febrero de 2018Fecha de inscripción miércoles, 21 de febrero de 2018 Última intervención - 21 feb 2018 a las 09:15
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:

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 tengo esto:

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...
Ver más