Ich nutze die folgende Routine fuer _MIMEConvert.
Delphi-Quellcode:
function _MIMEConvert(s : String) : String;
var i : Integer;
begin
Result := '';
for i := 1 to Length(s) do begin
if s[i] = '€' then begin
Result := Result + '?=ISO-8859-15?Q?=A4?='
end else if Ord(s[i]) > $99
then Result := Result + '=?ISO-8859-1?Q?=' + Format('%x',[Ord(s[i])]) + '?='
else Result := Result + s[i];
end;
end;
Hierbei sei angemerkt, dass bei mehreren aufeinanderfolgenden Umlauten die Ausgabe kuerzer erfolgen koennte...