FoxPro/Visual FoxPro - alguien tiene un modelo formul. para enviar email

Les agradecere que me ayuden enviandome un modelo de formulario para enviar correos en visual foxpro y si pueden adjuntar sus clases por favor. Gracias

Tengo un puño de formularios pero no se cual quieres.

Bye...

Escribeme si quieres..

ObjMail = CreateObject("CDONTS.NewMail")
*'introducir la dirección de correo donde se recibira el formulario
ObjMail.To = "[email protected]"
*'Cambia la dirección de e-mail (correo que aparecera como remitente)
ObjMail.From = "[email protected]"
*'titulo que aparecera como subject del mensaje puedes elegir el titulo que quieras
ObjMail.Subject = "el subject"
ObjMail.Body = "el cuerpo del mensaje"
ObjMail.Send
ObjMail = null

esta fuente necesita CDONTS, por lo general lo puedes correr en el servidor web.

espero te sirva.
Saludos.
Carlos Rojas
Lima-Perú