Access - Mandar archivos adjuntos mediante Outlook

   
Vista:

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?
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