Envío de correos con INDY9

[mRoman]

Empezado por mRoman

Pues...demasiado tarde para las 2 recomendaciones q me hiciste!..jajajaja

Bueno el caso es que estoy probando con la 9.

Reenvío el código que estoy usando, lo modifique de acuerdo a un post de DEC (del 2004!!, a ver si me funciona jajaja):

Código Delphi [-]
procedure TfrmImpEnvioTCK.btnEnviarClick(Sender: TObject);
var
  smtp : TidSMTP;
  mail : TIdMessage;

begin
     smtp := TIdSMTP.Create(Self);
     mail := TIdMessage.Create(Self);

     with smtp do
     begin
          Port := 25;
          Host := 'smtp.gmail.com';
          AuthenticationType := atLogin;
          UserId:='correo@origen.com';
          Password := 'fayhxquevflre';
          Connect();
     end;

     with mail do
     begin
          Recipients.Add;
          Recipients[0].Name:='CLIENTE';
          Recipients[0].Address:=edMail.Text;
          From.Name:='LAVANDERIA';
          From.Address:='correo@origen.com;
          Subject:='Envío de nota 99999 - LAVANDERIA';
          Body.Text:=Memo1.Lines.Text;
     end;

     TIdAttachment.Create(mail.MessageParts, 'C:\prueba.txt');

     smtp.Connect;
     try
       try
         smtp.Send(mail);
       except
         on E: Exception do
            ShowMessage(E.Message);
       end;
     finally
       if smtp.Connected then
          smtp.Disconnect;
     end;
     mail.Free;
     smtp.Free;
end;

Y marcar el siguiente error: "Socket Error # 10060 connection timed out", si hay que "activar" algún socket, diganme como se hace....por fa.

Gracias por su tiempo. (No me dejen solo!!)

Este error me sale cuando el puerto es 25 y cuando el puerto es 465, es este error "Connection Closed Gracefully" y cuando es el 587 "EIdProtocolReplyError with message '530 5.7.0 specifications.....bla bla alfanumerico... - gsmtp'.

Busque el codigo de este último error...y tiene q ver con seguridad del servidor, pero no sé si tambien del componente delphi

https://sendlayer.com/docs/error-530...command-first/
https://support.google.com/a/answer/3726730?hl=es

[Casimiro Notevi]

Utiliza los parámetros que te he indicado, están funcionando actualmente en muchos sitios.