Ver Mensaje Individual
  #23  
Antiguo 11-09-2024
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 646
Reputación: 23
mRoman Va por buen camino
Cita:
Empezado por mRoman Ver Mensaje
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!!)
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
__________________
Miguel Román

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

Última edición por mRoman fecha: 11-09-2024 a las 19:42:50.
Responder Con Cita