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

1
estrellaestrellaestrellaestrellaestrella(13)

Publicado el 9 de Octubre del 2014gráfica de visualizaciones de la versión: 1
22.596 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 (13)

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") = "[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
estrellaestrellaestrellaestrellaestrella
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
Imágen de perfil
16 de Marzo del 2023
estrellaestrellaestrellaestrellaestrella
Gmail cambiò hace tiempo por cuestiones de incrementar la seguridad.
Responder

Comentar la versión: 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s2783