Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c