Buenos Dias amigos del Foro
Espero me pueda ayudar a entender el por que no me funciona el siguiente codigo....
Dim strFile As String
MAPISession1.SignOn
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.RecipIndex = 0
.RecipAddress = "
[email protected]"
.RecipDisplayName = "
[email protected]"
strFile = Dir$("c:\Archivo01.txt", vbNormal)
.MsgNoteText = .MsgNoteText & " Hola "
.AttachmentIndex = .AttachmentCount
.AttachmentPathName = strFile
.AttachmentName = strFile
.AttachmentType = mapData
.AttachmentPosition = 0
.Send True
End With
MAPISession1.SignOff
Muchas Gracias de antemano
Jorge Diaz