Error de OLE Dispatch y componente CDO

[Pedro Olivares]

Saludos a los del foro:

Problema: antes de reinstalar Windows (xp) la rutina CDO funcionaba bien. Ahora, sale el error y no sé si es la rutina ó Google mail, que cambiaron la política de usar programas menos seguros.

Parámetros usados:

puerto = 465

enviar usando = 2

validar SMPT = .T.

usar SSL = .T.

Gracias de antemano por su ayuda.

[ZeRoberto]

Seria mejor que muestres todo el código

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

--
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/74064dd6-0a3c-48ae-a703-528e290b883f%40googlegroups.com.

[Pedro Olivares]

*****************************************************************************

* Send_Mail

* Params:

* 1= destinatario

* 2= Titulo del mensaje

* 3= Texto

* 4= Adjuntos

*****************************************************************************

PROCEDURE Send_Mail

LPARAMETERS tcDestino, tcSubject, tcText, tcAttach

* Cargar valores del ISP desde archivo configurar_isp.mem

IF FILE("configurar_isp.mem")

RESTORE FROM configurar_isp ADDITIVE 

ELSE 

= MESSAGEBOX("Verifique que esté configurado el servidor ISP",48,"No se encontró el archivo de configuración")

RETURN 

ENDIF

* Verifica los campos del servidor ISP.

IF EMPTY(m.cdo_cServer) OR EMPTY(m.cdo_nPort) OR EMPTY(m.cdo_nSendUsing) ;

OR EMPTY(m.cdo_lAuthenticate) OR EMPTY(m.cdo_lUseSSL) ;

OR EMPTY(m.cdo_cUserName) OR EMPTY(m.cdo_cPassword)

= MESSAGEBOX("Verifique que esté configurado el servidor ISP correctamente",48,"Faltan datos")

RETURN 

ENDIF 

* Verifica que trae los parámetros necesarios para enviar mensaje.

IF EMPTY(tcDestino) OR EMPTY(tcSubject) OR EMPTY(tcText)

= MESSAGEBOX("Verifica Destinatario, Asunto ó el texto",48,"Faltan datos")

RETURN

ENDIF 

  TRY 

  * Intento de envío.

  LOCAL lcSchema, loConfig, loMsg, loError, lcErr

  lcErr = ""

  lcSchema = "http://schemas.microsoft.com/cdo/configuration/"

  loConfig = CREATEOBJECT("CDO.Configuration")

  WITH loConfig.FIELDS

    .ITEM(lcSchema + "smtpserver") = ALLTRIM(m.cdo_cServer)

    .ITEM(lcSchema + "smtpserverport") = m.cdo_nport

    .ITEM(lcSchema + "sendusing") = m.cdo_nSendUsing

    .ITEM(lcSchema + "smtpauthenticate") = m.cdo_lAuthenticate

    .ITEM(lcSchema + "smtpusessl") = m.cdo_lUseSSL

    .ITEM(lcSchema + "sendusername") = ALLTRIM(m.cdo_cUserName)

    .ITEM(lcSchema + "sendpassword") = ALLTRIM(fn_Desencripta(m.cdo_cPassword))

    .UPDATE

  ENDWITH

loMsg = CREATEOBJECT ("CDO.Message") 

WAIT 'Enviando respaldo de datos a cuenta de correos' WINDOW NOWAIT 

  CATCH TO mError

  WITH loMsg

    .Configuration = loConfig

    .FROM = ALLTRIM(m.cdo_cUserName)

    .TO = ALLTRIM(tcDestino)

    .Subject = ALLTRIM(tcSubject)

    .TextBody = ALLTRIM(tcText)

    .AddAttachment (tcAttach)

.Send()

  ENDWITH

FINALLY 

WAIT 'Respaldo enviado' WINDOW 

  ENDTRY 

*---

El miércoles, 26 de junio de 2019, 23:09:46 (UTC-4), ZeRoberto escribió:

Seria mejor que muestres todo el código

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

El mié., 26 de jun. de 2019 a la(s) 14:53, Pedro Olivares (prim...@gmail.com) escribió:

Saludos a los del foro:

Problema: antes de reinstalar Windows (xp) la rutina CDO funcionaba bien. Ahora, sale el error y no sé si es la rutina ó Google mail, que cambiaron la política de usar programas menos seguros.

Parámetros usados:

puerto = 465

enviar usando = 2

validar SMPT = .T.

usar SSL = .T.

Gracias de antemano por su ayuda.

--
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

[ZeRoberto]

Esta todos bien, no sera que el firewall este bloqueando tu aplicacion?

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/6604e3f0-4db5-4acc-860c-268c1b9656ad%40googlegroups.com.

[Pedro Olivares]

Desactivé el Firewall...nada.

Ahora, estuve viendo ayer que este componente tiene que estar muy bien instalado en el System32 de Windows, se llama CDO.dll y otro cdosys.dll y con todo eso, no envía nada. Seguiré buscando.

---

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/6604e3f0-4db5-4acc-860c-268c1b9656ad%40googlegroups.com.

[ZeRoberto]

Desactiva el antivirus solo para descartar 

Saludos 

Ze

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/b4ef43d7-69c6-4edf-b960-ea39640239e9%40googlegroups.com.

[Antonio Meza]

Tienes activada la seguridad de "Acceso de aplicaciones poco seguras" en la cuenta que usas para enviar los correos de GMAIL

https://myaccount.google.com/lesssecureapps

saludos

Antonio Meza

[Pedro Olivares]

El problema es: la cuenta de Gmail. no te deja enviar correo desde VFP. Lo mismo que dijo Antonio Meza. Ahora, configuré el SMTP en VFP para usar mi cuenta alternativa de Yahoo y llegó como una bala.

Gracias a todos por su atención.

----

[Antonio Meza]

Uso todos los días GMAIL para enviar correos desde VFP, si se puede, solo tienes que configurar la cuenta de GMAIL activando el Acceso de aplicaciones poco seguras desde el link que te mande.

saludos

Antonio Meza

[ZeRoberto]

Que puerto usas? 465?

--
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/c68b307b-8449-41e7-8f80-d0716063d980%40googlegroups.com.