FoxPro/Visual FoxPro - Enviar Email desde una Tabla

Hola amigos
Por favor alguien sabe de lagun control o forma de enviar Email desde una tabla de datos por cuanto yo tengo almacenado en un campo tipo texto la direccion de Email y en un formulario colocar el Email origen , el comentario, mensaje y enviar a cada registro.
De antemano mil gracias por su explicacion
Adios

Hola, yo lo hago así utilizando el Outlook Express:

LOCAL ox, msg, oHtml

WAIT WINDOW "Enviando pedido por correo electrónico..." NOWAIT

*Change the subject property of the message object
*Change the text property of the message object
lcTexto = "Texto del mensaje... "

SET CLASSLIB TO mapimail
oMail=CREATEOBJECT("cusmapi")

* Call the send method of outbox
* SendMail(<username>,<password>,<direccion>,;
* <subject>,<text>,<attach_file>)
oMail.SendMail("","",lcMailTo,"El Asunto",ALLTRIM(lcTexto),"")

WAIT CLEAR

Por supuesto, en el ejemplo anterior la variable "lcMailTo" debe contener la dirección de correo a la que se envía el mensaje.
Suert. :)

Aqui tienes un ejemplo mas simple, usa el outlook, los mensaje van directo a la bandeja de salida


oOutlook = CREA ("outlook.application")
oMail = oOutlook.createitem(0)
oMail.body = 'Mensaje que deseas enviar'
oMail.ATTACHMENTS.ADD (Nombre de a atachar)
oMail.RECIPIENTS.ADD('[email protected]')
oMail.Subject = 'Aqui pones el asunto'
oMail.DISPLAY
oMail.send
oMail = .NULL.
RELEASE oMail
oOutlook = .NULL.
RELEASE oOutlook

Ojalá te sirva.

Atte RHOD