SMTP - pomoc – Delphi – Fórum – Programujte.com

Zdravím, potreboval by som poradiť.

Vždy keď idem poslať email mi vyskočí upozornenie " Connection Closed Gracefully" . Prosím o help ako túto závadu odstrániť

          form1.IdSMTP1.Host := 'smtp.gmail.com';
          form1.IdSMTP1.Username := edit1.Text;
          form1.IdSMTP1.Password := edit2.Text;
          form1.IdSMTP1.AuthType := satDefault;
          form1.IdSMTP1.Port:=25;
try

          form1.IdSMTP1.Connect;

      except

               end;

          Form1.IdMessage1.From.Address := edit1.Text;
          Form1.IdMessage1.Recipients.EMailAddresses := edit3.Text;
          Form1.IdMessage1.Subject := subject.Text;
          Form1.IdMessage1.Body.Add(edit2.Text);
          Form1.IdSMTP1.Send(form1.IdMessage1);
          Form1.IdSMTP1.Disconnect;
          Form1.IdMessage1.Clear;