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!