Error al enviar correo con CDO.

[ultraton500]

Buenas noches compañeros del foro, al reutilizar un código de envío de correo me encuentro con el siguiente error:

No se ha podido enviar el mensaje
Error: 1429
Mensaje: OLE IDispatch exception code 0 from CDO.Message.1: Se requiere al menos rellenar el campo De o el campo Remitente, pero no se encontró ninguno..

No lo había vuelto a usar desde que lo dejé funcionando en XP, ahora tengo W7 y no funciona. No recuerdo si en aquel entonces lo probé en Vista pero ahora lo probé y obtengo el mismo error.

La información que se encuentra en google es escasa y por eso quería preguntarles si les ha ocurrido y cómo lo han solucionado porque mi aplicación queda inutilizada si no pue enviar correos.

Les agradezco de antemano cualquier información al respecto.

Saludos cordiales, 

Javier.

[Ricardo Pina]

hola Javier

 

publica tu código de como lo estas usando para una mejor ayuda

 

SAludos

--

            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar

 

 

[ultraton500]

Qué tal Ricardo.. aquí va el código. Las variables lcRemitente, lcDestino, lcEmail,  lcClave, lcCuerpo y lcArchivoAExportar están bien cargadas al ejecutar el código. De todas formas probé reemplazándolas directamente pero nada cambia.

LOCAL loCfg, loMsg, lcFile, loErr, lcDestino, lcCuerpo

TRY
loCfg = CREATEOBJECT("CDO.Configuration")
WITH loCfg.Fields
.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/sendusing") = 2
.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") = lcEmail
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = lcClave
.Update
ENDWITH
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
.Configuration = loCfg
*-- Remitenete y destinatarios
.From = lcRemitente
.To = lcDestino
*- Notificación de lectura
.Fields("urn:schemas:mailheader:disposition-notification-to") = .From
.Fields("urn:schemas:mailheader:return-receipt-to") = .From
.Fields.Update
*-- Tema
.Subject = "Correo"
*-- Cuerpo
.TextBody = lcCuerpo
*-- Archivo adjunto
lcFile = gcRutaActual + lcArchivoAExportar

.AddAttachment(lcFile)

.Send() && Enviar el mensaje
ENDWITH
CATCH TO loErr
MESSAGEBOX("No se ha podido enviar el mensaje" + CHR(13) + ;
"Error: " + TRANSFORM(loErr.ErrorNo) + CHR(13) + ;
"Mensaje: " + loErr.Message , 16, "Error")
FINALLY
loMsg = NULL
loCfg = NULL
ENDTRY

Saludos y gracias por tu interés.

Javier.

[Ricardo Pina]

Hola

 

Yo lo utilizo en forma similar en win7 sin inconvenientes, usando tu codigo le carge las variables y salio ok también

Lo probaste en varios equipos ?

 

[ultraton500]

Hola, lo probé en mi pc con W7 y en mi notebook con Vista, incluso con firewall desactivado.

Cuando lo implementé hace un par de años lo hice en XP y funcionaba bien.

Tendré que seguir averiguando y estando atento a cualquier sugerencia.

Te agradezco por las pruebas Ricardo.

Saludos cordiales,
Javier.

[arti...@gmail.com]

Cuando ese error me ha dado siempre ha sido algún parámetro mal especificado, un puerto, el servidor smtp o cualquier otro parámetro. También revisa la configuración del cortafuegos, por ahí van los tiros, hay algún parámetro incorrecto.

[Ricardo Pina]

Hola

 

Cuando hice la pueba con el código enviado solo cambie

 

lcEmail="mim...@gmail.com"
lcClave="miclave"

loMsg.FROM = lcEmail
loMsg.TO = "maildestino"
loMsg.Subject = "Correo"
loMsg.TextBody = "prueba"
lcFile = "" &&gcRutaActual + lcArchivoAExportar

el resto igual y salio perfecto, yo lo utilizo a diario desde todos mis sistemas y funciona sin problemas en distintas versiones de win

 

Cuentas correctas ?

Antivirus ?

que version de win7 y vista son ?

 

Saludos

 

El 11 de julio de 2013 04:14, arti...@yahoo.es <arti...@gmail.com> escribió:

Cuando ese error me ha dado siempre ha sido algún parámetro mal especificado, un puerto, el servidor smtp o cualquier otro parámetro. También revisa la configuración del cortafuegos, por ahí van los tiros, hay algún parámetro incorrecto.

[Douglas Sánchez]

Hola porque no haces un set step on y verificas que estas adjuntando en el cuerpo y archivo adjunto y asi veras cual es el problema a mi me paso algo similar y fue por la forma en que yo creaba las variables.

Saludes

Douglas

--
Ing. Douglas Sánchez Guillén

      Consultor Informatico

Claro: 505 88495476

[ultraton500]

Bueno, he solucionado el problema. Al comparar los cambios que Ricardo me indicó que hizo noté que en la línea ".From "estaba pasando el nombre del remitente en lugar del correo usado para el envío.

Asi que reemplacé ".From = lcRemitente" por ".From = lcEmail".

Sospecho que el error se debe a una modificación de último momento sin verificar hecha antes de guardarlo en mi repositorio personal de donde lo saqué.

Les estoy muy agradecido por la ayuda que me han dado, realmente me fué muy útil.

Saludos cordiales,

Javier.

[Carton Jeston]

He usado el tipico codigo para enviar Gmail por CDO ...

TRY
  LOCAL lcSchema, loConfig, loMsg, loError, lcErr
  lcErr = ""
  lcSchema = "http://schemas.microsoft.com/cdo/configuration/"
  loConfig = CREATEOBJECT("CDO.Configuration")
....

Sigue funcionando en todos los windows que he probado pero con un windows 8.1 64bits me sale el error del que hablan en este hilo. Como detalle, usan office 2003 en este pc y seria lo primero que hubiera quitado sino llego a leer esto aunque no se si tiene que ver...

Windows 8, 8.1 or RT Mail

 

Microsoft's Mail app included in Windows 8 and 8.1 does not support mail code to send messages created by apps running in the Windows Desktop mode. Trying to send email from a desktop app can lead to mapi or clsSend errors.  

 To email from a desktop app (such as CTI Navigator Desktop) in Windows 8 or 8.1, first install and configure a desktop email app such as Windows Live Mail, Office Outlook, or Mozilla Thunderbird. (For information on Windows email programs, see "Setup and Use Email Service to Send MLS Reports..." in the related articles at the end of this web page.) It is not necessary to install a desktop email app in Windows 8 or 8.1 if you use CTI Navigator Web (or CTI Navigator Mobile) instead of CTI Navigator Desktop to email MLS information.    

Windows RT currently does not allow desktop email apps to be installed, and does not allow plug-ins (such as Silverlight) to be installed in its Internet browser. Consequently, only CTI Navigator Mobile can be used in Windows RT. Any web enabled device (including Windows RT, Apple iOS, or Android) can send email from CTI Navigator Mobile because Navigator Mobile uses CTI's Internet server to send email.

¿Le ha pasado a alguien mas? La otra solucion que tengo es montar un pc viejo y probar sin instalar nada mas, pero pregunto por aqui a ver si me ahorro de pasar ese horror :-D

un saludo

[Antonio Meza]

De esta PC que te escribo uso Windows 8.1 pro a 64bit y no tengo problemas, que error te marca?

si quieres pasarme el código y lo pruebo!!

NOTA: No te lo voy a piratear jajajaj porque hay un post donde se armo la cosa buena de pedir los códigos, o si gusta te paso el código que tengo!!!

saludos

Antonio Meza

[Allan Raúl Acuña]

Hola Antonio,

Mejor comparte lo que tienes, ya que tengo un programita que me hice para enviar correos masivos que hace un tiempo me funcionaba con CDO y ahora no.

Saludos cordiales.

Lic. Allan Raúl Acuña
Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft
            +(505) 8 999 8950

Managua, Nicaragua

Centroamérica

---

Date: Fri, 26 Sep 2014 14:46:46 -0700
From: solv...@gmail.com
To: publice...@googlegroups.com
Subject: Re: [vfp] Error al enviar correo con CDO.

[Carton Jeston]

Es el tipico codigo que saque de portalfox o que se pone por aqui y es bastante conocido....

TRY
  LOCAL lcSchema, loConfig, loMsg, loError, lcErr
  lcErr = ""
  lcSchema = "http://schemas.microsoft.com/cdo/configuration/"
  loConfig = CREATEOBJECT("CDO.Configuration")

  WITH loConfig.FIELDS
    .ITEM(lcSchema + "smtpserver") = "smtp.gmail.com"
    .ITEM(lcSchema + "smtpserverport") = 465 && ó 587
    .ITEM(lcSchema + "sendusing") = 2
    .ITEM(lcSchema + "smtpauthenticate") = .T.
    .ITEM(lcSchema + "smtpusessl") = .T.
    .ITEM(lcSchema + "sendusername") = "MI-E...@gmail.com"
    .ITEM(lcSchema + "sendpassword") = "MI-CONTRASEÑA"
    .UPDATE
  ENDWITH
  loMsg = CREATEOBJECT ("CDO.Message")
  WITH loMsg
    .Configuration = loConfig
    .FROM = "MI-EMAIL@gmail.com"
    .TO = "EMAIL-DES...@gmail.com"
    .Subject = "ASUNTO"
    .TextBody = "EL CUERPO DEL MENSAJE"
    .Send()
  ENDWITH


CATCH TO loError
  lcErr = [Error: ] + STR(loError.ERRORNO) + CHR(13) + ;
    [Linea: ] + STR(loError.LINENO) + CHR(13) + ;
    [Mensaje: ] + loError.MESSAGE
FINALLY
  RELEASE loConfig, loMsg
  loConfig=.NULL.
  loMsg=.NULL.
  IF EMPTY(lcErr)
    MESSAGEBOX("El mensaje se envió con éxito", 64, "Aviso")
  ELSE
    MESSAGEBOX(lcErr, 16 , "Error")
  ENDIF
ENDTRY

Ahora mismo funciona con xp y windows 7 32... y no recuerdo haber tenido problemas con win7 64 hasta que he puesto el win8.1 64

un saludo

[Antonio Meza]

Anexo un simple formulario que capturas los datos, puse dos botones para GMAIL y YAHOO, los oprimen ya solo cambian su usuario y contraseña, llenan los datos de envio, a ver que diferencia notas.

Como te comento tengo windows 8.1 pro a 64bit y realice la prueba y envia sin problema.

NOTA: Esta comprimido el formulario con www.7-zip.org

saludos

Antonio Meza

[Antonio Meza]

Cambie los datos de tu código y si lo envió sin problemas!!

En mi caso tengo office 2013 jeje

El viernes, 26 de septiembre de 2014 17:44:00 UTC-5, Carton Jeston escribió:

[Antonio Meza]

Si te sirve checar las versiones te anexo una pantalla de la version que tiene mi PC de CDOSYS.DLL

saludos

[Carton Jeston]

Es raro, rarisimo...

Igual que funcionaba en el pc con w7-64 y en w8.1-64 no, ahora si funciona. Creo que le ha pasado algo al pc con w81 que bloqueaba las conexiones.

He comprobado que tu codigo es primo hermano del mio y me daba tambien problemas. Quizas al apagar se soluciono todo pero no deja de ser mosqueante. Me huele que ha venido del antivirus y el filtro de red.

Bueno, ahora se que en teoria todo sigue correcto hasta con w8.1

Por cierto, he visto que has eliminado hotmail del formulario. ¿No funciona ya para CDO?

un saludo y muchas gracias ;-)

[Antonio Meza]

Hola!!

Con hotmail u outlook no funciona mas CDO, ya que el chistoso de Microsfoft usa seguridad TLS y CDO no lo soporta.

saludos

[Luis Maria Guayan]

Si funciona, acabo de verificar y se envió y recepcionó correctamente con el siguiente código:

-- Envío de correo electrónico por el servidor SMTP de Windows Live Hotmail --
http://comunidadvfp.blogspot.com/2009/03/envio-de-correo-electronico-por-el.html

CDO + VFP 9 SP2 + Windows 8.1

Luis María Guayán
Tucumán, Argentina
_____________________________
http://comunidadvfp.blogspot.com

[edgar suarez kummers]

Una maravilla de código, pero amarrado a Hotmail.

Cómo sería para cualquier servidor de correo y cuales puertos según el servidor que se escoja.

Yo lo tengo para GMAIL como el que envía e incluye título, cuerpo y anexo.

He visto que funciona para cualquier servidor de correo en otras aplicaciones, pero no tengo el código.

saludos

Edgar Suárez Kummers

[Antonio Meza]

El formulario que subí te sirve para cualquier tipo de servidor, solo necesitas tener los datos.

saludos

[Antonio Meza]

Hola Luis Maria!!

Ya probé de mil formas y con Hotmail / Outlook ni con cuentas de Office365 es posible enviar y hasta donde eh leído el problema es que CDO no soporta cifrado TLS que incorporo Microsoft a sus servidores.

Posiblemente tu cuenta sea aun terminación @hotmail y no este migrada o algo así, porque la mía es @outlook.com y no me deja enviar, según aquí muestran las posibles formas y nada.

http://windows.microsoft.com/es-MX/windows/outlook/send-receive-from-app
http://askleo.com/what_are_outlookcom_imap_pop3_and_smtp_settings/

Donde dice que se usa TLS-

SMTP

SMTP

SMTP is an acronym for Simple Mail Transfer Protocol, which is the protocol used to transport email messages from computer to computer until they reach their destination. SMTP is used ...continue reading »

FROM THE ASK LEO GLOSSARY

SMTP is used to send mail.

The SMTP configuration parameters for Outlook.com are:

• Server: smtp-mail.outlook.com
• Port: 25 (or 587 if 25 is blocked)
• Authentication: Yes
• Encrypted Connection: TLS
• User name: Your email address
• Password: Your password

[Luis Maria Guayan]

Solo tienes que configurar los puertos, el servidor SMTP, el cifrado, etc. tal cual lo haces con cualquier cliente de correo electrónico.

Mira mas artículos sobre CDO en el sig. enlace:

http://comunidadvfp.blogspot.com/search/?q=CDO

Luis María Guayán
Tucumán, Argentina
_____________________________
http://comunidadvfp.blogspot.com

[edgar suarez kummers]

Gracias Maestro LMG, muy útil la información.

Edgar Suárez Kummers

[Jorge Blas Diaz Armesto]

ME DA ERROR DE TRANSPORTE CUANDO NO UTILIZO HOTMAIL O GMAIL

[Jorge Blas Diaz Armesto]

COMO SERIA P[ARA UN SERVIDOR NORMAL DE OUTLOOK

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de edgar suarez kummers
Enviado el: Sunday, September 28, 2014 5:36 PM
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Error al enviar correo con CDO.

 

Una maravilla de código, pero amarrado a Hotmail.

[Jorge Blas Diaz Armesto]

NO, ME DA ERROR DE TRANSPORTE

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Antonio Meza
Enviado el: Sunday, September 28, 2014 6:10 PM
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Error al enviar correo con CDO.

 

El formulario que subí te sirve para cualquier tipo de servidor, solo necesitas tener los datos.

[Jorge Blas Diaz Armesto]

A MI ME PASA LO MISMO UTILIZO Outlook disculpen si escribí con mayúscula, no me di cuenta

Saludos blas

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Antonio Meza
Enviado el: Sunday, September 28, 2014 6:21 PM
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Error al enviar correo con CDO.

 

Hola Luis Maria!!

[Jorge Blas Diaz Armesto]

Me da error de transporte en la conexión del servidor usando el ejemplo en visual foxpro

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de edgar suarez kummers
Enviado el: Sunday, September 28, 2014 10:07 PM
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Error al enviar correo con CDO.

 

Gracias Maestro LMG, muy útil la información.

 

 

[Antonio Meza]

Es lo que comento que da error, lo que investigue es que mi proveedor tiene bloqueado el puerto 25, posiblemente en el caso de Luis Maria el puerto lo tenga libre y si trabaja solo con SSL, pero ya los otros puertos trabajan con TLS y como CDOSYS no funciona con TLS por eso nunca nos vamos a poder conectar con hotmail u outlook jajaja

saludos

[Jorge Blas Diaz Armesto]

Eso mismo colega eso mismo me parece a mi

[Carton Jeston]

Llevo media tarde peleando con outlook.com y demas.... mañana sera otro dia porque tengo la cabeza como un bombo.

Por mi experiencia con clientes, a algunos va y a otros no. Y lo mas normal es que de repente deje de funcionar, asi que es posible que su cuenta se ha actualizado.

De todos modos llevamos un tiempo con problemas con los servidores tradicionales como yahoo que siempre ha ido bien y ahora tienen algunas incidencias.

Seguire mirando mañana, creo que es un tema interesante y mas para los que usamos foxpreviewer, una facilidad para enviar pdf en nuestras aplicaciones que a los clientes hace que se les caiga la baba.

un saludo

[Luis Maria Guayan]

He probado con cuentas de @hotmail.com y @outlook.com y si funcionan ambas por el puerto 25

Lo tuyo no es un problema de CDO, ni de cifrado. Es que tu ISP tiene bloqueado el puerto 25

He probado el mismo código con el puerto 587 y allí si me arroja el error de transporte en la conexión

Luis María Guayán
Tucumán, Argentina
_____________________________
http://comunidadvfp.blogspot.com

[edgar suarez kummers]

Hazte una tabla para capturar el error dentro de un memo.

Envía el correo desde un programa compilado en VFP.

Hazle seguimiento con WAIT WINDOW "bla bla bla" timeout 3 && o lo que desees

 

Edgar Suárez Kummers

[Jorge Blas Diaz Armesto]

COMO HAGO PARA VER EL IPS Y VER SI ME HAN BLOQUEADO EL PUERTO 25

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Luis Maria Guayan
Enviado el: Monday, September 29, 2014 1:14 PM
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Error al enviar correo con CDO.

 

He probado con cuentas de @hotmail.com y @outlook.com y si funcionan ambas por el puerto 25

[Carton Jeston]

1)En esta pagina tienes un comprobador de email:

http://mxtoolbox.com/diagnostic.aspx

2) Luego esta por telnet...

En la consola de comandos ejecutar CMD

telnet smtp.google.com 25

telnet smtp.mail.yahoo.com 25

Si conecta, para salir escribir QUIT

Si tienes vista/7/8 seguramente tendran el servicio telnet desactivado. Para activarlo...

Accede a Inicio > Panel de Control > Programas.  Y dentro de “Programas”, haz clic en “Activar o desactivar las características de Windows”.  A continuación, activa la opción “Cliente Telnet”.

Despues de probar, por seguridad casi prefiero volver a desactivarlo.

3) Apagar el router. La mayoria de la poblacion tenemos ip dinamica, asi que cuando apagamos el router y se nos asigna otra, podria ser de alguien previamente baneado. Otras causas como dice Luis Maria es que tu proveedor de internet ha bloqueado a discreccion el puerto, o porque un virus ha estado haciendo los deberes en tu sistema, o tu firewall o router lo bloquea.

Creo que con alguna de estas opciones se puede conseguir algo, por lo menos informacion o bien perder la tarde como estoy haciendo ahora mismo :-D

un saludo

[Carton Jeston]

Voy a concretar un poco esto...

http://mxtoolbox.com/diagnostic.aspx

En el campo ponemos por ejemplo:

smtp.mail.yahoo.com

a la derecha hay un boton que pone MX Lookup y a su derecha una flecha de menu desplegable

Elegir PORT SCAN

Ahora pulsar sobre port scan y saldra una lista de los puertos abiertos, que seran el 25 y el 587, indicando a la izquierda una validacion en un circulo verde y a la derecha pone Success

Creo que es lo mas sencillo

un saludo
 

[Mario Guillermo Salica]

El miércoles, 10 de julio de 2013, 21:23:14 (UTC-3), Ultraton500 escribió:

Buenas noches compañeros del foro, al reutilizar un código de envío de correo me encuentro con el siguiente error:

No se ha podido enviar el mensaje
Error: 1429
Mensaje: OLE IDispatch exception code 0 from CDO.Message.1: Se requiere al menos rellenar el campo De o el campo Remitente, pero no se encontró ninguno..

No lo había vuelto a usar desde que lo dejé funcionando en XP, ahora tengo W7 y no funciona. No recuerdo si en aquel entonces lo probé en Vista pero ahora lo probé y obtengo el mismo error.

La información que se encuentra en google es escasa y por eso quería preguntarles si les ha ocurrido y cómo lo han solucionado porque mi aplicación queda inutilizada si no pue enviar correos.

Les agradezco de antemano cualquier información al respecto.

Saludos cordiales, 

Javier.

[Mario Guillermo Salica]

Hola que tal ? estaba viendo el post y tengo  el siguiente problema, tengo un sistema que hace envíos de mail con un adjunto que es un txt, son varios dispositivos que usan el mismo correo para hacer el envió del correo y se me presento el problema que en algunos casos no se envía el mail, el catch no toma ningun error pero los correos no llegan a los destinatarios o no salen, la cuenta que se utiliza es una gmail, si me pueden dar alguna sugerencia agradecido.

[mly]

Hola Antonio, buenas tardes.

Como estaba teniendo problemas utilizando CDO para enviar mails desde mi aplicación  en VFP9, descargué su formulario CORREO.SCX, y al ejecutarlo con gmail obtengo el siguiente error:

"Error 1429:

Ole Dispatch exception code 0 from ?: No se pudo enviar el mensaje al servidor SMTP. El código de error de transporte fue 0x80040217. La respuesta del servidor fue not available"

Es decir, pareciera no ser problema de mi código, dado que tampoco funciona con el suyo.

Tiene Ud. / alguien alguna idea de cuál puede ser la causa ? 

Saludos y gracias desde ya

Marcelo Yakimavicius

El viernes, 26 de septiembre de 2014, 19:51:55 (UTC-3), Antonio Meza escribió:

Anexo un simple formulario que capturas los datos, puse dos botones para GMAIL y YAHOO, los oprimen ya solo cambian su usuario y contraseña, llenan los datos de envio, a ver que diferencia notas.

Como te comento tengo windows 8.1 pro a 64bit y realice la prueba y envia sin problema.

NOTA: Esta comprimido el formulario con www.7-zip.org

saludos

Antonio Meza

[Antonio Meza]

Hola puede ser que te haga falta configurar la seguridad de aplicaciones no seguras en GMAIL, 

también puedes probar una librería que hice en C# para VFP, pero de igual forma requiere habilitar aplicaciones no seguras en GMAIL, pero con esta librería puedes enviar correos a cuentas de hotmail, office365, y desde luego a otro proveedores.

https://foxydb.wordpress.com/csfoxysmtp/

saludos

Antonio Meza