Fehler beim Senden mit WinshoesSMTP

[monta]

Ich möchte aus meiner Anwendung heraus dem Nutzer die möglichkeit geben, Daten einzusenden, bei mir funktioniert alles ohne irgendwelche Probleme, jedoch funzt der selbe Code auf einem anderen System nicht.

Gesendet wird über die Winshoes-Komponenten TWinshoeMessage über TWinshoeSMTP.

Als Fehlermeldung auf dem fremden System erscheint: 504<name-78e7892c76>:helo command rejected: need fully-qualified host-name, sowohl über DSL als auch über Modem. Woran könnte das liegen?

Vor einiger Zeit hat das Senden noch auf beiden Rechnern funtkioniert und es wurde eigentlich nichts geändert. Es kann auch nicht an der Beschränkung liegen, das zuerst eine pop3 Verbindung aufgebaut werden muss, dann dürfte es bei meinem Entwicklungspc ja auch nicht funktionieren.

Mein Code sieht wie folgt aus:

Delphi-Quellcode:

procedure TMain.BB_SendenClick(Sender: TObject);
var WS_Message: TWinshoeMessage;
    WS_SMTP: TWinshoeSMTP;
begin
  WS_Message := TWinshoeMessage.Create(Self);
  try
    WS_Message.Subject := '...';
    WS_Message.Text.Add('*Text*');
    WS_Message.From := Ed_send_Absender.Text;
    WS_Message.Too.SetText('*meine Email*');
    try
      WS_SMTP := TWinshoeSMTP.Create(Self);
      WS_SMTP.Host := '*Smtp-Server*';
      WS_SMTP.Connect;
      WS_SMTP.Send(WS_Message); 
    finally
      WS_SMTP.Disconnect;
      WS_SMTP.Free;
    end;
  finally
    WS_Message.Free;
  end;
  ShowMessage('Eingesendet.');
end;

Der Fehler tritt beim eigentlichen Senden der Nachricht auf, das Connect scheint noch zu klappen.