Текущий архив: 2003.11.17;
Скачать: CL | DM;

Вниз

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);

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.17;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.014 c