Envío de correos con INDY9

[mRoman]

Empezado por Casimiro Notevi

También te dije antes de nada: "Te aconsejo una buena copia de seguridad de lo que tienes antes de seguir."


Espero que te sea leve el proceso.

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:='[email protected]';
          Password := 'fayhxquevflre';
          Connect();
     end;

     with mail do
     begin
          Recipients.Add;
          Recipients[0].Name:='CLIENTE';
          Recipients[0].Address:=edMail.Text;
          From.Name:='LAVANDERIA';
          From.Address:='[email protected];
          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!!)