FoxPro/Visual FoxPro - Envio de emails con FoxPro 6.0

Tengo una base de datos de mis clientes y uno de los campos es la direccion de correo electronico, deseo un programa para enviar emails a mis clientes. Gracias.

Este autor ofrece varias alternativas de envio de correo.

http://www.portalfox.com/index.php?name=Sections&req=listarticles&secid=6

prueba esto

Local oSession As MSMAPI.MAPISession
Local oMsg As MSMAPI.MAPIMessages

oSession = Createobject("MSMAPI.MAPISession")
oMsg = Createobject("Msmapi.MapiMessages")

oSession.DownLoadMail = .F.
oSession.SignOn
oMsg.sessionid = oSession.sessionid
cDestino = "[email protected]"

With oMsg
.compose
.MsgIndex = -1
.msgsubject = "Titulo"
.msgnotetext = "Texto del mensaje"
.AddressResolveUI = .F.
.RecipAddress = cDestino

* En caso que desee adjuntar archivos
* En el ejemplo se adjuntas 2 archivos
*------------------------------------------
.AttachmentIndex = 0
.AttachmentName = "datos1.ext"
.AttachmentPathName = "C:\datos1.ext"
.AttachmentIndex = 1
.AttachmentName = "datos2.ext"
.AttachmentPathName = "C:\datos2.ext"
*-------------------------------------------

.Send
oSession.signoff
EndWith

Release oMsg
Release oSession

suerte