Multi-part message in MIME format

← →
stone (2003-11-05 13:16) [0]

При попытке прочитать тело письма из TIdMessage выдается сообщение
---------------------------
Mailclient
---------------------------
This is a multi-part message in MIME format.
---------------------------
OK
---------------------------

Как получить содержимое (body) каждого из MessageParts?

← →
Slym (2003-11-06 08:16) [1]

for i:=1 to TIdMessage.MessageParts.TextPartCount do
if AMsg.MessageParts.Items[i].ClassNameIs("TIdText") then
memo1.Lines.AddStrings(TIdText(AMsg.MessageParts.Items[i]).Body);

← →
stone (2003-11-06 10:21) [2]

> Slym © (06.11.03 08:16)

Спасибо, но вопрос давно снят. Для тех кому будет полезно, хотелось бы дополнить, что TextPartCount, как ни странно, срабатывает не всегда, поэтому лучше использовать такой код:

for i := 0 to AMsg.MessageParts.Count-1 do if AMsg.MessageParts.Items[x] is TIdText then memo1.Lines.AddStrings(TIdText(AMsg.MessageParts.Items[i]).Body);

также можно объединить все части MIME-сообщения, указав
AMsg.NoDecode := True; memo1.Lines.AddStrings(AMsg.Body);

Multi-part message in MIME format Найти похожие ветки