FoxPro/Visual FoxPro - Como enviar email desde visualfox

Hola a todos..

Quisiera saber si hay alguna forma de enviar un correo electrónico desde mi aplicación de Visual Fox.

Agradezco de antemano su ayuda.

Aqui te mando una solución
En un form debes insertar los objetos ole como sigue:
olecontrol1 mapisession
olecontrol2 mapimessages

luego agregas un método al form, con el siguiente código:
lparameters sujeto, texto, pegado, muestra
thisform.olecontrol1.downloadmail = .f.
thisform.olecontrol1.newsession = .t.
thisform.olecontrol1.signOn
thisform.olecontrol2.sessionId = thisform.olecontrol1.sessionid
thisform.olecontrol2.compose
thisform.olecontrol2.addressresolveui = .f.
thisform.olecontrol2.Msgsubject = sujeto
thisform.olecontrol2.msgnotetext = texto
thisform.olecontrol2.attachmentpathname = alltrim(pegado)
thisform.olecontrol2.send(muestra)
thisform.olecontrol1.signoff

para terminar, en el método click de un botón que agregas para enviar el mail, le mandas los datos al método anterior:
Por ejemplo, thisform.enviarmail('Sujeto de prueba','Texto de prueba','C:\TEMP\ARCHIVO.TXT',.T.).
El último parámetro, hace que antes de mandar el mail, te muestre en pantalla el mail armado, para que escojas el destinatario de la libreta de direcciones de Outlook.

Espero te sirva
Saludos
Alfredo

Muchas gracias Alfredo, tu código me es bastante útil y ya lo probe, aunque solo hay una cosa..

Hay alguna manera de que le indique el destinatario desde el código sin tener que abrirse la ventanita del outlook?

Estuve intentanto con RecipAddress de MAPIMessage poniendo MsgIndex como -1 pero no me lo permite.

Gracias de antemano y saludos.

Existen bastantes maneras esta es otra (el de alfredo es correcto) , aqui no añades ningun objeto , sino que los creas :

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.Addresscaption="[email protected]"
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:\curri.doc"
*OleMMess.attachmentname=""
*OleMMess.attachmenttype=0
OleMMess.send(0) && no lo muestra &&(1) lo muestra
OleMSess.signoff
clear all

los que estan comentados se usan para añadir algun archivo adjunto y el send permite o no visulizar el correo antes de enviarlo ... el recipaddres es el nombre del destinatario , que se puede pasar por variable .... evidentemente estas propiedades valen en el caso del codigo de alfredo ...

Si consultas en la busqueda del foro encontraras alguna forma mas...

Espero te sirva

Mandame un correo y te lo envio si aun lo necesitas tengo una forma que te puede ayudar, lee los contactos del outlook seleccionas a cuales enviar, puedes agregar los atachmentsenviar el correo de vfp.
Saludos