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

Imágen de perfil
Val: 52
Ha aumentado su posición en 3 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Enviar Mail con CDOgráfica de visualizaciones


FoxPro/Visual FoxPro

estrellaestrellaestrellaestrellaestrella(11)
Publicado el 9 de Octubre del 2014 por Diego
13.607 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
estrellaestrellaestrellaestrellaestrella(11)

Publicado el 9 de Octubre del 2014gráfica de visualizaciones de la versión: 1
13.608 visualizaciones desde el 9 de Octubre del 2014
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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 (11)

30 de Noviembre del 2014
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder
Sergio
29 de Marzo del 2015
estrellaestrellaestrellaestrellaestrella
Hola

Gracias por el aporte. el código funciona muy bien.
Saludos
Responder
Anibal
1 de Diciembre del 2015
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
Le agregue las dos lineas y me sigue dando el problema de CDO.MESSAGE1 Error de Transporte
Responder
Atilio
11 de Noviembre del 2019
estrellaestrellaestrellaestrellaestrella
* 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") = "appsoportes@gmail.com"
.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 = "jams_siga_jams@hotmail.com"
.From = "appsoportes@gmail.com"
.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

Comentar la versión: 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s2783