Witam! Mam problem z odbieraniem maili w Delphi
Korzystam z komponentu Indy z IdMessage i jest problem z odbieraniem maili wysłanych np: Outlookiem. Program po prostu go odbiera i nie widzi treści listu!!! Wszystko inne jest, nawet załączniki tylko nie ma treści listu.
---------- przykład maila -------------------
From: [email protected]
Subject: Jakiś temat
To: [email protected]
Content-Type: text/plain
Content-Transfer-Encoding: 8bit
Date: Wed, 23 Feb 2005 0930 +0100
X-Priority: 3
X-Library: Indy 9.00.10
To jest tekst probny
.
List jest wysyłany z Outlooka jako text, nie html. I jest problem z linią
Content-Transfer-Encoding: 8bit lub 7bit
Jak program sam wysyła list (program zrobiony na komponentach indy) i gdy zawiera (standard ASCII):
Content-Transfer-Encoding: quoted-printable
to potrafi odczytać, a jeśli zmieni mu się treść tego nagłówka na 7, lub 8bit po prostu nie dekoduje listu...
Poniższy kod rozpoznaje tekst w wiadomości tylko jeśli
Content-Transfer-Encoding ma wartość quoted-printable
. Jeśli ma inną to już go nie widzi...
var ind : integer;
...
if Msg.MessageParts.Items[ind] is TIdText then
begin
Memo1.Lines.Clear;
Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[ind]).Body);
end;
...
Może ktoś wie jak sobie z tym poradzić, jak kodować / dekodować polskie znaki?
Dzięki.