Mail versenden über idSMTP funktioniert nicht mehr

[Thomas83]

hi,

bin mir sicher nichts am Server verändert zu haben.
Mir meiner Funktion konnte ich automatisch mails versenden.
Seit ein paar Tagen klappt kein Connect mehr.

Bei mir auf dem Computer funktioniert es. Egal welches Konto ich bei der Anmeldung angebe. Bin Admin. Bei den restlichen Mitarbeiter hängt sich mein Programm auf.

Hier die Funktion

Delphi-Quellcode:

Function SendeMail(....) : Boolean;
var
  idMessage : TIdMessage;
  idSMTP : TIdSMTP;
begin
  result := false;

  idMessage := TIdMessage.Create(nil);
  idSMTP := TIdSMTP.Create(nil);

  idSMTP.Host   := '192.168.100.10';
  idSMTP.Username := 'Doamin\User';
  idSMTP.Password := 'passwort';
  idSMTP.Port   := 25;
  idSMTP.UseEhlo := true;

  idMessage.From.text  :='[e-mail]';
  idMessage.Sender.text:=idMessage.From.text;

  idMessage.Recipients.EMailAddresses:= meineemail;
  idMessage.CCList.Clear;
  idMessage.Subject:='bla';
  end;

  idMessage.Body.Clear;
  idMessage.Body.Text := 'text';

  try
    idSMTP.ConnectTimeout := 5;
    idSMTP.Connect;
    idSMTP.Send(idMessage);
    idSMTP.Disconnect;
    result:=True;
    except on E : Exception do
      begin
        if idSMTP.connected then try idSMTP.disconnect; except end;
        result := false;
      end;
  end;

  idMessage.Free;
  idSMTP.Free;
end;

Muss ich irgend was bei uns am Server (SBS 2003) ändern,
habe keine Ahnung warum das nicht mehr funktioniert.

mfg