Envío de correos con INDY9

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