envio de correo Con CDO

[luisandrey]

Hola amigos.

desde hace unos 4 o 5 años venía trabajando bien con este código de envío de correo por CDO, que es una adaptación de un código de un articulo de Luis Maria Guayan, hasta que en estos días algo sucedió con el servidor de correo de nosotros, que dicho sea de paso, es a través de hostmonster.

De soporte de Hostmonster, un dia de la semana pasada que no salían los correos, ni nos abría la consola de mantenimiento, ni abría las cuentas de correo, nos dijeron que efectivamente ellos tenían problemas, pero pasada 2 o 3 horas, ellos ya habían restablecido su servicio, pero a mi no me funcionaba el envio de correo por CDO.

Este es nsaje de error que reporta:

OLE código de excepción IDispatch 0 de:? El Servidor Rechazo la Dirección del Remitente. Respuesta del Servidor: 501 <xxx...@habixxxxx.com: '>' que falta al final de la dirección

Les comparto el codigo:

LOCAL loCfg, loMsg, lcFile, lcFile1, loErr

TRY

 loCfg = CREATEOBJECT ("CDO.Configuration")

 CON loCfg.Fields

 .item ("Http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.haxxxxxxxxx.com"

 .item ("Http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 26 ó 26 &&

 .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") = .F.

 .item ("Http://schemas.microsoft.com/cdo/configuration/sendusername") = ALLTRIM (envio.cuentacorreo)

 .item ("Http://schemas.microsoft.com/cdo/configuration/sendpassword") = ALLTRIM (envio.clave)

 .Update

 ENDWITH

 loMsg = CREATEOBJECT ("CDO.Message")

 CON loMsg

 .Configuration = LoCfg

 * - Remitenete Y Destinatarios

 .Desde = Envio.nombre_vendedor + "<" + envio.cuentacorreo + ">"

 .Para = "<" + ALLTRIM (thisform.pgfOpc.pagEnviar.txtTo.Value) + ">"

 .cc = "<" + ALLTRIM (thisform.pgfOpc.pagEnviar.txtCC.Value) + ">"

 * - NOTIFICACION de lectura

 .Fields ("Urn: schemas: mailheader: disposición a la notificación-a") = .Desde

 .Fields ("Urn: schemas: mailheader: return-recepción-a") = .Desde

 .Fields.Update

 * - Tema

 .SUBJECT = ALLTRIM (thisform.pgfOpc.pagEnviar.txtTema.Value)

 

 * - Formato HTML desde la Web

 .TextBody = ALLTRIM (thisform.pgfOpc.pagEnviar.edtCuerpo.Value)

 * - Archivo adjunto

SI VACÍO (lcFile1)

FOR i = 1 TO nadjuntos

.AddAttachment (Aadjuntos [i])

ENDFOR

ENDIF

 

 * - Envio El Mensaje

 .send ()

 ENDWITH

CATCH A loErr 

MESSAGEBOX ("No se Pudo enviar el Mensaje" + CHR (13) +;

 "Error:" + TRANSFORM (loErr.ErrorNo) + CHR (13) +;

 "Mensaje:" + loErr.Message, 16, "Error")

FINALMENTE

 loMsg = NULL

 loCfg = NULL

EndTry

De antemano muchas gracias por todo lo que me puedan ayudar.

Un abrazo

[Edgar Acevedo]

Si todo esta bien, luego hubo "problemas" y luego se restauró el servicio... ¿No será que cambiaron algún parámetro como que ahora debes usar SSL y antes no, o que ya no requiere autentincación y antes si, o cambiaron sus puertos?  Es decir, ¿no será que "los problemas" de los que te hablaron habrían sido provocados por cambios en sus servidores de correo?

Saludos,

[Luis suescún]

Edgar, muchas gracias por tu ayuda.

 

Si, yo les hablé del tema y ellos solo saben decir que ellos ya tienen el servicio normalizado, pero no reportan algún cambio.

miraré en las reglas de configuración de cuentas de correo, a ver si hay alguna novedad.

 

un abrazo

 

[Moises Daniel Vilchez Tello]

Amigo lograste solucionar el inconveniente?, 

tengo el mismo problema.

--

Moises Daniel Vilchez Tello
Chiclayo - Lambayeque - Peru

[Manuel Zevallos]

Amigos...solo una consulta, como tengo que hacer para adicionar "n" destinatarios??

Saludos..

MZ

--

Atentamente,     Manuel Zevallos B. 9-8860-1297 Entel   http://www.solucionesmz.com

[Moises Daniel Vilchez Tello]

usa la coma

[Manuel Zevallos]

Ok..probaré...,muchas gracias!!

[Jean Pierre Adonis De La Cruz Garcia]

A mi me pasaba lo mismo lo que sucede que  debes configurar los permisos de tu email de salida.

Si te das cuenta quizas te ha llegado un email al SPAM, mencionando que estan tratandod e hacer uso de tu email, simplemente debes de darle los permisos adecuados.

Espero que me hayas entendido, este tema se hablo hace mucho tiempo, 

Estas son las politicas de seguridad desalida de email, especialmente el 3er punto.

http://bitexperience.blogspot.com.ar/2015/01/enviar-correos-usando-smtp-con-una.html

Aca el tema que referian lo mismo

https://groups.google.com/forum/?hl=es#!searchin/publicesvfoxpro/email$20cdo$202015/publicesvfoxpro/mCAJNzkFwXM/2McsrZNXeF8J

[Moises Daniel Vilchez Tello]

Es correcto lo que indica Jean Pierre, tenia el mismo problema 

[Manuel Zevallos]

Jean Pierre..te agradezco la información.

Haré lo que indicas, pero creo que el tema va mas por la inhabilitacion de puertos en mi empresa ya que desde mi casa y otro cliente la rutina funciona correctamente. Igual haré las pruebas.

Manuel

El 29 de mayo de 2015, 11:35, Jean Pierre Adonis De La Cruz Garcia <elconsultor...@gmail.com> escribió:

[Antonio Meza]

Manuel, le presione el link para ver tu pagina web y algo tienes mal en tu firma, le falta una W.

saludos

[Manuel Zevallos]

si??????????????????

REVISO.

[Manuel Zevallos]

Ya está...gracias por el aviso.

El 29 de mayo de 2015, 11:53, Antonio Meza <solv...@gmail.com> escribió: