Enviar mail con attachment en Vfox

Buenas,
Mediante un aplicativo en VFox, necesito enviar mail con attachment, para ello estoy utlizando el siguiente código :
thisform.oleSession.logonui=.t.
thisform.oleSession.newsession=.f.
thisform.oleSession.signon
_session=thisform.oleSession.sessionid
thisform.oleMessage.sessionid=_session
thisform.oleMessage.compose()
thisform.oleMessage.msgindex=-1
thisform.oleMessage.recipindex=0
thisform.oleMessage.reciptype=1
thisform.olemessage.recipdisplayname = (xxxxxx)
thisform.oleMessage.recipindex=1
thisform.oleMessage.reciptype=2
thisform.olemessage.recipdisplayname = (xxxxxx)
thisform.oleMessage.recipindex=2
thisform.oleMessage.reciptype=2
thisform.oleMessage.recipdisplayname = (xxxxxx)
thisform.oleMessage.msgsubject = "Envio Información al "+DTOC(DATE())
thisform.oleMessage.msgnotetext = "No se ingresaron observaciones"
thisform.oleMessage.attachmentindex=THISFORM.oleMessage.AttachmentCount
thisform.oleMessage.AttachmentType=0
thisform.oleMessage.attachmentname="txtfac20100218.txt"
thisform.oleMessage.AttachmentPosition=LEN(thisform.oleMessage.msgNoteText)-2

thisform.oleMessage.send (.F.)
thisform.oleSession.signoff
Si no le pongo el código del attachment el proceso corre normal, envía el correo normal. El problema es cuando añado el código del attachment, me sale el siguiente error :
"CODIGO DE ESCEPCION OLE IDispatch 0 de MAPIMessage : attachment not found."
No se si me puedes ayudar con este problema.
Gracias,
Saludos,
MABEL.

1 Respuesta

Respuesta
1
No veo que hayas establacido la ruta del archivo en la propiedad AttachmentPathName ejemplo:
Thisform.leMessage.AttachmentPathName = "c:\Docs\txtfac20100218.txt"
Cualquier cosa me comentas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas