Envío de correos con INDY9

[mRoman]

Hola amigos nuevamente recurriendo a ustedes.

Trabajo con: Delphi6, Indy9, FB2.0, Win11 64.

Problema: Estoy tratando de enviar correos usando Indy9 (desinstale los componentes anterior que vienen por default con delphi), gracias al club he logrado instalar los indy y tomar algo de codigo para hacer pruebas. Ya tengo un ratito (5 hrs) tratando de solucionar el siguiente problema.

Antes que nada colocaré el código q estoy usando para el envío de correo:

Código Delphi [-]
procedure TfrmImpEnvioTCK.btnEnviarClick(Sender: TObject);
begin
     idMessage1.Body.Clear();
     idMessage1.Recipients.Clear();
     idMessage1.Subject:='ENVIO TICKET - LAVANDERIA QUIJOTE';
     idMessage1.Body.AddStrings(Memo1.Lines);
     idMessage1.Recipients.EMailAddresses:=edMail.Text;
     idMessage1.From.Address:='[email protected]';
     idMessage1.From.Name:='LAVANDERIA ';

     with idSMTP1 do
     begin
          Port:=587;
          Host:='smtp.gmail.com';
          AuthenticationType := atLogin;
          Username:='[email protected]';
          Password := 'jaklsdfkasldfl';
          Connect();

          btnEnviar.Enabled := false;
          try
            Send(IdMessage1);
            ShowMessage('Correo enviado con éxito');
          finally
            btnEnviar.Enabled := true;
            Disconnect;
          end;
     end;
end;

Y me esta marcando este error: (imagen)

https://ibb.co/nbKvqfS

Me hace falta algo mas que configurar?

La cuenta de correo gmail esta configurada para 2 pasos, cree una contraseña de aplicación para lograr el envío de correos desde delphi...sabes como puedo resolver el error??

Muchas gracias por su tiempo amigos.

[Casimiro Noteví]

¿Qué valores has puesto en sslversion, usetls, etc.?

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

Revisa que la versión de las Indy que estás utilizando (que veo que estás con Delphi 6) soporte el TLS que necesita el servidor.
Hace poco se actualizaron versiones mínimas y es posible que necesites 1.2 al menos.

[Casimiro Noteví]

Creo que necesitará la version 10 de indy, al menos yo con la 9 no conseguí que funcionara, sin embargo con la 10 funciona perfectamente. También usando "contraseña de aplicación".

[mRoman]

Empezado por Casimiro Notevi

Creo que necesitará la version 10 de indy, al menos yo con la 9 no conseguí que funcionara, sin embargo con la 10 funciona perfectamente. También usando "contraseña de aplicación".

La version 10 de Indy las puedo instalar en Delphi6??

[mRoman]

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

Revisa que la versión de las Indy que estás utilizando (que veo que estás con Delphi 6) soporte el TLS que necesita el servidor.
Hace poco se actualizaron versiones mínimas y es posible que necesites 1.2 al menos.

Hola Germán...gracias por contestar.

Como puediera revisar que esta version q estoy usando soporta TLS...??.

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

A ver si te ayuda este hilo:
https://www.clubdelphi.com/foros/showthread.php?t=96482

En las especificaciones de la versión también debería especifocar algo sobre TLS

[mRoman]

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

A ver si te ayuda este hilo:
https://www.clubdelphi.com/foros/showthread.php?t=96482

En las especificaciones de la versión también debería especifocar algo sobre TLS

Gracias German.

Lo cheque..pero en realidad no entiendo mucho, instalar DLL, librerias...en algunas páginas que he consultado mencionan un EXE de instalación, super mas comodo, pero ya no está disponible la página, sería mas fácil la instalación.

En fin...se esta complicando un poco esto de envíar correos con delphi.

Seguiré buscando la solución.

[mRoman]

Empezado por Casimiro Notevi

¿Qué valores has puesto en sslversion, usetls, etc.?

Hola Casimiro...en realidad es la primera vez que uso los Indy, entonces no sé q es SSLVERSION y USETLS...propiedades??.

[mRoman]

Ahora he cambiado el puerto a 465 y me envia el siguiente error:

Proyect abc.exe raised exception class EIdConnClosedGracefully with message 'Connection Closed Gracefully'. Process stopped...

El codigo:

Código Delphi [-]
procedure TfrmImpEnvioTCK.btnEnviarClick(Sender: TObject);
begin
     idMessage1.Body.Clear();
     idMessage1.Recipients.Clear();
     idMessage1.Subject:='ENVIO TICKET';
     idMessage1.Body.AddStrings(Memo1.Lines);
     idMessage1.Recipients.EMailAddresses:=edMail.Text;
     idMessage1.From.Address:='[email protected]';
     idMessage1.From.Name:='LAVANDERIA';

     with idSMTP1 do
     begin
          Port:=465;
          Host:='smtp.gmail.com';
          AuthenticationType := atLogin;
          Username:[email protected]';
          Password := 'kadjkfljldjflkad';
          Connect();

          btnEnviar.Enabled := false;
          try
            Send(IdMessage1);
            ShowMessage('Correo enviado con éxito');
          except
          on E : Exception do
            if E is EIdConnClosedGracefully then
            begin
                btnEnviar.Enabled := true;
                Disconnect;
            end else
            begin
                raise
            end;

          end;
     end;
end;

Alguna idea??...

O definitivamente deberé desinstalar la 9 e instalar la 10 de Indy???...

[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.