FoxPro/Visual FoxPro - mailto + adjunto

Hola:

Intento enviar un e-mail al cliente de correo predeterminado con un fichero adjunto.
He encontrado información, con ShellExecute... para hacerlo vía API. Pero ninguna de estas opciones me deja incluir un fichero adjunto.

¿Cómo puedo enviar un mensaje (crear), en el cliente de correo predeterminado con un adjunto? (No es necesario enviarlo, sólamente que me abra la ventana con el adjunto incluido)

Trabajo con la versión 7 de Visual FoxPro,
¿En las versiones posteriores está incluida una función "mailto:" que soporte ficheros adjuntos?

Muchas gracias por adelantado.
Un cordial saludo.
Ángel I.

Revisa los objetos MAPISession y MAPIMessage que se encuentran en VFP

para adjuntar archivos utilice esta rutina.

m.cuenta=iif(empty(m.cuenta),"registrar cuenta",alltrim(m.cuenta))
m.sujeto="orden de compra #: "+m.sujeto
m.ruta="c:vsoc mp"+&archivo_adjunto
local lnMaxLength,lcMessageText,lvFieldValue
IF !ThisForm.OleMSess.signon()
RETURN
ENDIF
IF LogSession
thisForm.OleMMess.sessionid=thisForm.OleMSess.sessionid
This.parent.OleMMess.compose
thisform.OleMMess.RecipAddress = m.cuenta
thisform.OleMMess.AttachmentType=mapdata
thisform.OleMMess.AttachmentPathName=m.ruta
ThisForm.OleMMess.msgnotetext = "Adjunto encontrara la orden de compra."
ThisForm.OleMMess.msgsubject=m.sujeto
ThisForm.OleMMess.send(1)
IF logsession
ThisForm.OleMSess.signoff
ENDIF
ENDIF