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

Imágen de perfil

Enviar Mail con CDOgráfica de visualizaciones


FoxPro/Visual FoxPro

estrellaestrellaestrellaestrellaestrella(4)
Publicado el 09 de Octubre del 2014 por Diego
4.417 visualizaciones desde el 09 de Octubre del 2014. Una media de 42 por semana
Procedimiento para enviar por mail usando CDO de Microsoft, pero usando una cuenta Gmail
con posibilidad de construir un mensaje en HTML

1
estrellaestrellaestrellaestrellaestrella(4)

Publicado el 09 de Octubre del 2014gráfica de visualizaciones de la versión: 1
4.418 visualizaciones desde el 09 de Octubre del 2014. Una media de 42 por semana
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 (4)

ebbe
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
01 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

Comentar la versión: 1

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

http://lwp-l.com/s2783