Delphi-Quellcode:
procedure TForm5.AdvGlowButton10Click(Sender: TObject);
begin
Form5.Close;
FormEinsatz.Email.Enabled:=true;
IdSMTP1.Host := '*******';//mx.freenet.de
IdSMTP1.Username:='******';
IdSMTP1.Password:='******';
IdSMTP1.Port:= 25;
IdMessage1.from.text:='';//Absender E-Mail
IdMessage1.sender.text:='';Absender
IdMessage1.Recipients.EMailAddresses:='';Empfänger E-Mail
IdMessage1.Subject:='Test';//Betreff
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.DisConnect;
end;
Was mache ich hier falsch?
Button wird gedrückt, und es passiert nix!
Fehler:
Erste Gelegenheit für
Exception bei $75DD9673.
Exception-Klasse EIdSMTPReplyError mit Meldung
'auth failure
?????