IdSMTP

[Alterauge]

Delphi-Quellcode:

procedure TForm5.PostTimer(Sender: TObject);
var fehler:Boolean;
begin
idmessage1.Clear;
idSMTP1.Host   := 'mail.oesoft.de';
idSMTP1.Port   := 25;    // in der Regel
idSMTP1.AuthType:=satDefault;   // idSMTP1.AuthType:=satNone, wenn keine Authentifizierung benötigt wird;

// wenn Authentifizierung benötigt wird, was ja heute die Regel ist
idsmtp1.Username:='********';   // für das E-Mail Konto
idsmtp1.Password := '*******';

idMessage1.From.address:='*********';
idMessage1.Recipients.EMailAddresses := '********';
idMessage1.bcclist.EMailAddresses:='';
idMessage1.cclist.EMailAddresses:='';
idMessage1.Subject:='Betreff';
idMessage1.ContentType := 'text/plain';
idMessage1.Body.clear;
idMessage1.Body.text:='Ihre Nachricht';
try
try
idSMTP1.Connect();
IdSMTP1.Authenticate;      // nicht zwingend
if idSMTP1.Connected then
idSMTP1.Send(idMessage1);
except on E:Exception do
begin
showmessage(e.Message);
fehler:=True;
end;
end;
finally
if idSMTP1.Connected then
idSMTP1.Disconnect;
end;
if fehler=false then
showmessage('Push Notifications wurde erfolgreich versandt');

end;

Habe jetzt alles versucht?
Es wird keine E-Mail gesendet, und das Programm ist für ca. 10 sec. ohne Funktion! (es lassen sich keine Button drücken usw.)

Was mache ich falsch!