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.
Johannes M.