Logindaten für den SMTP - Server überprüfen

[chrisw]

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;