IdSMTPServer / mail from abweisen mit custom message

[christophspaeth]

Hallo,

ich hatte dann auch im Indy-Forumgepostet und dort auch eine Lösung erhalten:

Man kann sich über TIdSmtpServer.CommandHandlers den Handler für MAIL raussuchen und dort dann (für den ganzen Server) die ExceptionReply ändern.

Delphi-Quellcode:

  for I := 0 to FSmtpSrv.CommandHandlers.Count - 1 do
  begin
    LCmd := FSmtpSrv.CommandHandlers.Items[I];
    if AnsiSameText (LCmd.Command, 'MAIL')  then
    begin
      LCmd.ExceptionReply.NumericCode := 550;
      break;
    end;
  end;

Chris