FoxPro/Visual FoxPro - Mapi

Me gustaria saber porque no puedo insertar el archivo y me salta un error.

IF !this.parent.signon()
RETURN
ENDIF
IF this.parent.LogSession
private vcuerpo,vtitulo,vaddress
this.parent.OleMMess.sessionid=this.parent.OleMSess.sessionid
this.parent.OleMMess.compose
this.parent.OleMMess.RecipDisplayName=direccion
this.parent.OleMMess.attachmentindex=1
this.parent.OleMMess.attachmentname=archivo
this.parent.OleMMess.AttachmentPathName=archivo
this.parent.OleMMess.AttachmentType=0
this.parent.OleMMess.msgnotetext=vcuerpo
this.parent.OleMMess.msgsubject=vtitulo
this.parent.OleMMess.msgtype='10'

this.parent.OleMMess.send(0)
IF this.parent.logsession
this.parent.OleMSess.signoff
ENDIF && Session Handle test
ENDIF && Login Test

oOutlook = CREA ("outlook.application")
oMail = oOutlook.createitem(0)
oMail.body = 'Cuerpo del Mensaje'
oMail.ATTACHMENTS.ADD (Nombre_archivo_atachar)
oMail.RECIPIENTS.ADD('[email protected]')
oMail.Subject = 'Motivo del mensaje'
oMail.DISPLAY
oMail.send
oMail = .NULL.
RELEASE oMail
oOutlook = .NULL.
RELEASE oOutlook

Ojala te sirva

Atte ROD

El problema es que quiero mandar correo usando mapi de windows, esta anda sin insertar archivos, pero cuando inserto el archivo salta el error. De todos gracias por tu tiempo.

Creo que el error esta en attachmentname y pathname :

prueba algo asi ...

oleMMess=createobject("msmapi.mapimessages")
oleMSess=createobject("msmapi.mapisession")
oleMSess.signon
OleMMess.sessionid=OleMSess.sessionid
OleMMess.msgindex=-1
OleMMess.compose
set default to "C:\encripta" && pierde el path ojo....
OleMMess.Recipdisplayname="[email protected]"
OleMMess.recipaddress="[email protected]"
OleMMess.msgnotetext="Prueba de correo texto"
OleMMess.msgsubject="Comentario del corrreo"
OleMMess.attachmentindex=0
OleMMess.attachmentposition=0
OleMMess.attachmentpathname="c:\elmenu.doc"
OleMMess.attachmentname=""
OleMMess.attachmenttype=0
OleMMess.send(1) &&(0)
OleMSess.signoff
clear all

Espero te sirva...

Wences: Gracias, tu codigo anduvo perfecto. Esto era lo que andaba buscando