Envío de correos con INDY9

[mRoman]

Amigos, retomando el tema:

Instalé en una Maquina virtual win7 32 bits, instalé Delphi7, Desinstalé Indy9 e Instalé Indy10.

Lo anterior para hacer pruebas de envío de correo.

CASIMIRO me paso unas DLL que ya bajé y copié al mismo directorio donde esta mi ejecutable.

Envía el siguiente error

https://ibb.co/dJS2vMn

CODIGO

Código Delphi [-]
procedure TForm1.btnEnviarClick(Sender: TObject);
begin
    SMTP.Port     :=587;
    smtp.Host     :='smtp.gmail.com';
    smtp.AuthType :=atDefault;
    smtp.Username :='[email protected]';
    smtp.Password :='fayhxquevfbflre';
    smtp.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
    smtp.UseTLS   :=utUseExplicitTLS;

     with correo do
     begin
          Recipients.Add;
          Recipients[0].Name:='CLIENTE';
          Recipients[0].Address:='[email protected]';
          From.Name:='LAVANDERIA';
          From.Address:='[email protected]';
          Subject:='Envío de nota 99999 - LAVANDERIA';
          Body.Text:='CORREO DE PRUEBA';
     end;

     smtp.Connect;
     try
       try
         smtp.Send(correo);
         ShowMessage('Correo enviado satisfactoriamente');
       except
         on E: Exception do
            ShowMessage(E.Message);
       end;
     finally
       if smtp.Connected then
          smtp.Disconnect;
       correo.Free;
       smtp.Free;
     end;

end;

Agradeciendo sus aportes y comentarios de antemano, muchas gracias. Como puedo corregir este error??

p.d.1 Casimiro, gracias por último aporte -código- q me enviaste en este hilo, si me ayudó.
p.d.2 También copie las DLL en Windows\System32

Saludos y Gracias.

[mRoman]

Le cambié el puerto a 465 y marcó este error...

Ahora marca este error....

https://ibb.co/XWKjnQk

[Casimiro Noteví]

Las dll que te pasé funcionan en win64, seguramente ese es el problema que tienes.
Hay otros hilos donde puedes descargar esas mismas dll en distintas versiones, prueba con varias de ellas, seguro que es eso.

[mRoman]

Empezado por Casimiro Notevi

Las dll que te pasé funcionan en win64, seguramente ese es el problema que tienes.
Hay otros hilos donde puedes descargar esas mismas dll en distintas versiones, prueba con varias de ellas, seguro que es eso.

Ok. Gracias.

[mRoman]

Empezado por Casimiro Notevi

Las dll que te pasé funcionan en win64, seguramente ese es el problema que tienes.
Hay otros hilos donde puedes descargar esas mismas dll en distintas versiones, prueba con varias de ellas, seguro que es eso.

Baje desde este link https://github.com/IndySockets/OpenS...i386-win32.zip algunos ZIP's con las DLL para Win32, pero me sigue marcando error...

Saludos

[Casimiro Noteví]

Es necesario saber exactamente en cada ocasión qué parámetros estás usando, qué código, el mensaje de error exacto, etc.

[mRoman]

Empezado por Casimiro Notevi

Es necesario saber exactamente en cada ocasión qué parámetros estás usando, qué código, el mensaje de error exacto, etc.

Ok Casimiro, aqui los detalles.

CODIGO:

Código Delphi [-]
procedure TForm1.btnEnviarClick(Sender: TObject);
begin
    SMTP.Port     :=465;
    smtp.Host     :='smtp.gmail.com';
    smtp.AuthType :=atDefault;
    smtp.Username :='[email protected]';
    smtp.Password :='fayhxquevftflre';
    smtp.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
    smtp.UseTLS   :=utUseExplicitTLS;

     with correo do
     begin
          Recipients.Add;
          Recipients[0].Name:='CLIENTE';
          Recipients[0].Address:='[email protected]';
          From.Name:='LAVANDERIA';
          From.Address:='[email protected]';
          Subject:='Envío de nota 99999 - LAVANDERIA';
          Body.Text:='CORREO DE PRUEBA';
     end;

     smtp.Connect;
     try
       try
         smtp.Send(correo);
         ShowMessage('Correo enviado satisfactoriamente');
       except
         on E: Exception do
            ShowMessage(E.Message);
       end;
     finally
       if smtp.Connected then
          smtp.Disconnect;
       correo.Free;
       smtp.Free;
     end;

end;

COMPONENTES:

TIdMessage
TIdSMTP
TIdSSLIOHandlerSocketOpenSSL

Me falta algún componente?
Q componente debe ir relacionado con q otro?

Tengo relacionado TIdSMTP en su propiedad IOHandler a TIdSSLIOHandlerSocketOpenSSL

MENSAJE DE ERROR

Socket Error # 10060
Connection time out

PROPIEDADES DEL COMPONENTE TIdSSLIOHandlerSocketOpenSSL
https://ibb.co/5hPx17s

Gracias. Saludos.

[Casimiro Noteví]

Por qué no pruebas con los datos que te he dado antes, como te he comentado, está funcionando en muchas empresas.

[Neftali [Germán.Estévez]]

Empezado por mRoman

Ok Casimiro, aqui los detalles.
...
Me falta algún componente?
...
Q componente debe ir relacionado con q otro?

Hola.
He probado el código que has puesto (porque me parece correcto) y compilandolo tanto con Delphi 12 como con Delphi 7, me envía correo a través de GMail correctamente.
Hay varias cosas importantes:

1) La primera que afecta a ambos, es que he tenido que definr DOBLE autentificación en la cuenta de GMail, para que me deje definir contraseña por aplicación.
Para crear la contraseña por aplicación lo he tenido que hacer desde aquí:
https://myaccount.google.com/apppasswords

Accediendo a la cuenta del correo.

2) Lo segundo importante es dar con las DLL's de SSL apropiadas para cada versión.

Este es el código que he utilizado (como ves es el tuyo) en delphi 12:

Código Delphi [-]
procedure TFormMain.Button1Click(Sender: TObject);
begin

  // INi                                                                     begin
    SMTP.Port     :=465;
    smtp.Host     :='smtp.gmail.com';
    smtp.AuthType :=satDefault;
    smtp.Username :='[email protected]';       // Cuenta de correo de envío
    smtp.Password :='1111t 4567g fyfs fjda ';             // Contraseña NO de acceso a GMail, sino la que genera desde: https://myaccount.google.com/apppasswords
    smtp.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
    smtp.UseTLS   :=utUseExplicitTLS;

     with correo do
     begin
          Recipients.Add;
          Recipients[0].Name:='CLIENTE';
          Recipients[0].Address:='[email protected]';
          Recipients.Add;
          Recipients[1].Name:='Wolters';
          Recipients[1].Address:='[email protected]';
          From.Name:='LAVANDERIA Desde Delphi 12';
          From.Address:='[email protected]';
          Subject:='Envío de nota 99999 - LAVANDERIA';
          Body.Text:='CORREO DE PRUEBA';
     end;

     smtp.Connect;
     try
       try
         smtp.Send(correo);

         ShowMessage('Correo enviado satisfactoriamente');
       except
         on E: Exception do
            ShowMessage(E.Message);
       end;
     finally
       if smtp.Connected then
          smtp.Disconnect;
       correo.Free;
       smtp.Free;
     end;
  mmLog.Clear;
end;