Angaben zu SMTP-Server testen

[DieDolly]

Wenn beim Connect; oder Send() irgendwas nicht klappt, gehts in eine Exception. Setz einfach ein try-except drum. Wenn False zurückkommt, ist irgendwas falsch.

Delphi-Quellcode:

function ... : Boolean;
begin
  Result := False;
 
  .....

  try
   Smtp.Connect;

   if Smtp.Connected then
    begin
     try
      Smtp.Send(Msg);
      Result := True;
     finally
      Smtp.Disconnect;
     end;
    end;
  except
   Result := False;
  end;