IdMessage-Problem

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 :confused:

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 ;)

Lass' dir bei einer Exception mal die zugehörige Fehlermeldung anzeigen und poste diese hier.

Code:

---

try
  [...]
except
  on e:exception do showmessage(e.message);
end;

---

Da der Fehler erst nach 5 Minuten auftritt, tippe ich auf ein Timeout.
Hast du denn einen funktionierenden SMTP-Server eingetragen?

Btw: Du erzeugst ein Speicherleck, da du das Objekt mail nicht wieder freigibst.

SMTP ist smtp.gmail.com

Das connecten funktioniert ja soweit.
Authentifizierung, TLS, Port usw. ist alles im Objektinspektor eingetragen.
Fehlermeldung kommt gleich...

Edit: Irgendwie spuckt er keine Fehlermeldung mehr aus.. kommt ach keine Exeption, aber die Mail senden tut er auch nicht...
Edit2: Er hat was ausgespuckt: Connection Closed Gracefully.

Hast du die aktuellste Indy-Version (10.5.x glaub ich)?
Funktioniert es nur mit gmail nicht oder auch nicht mit anderen Anbietern?
Hier noch etwas zu lesen.

Ich werde es morgen mal mit WEB.de ausprobieren.
Danke für deine Hilfe, ich mach aber für heute ach mal fertig und setze mich morgen nochmal dran ;-)
Zwecks Indy-Version weiß ich gerade gar nicht genau, benutze aber Delphi 2010.