Envío de correos con INDY9

[mRoman]

Empezado por Casimiro Notevi

Yo probaría antes con la que tienes instalada, la v9, porque vayas a estropear tu delphi 6 intentando instalar la v10 y te quedes sin una y sin la otra.
En mi caso la v10 está instalada en un delphi 2007

Hola Casimiro...demasiado tarde tu comentario. Ya desinstale la 9....

Espero poder reinstalar...

[Casimiro Notevi]

Empezado por mRoman

Hola Casimiro...demasiado tarde tu comentario. Ya desinstale la 9....
Espero poder reinstalar...

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.

[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:='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!!)

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

[mRoman]

Empezado por mRoman

Hola Casimiro...demasiado tarde tu comentario. Ya desinstale la 9....

Espero poder reinstalar...

Logré instalar nuevamente los componentes Indy9...