Moin Moin,
Ich hab zur Übung mal versucht mir eine App zu basteln, mit der ich E-Mails versenden kann.
Das Connecten zum SMTP-Server klappt soweit, allerdings will er die Mail einfach nicht senden

Code:
procedure TForm1.Button1Click(Sender: TObject);
var mail : Tidmessage;
    i: Integer;
begin
 try
    mail := IDmessage1.Create;
    idsmtp1.connect;

    with mail do begin
      body.assign (memo1.lines);
      From.text := xxx@gmail.com';
      replyto.emailAddresses := 'xxx@gmail.com';
      recipients.emailaddresses := edit1.text;
      Subject := edit2.text;
      Priority := mpnormal;
      date := now;
    end;

    form1.Color := clred; // Zur Kontrolle bis Hierher geht alles gut 
    idsmtp1.Send(mail);
    idsmtp1.Disconnect(true);
    Showmessage ('Senden erfolgreich!');
  except
   Showmessage ('FAIL!')

 end;
end;
Nach circa 5 Minuten kommt dann die Message-Box mit dem "Fail!" :-/

Schon mal danke für eure Hilfe