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 =
thisform.oleMessage.recipindex=1
thisform.oleMessage.reciptype=2
thisform.olemessage.recipdisplayname =
thisform.oleMessage.recipindex=2
thisform.oleMessage.reciptype=2
thisform.oleMessage.recipdisplayname =
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.
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 =
thisform.oleMessage.recipindex=1
thisform.oleMessage.reciptype=2
thisform.olemessage.recipdisplayname =
thisform.oleMessage.recipindex=2
thisform.oleMessage.reciptype=2
thisform.oleMessage.recipdisplayname =
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 de Alonso Jarrín Solís
1