Hallo zusammen, möchte mir selber eine Mail schreiben, aber erhalte beim Button Click immer eine
Exception:
Exception-Klasse EIdSMTPReplayError mit Meldung 'Authentication rejected/ Autehnticaion failed.'
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
slText: TStringList;
begin
IdSMTP1.Host := 'smtpmail.t-online.de';
IdSMTP1.Username := 'mail@t-online.de';
IdSMTP1.Password := 'Beispielpasswort';
IdMessage1.From.Text := 'mail@t-online.de';
IdMessage1.Sender.Text := 'TestEmail';
IdMessage1.Recipients.EMailAddresses := 'mail@t-online.de';
IdMessage1.Subject := 'Hallo das ist ein Text';
slText := TSTringList.Create;
slText.Add('Hier steht auch ein Text.');
IdMessage1.Body := slText;
try
IdSMTP1.Connect;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect();
except
ShowMessage('EMail konnte nicht gesendet werden');
end;
slText.Free;
end;
end.
Habe auch die Suche Funktion verwendet, habe allerdings nichts zu diesem Problem gefunden.