Mandar archivos adjuntos mediante Outlook
Publicado por Salo (9 intervenciones) el 28/06/2010 11:04:56
Necesito poder mandar varios archivos adjuntos en Outlook mediante Access 2003. Para ello hago lo siguiente
Set Correo = CreateObject("Outlook.Application")
Set Mensaje = Correo.CreateItem(olMailItem)
With Mensaje
.Subject = Subject
.To = AdrEmail
For i = 1 To N
.Attachments.Add FT(i)
Next i
....
...
El primer archivo que mando en el bucle For .. Next lo adjunta correctamente. A partir del segundo manda un error.
¿De que forma puedo adjuntar mas de 1 archivo?
Set Correo = CreateObject("Outlook.Application")
Set Mensaje = Correo.CreateItem(olMailItem)
With Mensaje
.Subject = Subject
.To = AdrEmail
For i = 1 To N
.Attachments.Add FT(i)
Next i
....
...
El primer archivo que mando en el bucle For .. Next lo adjunta correctamente. A partir del segundo manda un error.
¿De que forma puedo adjuntar mas de 1 archivo?
Valora esta pregunta
0