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