Yo tengo una aplicaciòn que toma datos de dos archivos de texto:
Direcciones.txt
Donde estan escritas las direcciones a las que quiero enviar el correo y
Archivo.txt : donde esta el nombre del archivo que quiero adjuntar.
Luego la parte de còdigo que escribe el correo electrònico es esta.
Creo que les servirà para tener una idea de como es que trabaja la cosa
With MAPISession1
.SignOn
End With
For iBack = 1 To i
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Fetch
.Compose
.RecipAddress = cantDirecc(iBack)
.RecipType = 1 'Dirigido directamente a la direccion especificada
.MsgSubject = "Reporte Generado Para Core: " & Now() 'Tema del Mensaje
.MsgNoteText = "Reporte Generado Para Core: " & Now() 'Texto del mensaje
.AttachmentName = Adjunto 'nombre del archivo adjunto
.AttachmentPathName = App.Path & "\" & Adjunto 'Ruta del Archivo Adjunto
.Send 'Enviar el Mensaje
End With
Next
