Ver Mensaje Individual
  #1  
Antiguo 10-09-2024
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 646
Reputación: 23
mRoman Va por buen camino
Envío de correos con INDY9

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.
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!
Responder Con Cita