Registriert seit: 11. Jan 2005
Ort: Schleswig
193 Beiträge
Delphi XE8 Professional
|
Re: Logindaten für den SMTP - Server überprüfen
19. Dez 2005, 08:50
Ich glaube das geht in etwa so ! (nicht getestet !)
Delphi-Quellcode:
begin
idsmtp.host:=editHost.text;
idsmtp.username:=editUser.text;
idsmtp.password:=editPasswort.text;
try
idsmtp.Connect;
except
MessageDlg('Konnte keine Verbindung zu ' + editHost.text + ' herstellen !', mtError, [mbOK], 0);
end;
try
idsmtp.Authenticate;
except
MessageDlg('Ihre Daten sind fehlerhaft!', mtError, [mbOK], 0);
end;
if idsmtp.Connected then idsmtp.DisConnect; ;
end;
Christian Wahl me, myself and I, die lustigen Drei !!
|