Visual Basic - Enviar varios ficheros en un mensaje

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 40
Ha aumentado su posición en 37 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Enviar varios ficheros en un mensaje

Publicado por Isidro (13 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:
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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder