Este es un completo ejemplo de como puedes enviar email utilizando MAPI; tienes que tener en cuenta que es necesario que tengas configurada una cuenta de correos en tu PC para poder probar este ejemplo.
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 = "para@dominio.com"
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
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
