Hi!
Also, diese TIdSMTP und TIdMessage habe ich noch nie benutzt. Weiß also nicht, was da für Dinge passieren können
Um das Connect würde ich noch ein try...except drumbauen. Der Host auch? (Frage die dumme Frage, weil du oben nur geschrieben hast der Port passt)..
Sorry, so richtig kann ich dir nicht helfen.. Vielleicht teste ich das ganze aber selbst später mal und melde mich dann nochmal..
Edit: Also, ich habe deinen Code mal getestet. Bei mir sieht das jetzt so aus:
Delphi-Quellcode:
with idmessage1
do
begin
Clear;
From.Text := Trim('
meine@email.de');
{Absender}
Recipients.Add.Text := Trim('
meine@email.de');
{Empfänger}
Subject := Trim('
Ich habe leider keinen Betreff');
{Betreff}
Body.Assign(msg.Lines);
{Hier kommt die Nachricht hinein}
end;
with IDSmtp1
do
begin
Host := Trim('
smtp.email.de');
Port := 25;
try
Connect;
Send(idmessage1);
except
on e:
Exception do
begin
ShowMessage(e.
Message + e.ClassName);
end;
end;
end;
Das Funktioniert hier einfach nur. Den Benutzernamen und das Passwort habe ich rausgemacht, im IdSMTP1 AutoType auf atNone gesetzt. Ich muss halt vorher mein Konto abfragen, dann ist es für x Minuten zum Mail senden freigeschaltet. Liegt da eventuell bei dir der Fehler? Das try...except könnte dir auch weiterhelfen. So, das wars von mir