Forum: Netzwerke
Delphi
by Samashy,
18. Sep 2018
In dem Fall ist es tatsächlich so, dass die Mail immer vom selben Absender kommt und man sich auf UTF8 geeinigt hat.
Hab vielen Dank für Deinen Lösungsweg, werde ich beherzigen.
Forum: Netzwerke
Delphi
by Samashy,
18. Sep 2018
Vielen Dank, das funktioniert.
Danke für die schnellen Hinweise von allen hier.
Forum: Netzwerke
Delphi
by Samashy,
17. Sep 2018
Ich erhalte eine Email mit einem UTF codierten Betreff: '=?UTF-8?Q?Planm=C3=A4=C3=9Fige_Erh=C3=B6hung_xx-xx-xx?=
while Pos('=?UTF-8',Dump)<>0 do
begin
StartPos:=Pos('=?UTF-8',Dump)+10;
EndPos:=PosEx('?=',Dump,startpos+10);
Encoded:=Encoded+Copy(Dump,StartPos,EndPos-StartPos);
Dump:=Encoded+Copy(Dump,EndPos+3,Length(Dump)-(EndPos+2));
end;
Result:=Encoded;