problema al enviar correo con autentificacion
 

Estimados, resulta que tengo una plaicación que entre otra cosas envía correo electrónico. Recientemente, se modificó algunas propiedades del host y ahora es necesario autentificarse.

Les dejo el código con el cual enviaba correo.

Código Delphi [-]
     With IdMessage1 Do
     Begin
Body.Clear;
Body.Add('mensaje en correo');
Body.Add(datetostr(now)+', '+timetostr(now));
 
From.Text := '[email protected]';
Recipients.EMailAddresses := '[email protected]';
Subject := 'envío correo';
Priority := TidMessagePriority(mpHighest);
     End;
 
     With IdSMTP1 do
     Begin

          Username := '[email protected]';
          Password := 're1234';
          Host     := 'mail.cainsa.cl';
          Port     :=  25;
          try
             Connect;
             Try
                Send(IdMessage1);
             Finally
                Disconnect;
             End;
             ShowMessage('Se envio el mail en forma correcta');

          Except
                   ShowMessage('Fallo en el envio de email');
          End;
         If Connected Then Disconnect;
     End;

Que estaré haciendo mal?
Que necesito para corregir esto?

Saludos

Y ¿qué problema tienes? ¿Te manda algún mensaje de error? ¿Cuál?

// Saludos

se va la excepción 'Fallo en el envio de email'

si le saco el try, me arroja socket error # 10061. connection refused.

Lo primero que debes hacer es contactar al administrador del servidor de correo para inquirir sobre los parámetros adecuados para la conexión y así no estar dando palos de ciego. Es posible que haya cambiado el puerto por defecto (25) o esté usando otro protocolo para la conexión.

// Saludos

yo nuevamente por acá, logré contactarme con el administrador de correo y me envió la siguiente info.

usuario:= [email protected]
Password = ******

servidor entrante POP = mail.cainsa.cl
puerto POP = 110
requiere autenticación = SI
Requiere SSL/TLS = NO

servidor saliente SMTP = mail.cainsa.cl
puerto SMTP= 25
requiere autenticación = SI
Requiere SSL/TLS = NO


Modifiqué estos parámetros, pero no lofro que envíe correo.
Alguien por favor que me ayude.

Gracias.

Hola, acabo de ponerle asteriscos a tu contraseña por el caso de que fuera la verdadera. No querrás que usemos tu cuenta para mandar spam, ¿verdad? :)

// Saludos

Claro que no, pero incluí la pass para que intentaran enviar un correo, ya la cambiaré cuando este esto resuelto.

Alguna idea de como enviar los correos??

Alguna idea de como resolver esto??

Finalmente hablé con el administrador de servicio de correo, y simplemente modificando el puerto (ahora en 26), logré que enviara correos. Nunca se supo por que fue esto, ya que los los puerto están configurados exactamente iguales.

Luego de resolver los últimos detalles de la aplicación, se distribuyó funcionando en todos los sistemas operativos, salvo en Windows XP embedded. Me arroja Invalid code page.

Imaginando que es una versión mas reducida de Windows, copie las librerias: libeay32.dll y ssleay32.dll.
Será que necesito algún otro archivo?
Necesitaré otra versión de las librerias?

Utilizo Delphi 2010, con las Indy que vienen incluidas.

Espero me puedan ayudar.
Gracias.