|
Вопрос # 5 485/ вопрос решён / |
|
Здравствуйте! Как с помощью IdPOP3 получить Body письма, если оно в MIME формате в нормальный вид?
Примечание #1 (7 июля 2011, 13:42): Как получить письмо в MIME формате
 |
Вопрос задал: eclipse (статус: Посетитель)
Вопрос отправлен: 7 июля 2011, 13:12
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 32; последнее сообщение — 7 июля 2011, 15:26; участников в обсуждении: 3.
Страницы: [1] [2] [Следующая »]
|
min@y™ (статус: Доктор наук), 7 июля 2011, 13:14 [#1]:
Сохрани письмо в текстовый файл и выложи куданить вот сюда. Посмотрим, покумекаем.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 7 июля 2011, 13:19 [#3]:
А исчо иногда полезно заглядывать в хэлп.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Вадим К (статус: Академик), 7 июля 2011, 13:21 [#4]:
в indy все уже есть. гуглить на тему TIdMessage
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
eclipse (статус: Посетитель), 7 июля 2011, 13:28 [#5]:
Т.е., получается, что при приёме письма (IdPOP31.Retrieve(i+1, IdMessage1)) уже такая фигня получается, что не прочитывает POP3 тело письма!?
|
|
|
Вадим К (статус: Академик), 7 июля 2011, 13:39 [#6]:
вопрос сформулирован плохо. Переформулируйте Ваш вопрос.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
eclipse (статус: Посетитель), 7 июля 2011, 13:41 [#7]:
В общем вот основные данные письма:
X-LibVersion: 3.3.2_4
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="_=_swift-18136526124e15481aab5205.05629816_=_"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-MimeOLE: Produced by SwiftMailer 3.3.2_4
X-mid: ZWNsaXBzZV85OUBtYWlsLnJ1ICwgYzU0ICwgbTQ1MQ
X-Mailer: ACEM
User-Agent: ACEM
X-Sender: <champion@handango.com>
List-Unsubscribe: <http://newsletter.redaktion.pocketgear.de/box.php?nl=81&c=54&m=451&s=a48d1d7c6a2436cd83c9af6905bc4661&funcml=unsub2>
Message-ID: <20110707054614.22304.2016436122.swift@newsletter.redaktion.pocketgear.de>
X-Spam: Not detected
X-Mras: Ok
X-MR-Warn: 1
This is a message in multipart MIME format. Your mail client should not
be displaying this. Consider upgrading your mail client to view this
message correctly.
--_=_swift-18136526124e15481aab5205.05629816_=_
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
This email is an HTML only email.
Please go to
%%HYPERLINK:http://newsletter.redaktion.pocketgear.de/lt.php?c=54&m=451&nl=81&s=a48d1d7c6a2436cd83c9af6905bc4661&lid=12991&l=www_handango_com_homepage_4--PND-http://www.handango.com/homepage/Homepage.jsp?storeId=159&utm_source=Perm&utm_medium=PPCNews&utm_campaign=textversions
to see the latest apps and deals.
This Week's Deals:
-Newest Apps!
-Awesome Savings!
**************************************************************************
Ну и дальше само письмо в виде HTML
|
|
|
eclipse (статус: Посетитель), 7 июля 2011, 13:45 [#8]:
А может сперва через... IdMessage1.MessagesPart узнать количество прикреплений.... а потом их сохранить (скачать), а затем уж этот хтмл отобразить как и где надо...?
|
|
|
eclipse (статус: Посетитель), 7 июля 2011, 13:49 [#9]:
О! Попробывал вот так:
for d:= 0 to IdMessage2.MessageParts.Count do
ShowMessage(IdMessage2.MessageParts.Items[d].ContentType);
И увидел 2 сообщения в 1 было text/plain, а во втором text/html
|
|
|
Вадим К (статус: Академик), 7 июля 2011, 13:52 [#10]:
Это такой новомодный способ - отправлять тело письма в виде html файла первым вложением. Кто то находит это очень умным.
Но как там не было, это фактически стандарт.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
min@y™ (статус: Доктор наук), 7 июля 2011, 14:01 [#11]:
for d:= 0 to IdMessage2.MessageParts.Count do // <---- reason of access violation detected!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
eclipse (статус: Посетитель), 7 июля 2011, 14:03 [#12]:
В рот кампот! Блин фиг знает как отобразить это письмо.
|
|
|
min@y™ (статус: Доктор наук), 7 июля 2011, 14:12 [#13]:
Цитата (eclipse):
Блин фиг знает как отобразить это письмо.
А где ты пытаешься отображать-то его?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
eclipse (статус: Посетитель), 7 июля 2011, 14:13 [#14]:
ну хотя бы для начала сохранить пытаюсь как текстовое.
|
|
|
min@y™ (статус: Доктор наук), 7 июля 2011, 14:23 [#15]:
Цитата (eclipse):
ну хотя бы для начала сохранить пытаюсь как текстовое.
// Ну в хэлпе ж всё написано!
with IdMessage2 do
for Index:= 0 to MessageParts.Count - 1 do
if MessageParts[Index] is TIdAttachment
then TIdAttachment(MessageParts[Index]).SaveToFile('имя_файла');
Писал навскидку после прочтения пекоторых разделов Indy-хэлпа. Ни разу не пользовался этим пакетом компонентов.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
eclipse (статус: Посетитель), 7 июля 2011, 14:24 [#16]:
Если сделать так, то показывает что это то, самое что нам нужно:
for d:=0 to IdMessage2.MessageParts.Count-1 do
with IdMessage2.MessageParts do
if items[d].ClassType=TIdText then
showmessage('');
но вот как дальше быть?
|
|
|
eclipse (статус: Посетитель), 7 июля 2011, 14:25 [#17]:
Не min@y™ это вложенные файлы... если сделать проверку, как я писал выше , то сообщения не будет, значит TIdAttachment тут нет.
|
|
|
min@y™ (статус: Доктор наук), 7 июля 2011, 14:26 [#18]:
Штудируй матчасть, не мучай форум.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 7 июля 2011, 14:27 [#19]:
Цитата (eclipse):
это вложенные файлы... если сделать проверку, как я писал выше , то сообщения не будет, значит TIdAttachment тут нет.
А ты пробовал?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 7 июля 2011, 14:32 [#20]:
Так тебе надо текст письма сохранить или прикреплённые файлы?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Страницы: [1] [2] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
