Código de FoxPro/Visual FoxPro - Enviar Mail con CDO

Enviar Mail con CDO

FoxPro/Visual FoxPro

(13)

Publicado el 9 de Octubre del 2014 por Diego (4 códigos)

23.130 visualizaciones desde el 9 de Octubre del 2014

Procedimiento para enviar por mail usando CDO de Microsoft, pero usando una cuenta Gmail
con posibilidad de construir un mensaje en HTML

1
(13)

Publicado el 9 de Octubre del 2014

gráfica de visualizaciones de la versión: 1

23.131 visualizaciones desde el 9 de Octubre del 2014

PROCEDURE ENVIAMAIL

LPARAMETERS XASUNTO,XMENSAJE,XCORREO

LOCAL loConfig AS CDO.Configuration, loFlds AS Object, loMsg AS CDO.Message

loConfig = CREATEOBJECT("CDO.Configuration")

loFlds = loConfig.Fields

WITH loFlds

	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

	.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10

	.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .t.

	.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dirsisadm@gmail.com"

	.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"

	.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 3

	* .item("http://schemas.microsoft.com/cdo/configuration/cdoURLProxyServer") = "smtp.mail.yahoo.com"

	.Update()

ENDWITH

loMsg = CREATEOBJECT("CDO.Message")

WITH loMsg

	.Configuration = loConfig

	.To = XCORREO

	.From = "dirsis@gmail.com"

	.Subject = XASUNTO

	XHTML="<TABLE><TR><TD>"+STRTRAN(XMENSAJE,"*","</TD></TR><TR><TD>")+"</TD></TR><TABLE>"

	.HTMLBody = XHTML

TRY

		.Send()

	CATCH TO oerr

		MESSAGEBOX(oerr.message)

	ENDTRY

ENDWITH

Comentarios sobre la versión: 1 (13)

ebbe

30 de Noviembre del 2014

No ha dejado ningún comentario

Responder

Sergio

29 de Marzo del 2015

Hola

Gracias por el aporte. el código funciona muy bien.
Saludos

Responder

Anibal

1 de Diciembre del 2015

buenos dias, me tira un error, OLE IDispatch exception code 0 from CDO.Message.1: Error de Transporte en la conexion al servidor
como lo puedo solucionar?
Muchas gracias

Responder

HILDER

22 de Mayo del 2016

Me funciona con visual fox pro 6.0 pero cuando envia el correo no hace caso al .from sino al sendusername. Yo necesito que en el correo que se envia haga caso al from. Como hago?

Responder

hugoosjuarez

7 de Marzo del 2017

el codigo funciona correctamente, sin embargo cuando lo he probado en windows server 2003 me da un error "Error de transporte en la conexión al servidor."

Responder

Gerardo

29 de Mayo del 2017

Hola, lo quise probar en VFP 9 con Windows Seven y me da el error "Error de transporte en la conexión al servidor". Debo tener configurado algún programa en particular en la pc como predeterminado para enviar correos?. Tengo configurado el Microsoft Outlook del Office 2007 el cual me enviar bien los correos.

Responder

Markcelo

12 de Octubre del 2018

Solución:

Se resuelve agregando ésta 2 líneas:

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .T.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T.

Saludos!

Responder

Carlos Alfaro

9 de Enero del 2018

Efectivamente despues de muchas pruebas parece ser que el metodo ya no funciona, sin embargo al parecer ya nadie responde sobre el tema.

Responder

alberto

21 de Febrero del 2018

a mi me funciona bien en windows 7
algo configure en el gmail pero no me acuerdo ahorra
era sobre la seguridas creo.

Responder

Atilio

11 de Noviembre del 2019

Le agregue las dos lineas y me sigue dando el problema de CDO.MESSAGE1 Error de Transporte

Responder

Atilio

11 de Noviembre del 2019

* el codigo con las 2 lineas

*!* PROCEDURE ENVIAMAIL
*!* LPARAMETERS XASUNTO,XMENSAJE,XCORREO
LOCAL loConfig AS CDO.Configuration, loFlds AS Object, loMsg AS CDO.Message
loConfig = CREATEOBJECT("CDO.Configuration")
loFlds = loConfig.Fields
WITH loFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .t.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .T.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T.
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Face197819791978"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 3
* .item("http://schemas.microsoft.com/cdo/configuration/cdoURLProxyServer") = "smtp.mail.yahoo.com"
.Update()
ENDWITH
loMsg = CREATEOBJECT("CDO.Message")
WITH loMsg
.Configuration = loConfig
.To = "[email protected]"
.From = "[email protected]"
.Subject = "Prueba de Correo"
XHTML="<TABLE><TR><TD>"+STRTRAN("este es una prueba del mensaje","*","</TD></TR><TR><TD>")+"</TD></TR><TABLE>"
.HTMLBody = XHTML
TRY
.Send()
CATCH TO oerr
MESSAGEBOX(oerr.message)
ENDTRY
ENDWITH

Responder

freddy

11 de Noviembre del 2022

ese problema en la mayoria de los casos es tu proveedor de internet que filtra algunas conexiones o cosas en el firewall , en mi casa con un proveedor de internet no me funciona y en donde trabajo que es otro proveedor diferente si me funciona perfecto por eso es que les indico que es el proveedor de internet

Responder