Multiples archivos un solo mensaje
Publicado por Isidro (4 intervenciones) el 07/07/2017 08:41:51
Hola, actualmente estoy utilizando lo siguiente para enviar archivos, el problema que tengo es que por cada archivo utilizo un mensaje y lo que me interesa es utilizar sólo un mensaje donde poder adjuntar todos los archivos:
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
Option Compare Database
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
Private Sub Comando15_Click()
Dim NombreInforme As String
Dim destinatario As String
Dim CC As String
Dim Asunto As String
Dim Cuerpo As String
'Entradas
NombreInforme = "Entradas"
destinatario = "jxxxxxx@xxxx.ES"
CC = "xxxxx_xxxxxxx@xxxxx.es"
CC0 = ""
Asunto = "Entrada de Mercancías filtro por articulo"
Cuerpo = ""
EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC
'Entradas por hora
NombreInforme = "Entradas1"
destinatario = "xxxx_xxxxx@xxxxx.ES"
CC = "xxxxx_xxxxxx@xxxxx.es"
CC0 = ""
Asunto = "Entrada de Mercancías filtro por hora"
Cuerpo = ""
EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC
End Sub
Valora esta pregunta
0