imap поиск писем

@leva · Регистрация: 12.04.2012

Студворк — интернет-сервис помощи студентам

Задача найти письма в почтовом ящике с определенным словом потом скачать их текст сохранить в файл
Делаю через imap поиск взял отсюда у Avazart TIdIMAP4 и кодировки
Код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Memo1->Clear();
IdIMAP41->Port= 143;
IdIMAP41->AuthType= iatUserPass;
IdIMAP41->Host= "imap.yandex.ru";
IdIMAP41->Username= "---------";
IdIMAP41->Password= "--------";
IdIMAP41->Connect(1000);
IdIMAP41->SelectMailBox("INBOX");
TIdIMAP4SearchRec SR[1];
SR[0].SearchKey= skText;
SR[0].Text="@worldoftanks.ru";
if( IdIMAP41->SearchMailBox(SR,1) )
// Memo1->Lines->Add(IdIMAP41->MailBox->SearchResult);
    for (int i=0; i<IdIMAP41->MailBox->SearchResult.Length; i++)
        {
            IdMessage1->Clear();
            IdIMAP41->Retrieve(IdIMAP41->MailBox->SearchResult[i],IdMessage1);
            Memo1->Lines->Add("\t------\t"+String(i)+"\t--------");
 
            Memo1->Lines->Add(IdMessage1->Subject);
            Memo1->Lines->Add(IdMessage1->Body->Text);
        }
IdIMAP41->Disconnect();

Первая проблема это "This is a message in multipart MIME format" - Вместо текста письма
2 Проблема кодировка "?�N??�??N?N??�N??????� N??�?????? N??�?� ?? ????N??�!"
Помогите кто нибудь=)
Вот что я получаю:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
    ------  0   --------
?�N??�??N?N??�N??????� N??�?????? N??�?� ?? ????N??�!
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.
 
    ------  1   --------
World of Tanks: ????N?N?N??�????????N?N? ???�N????�N? ?? ????N??�
 
    ------  2   --------
World of Tanks: ????N?N?N??�????????N?N? ???�N????�N? ?? ????N??�
 
    ------  3   --------
World of Tanks: ????N?N?N??�????????N?N? ???�N????�N? ?? ????N??�
 
    ------  4   --------
??N?N??�?? ???�???????�?�?????� 8.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.
 
    ------  5   --------
World of Tanks: ????N?N?N??�????????N?N? ???�N????�N? ?? ????N??�
 
    ------  6   --------
World of Tanks: ????N?N?N??�???????�?�?????� ???�N????�N?

@Avazart · 26.02.2013, 17:43

https://www.cyberforum.ru/blog... og513.html И обрати внимание что версия Builder XE3

Добавлено через 2 минуты

Сообщение от leva

Первая проблема это "This is a message in multipart MIME format" - Вместо текста письма

Ну так там письмо multipart MIME-формата - то есть состоящее из частей при чем может содержать текст,рисунки,HTML и др.

Добавлено через 5 минут

Сообщение от leva

2 Проблема кодировка "?�N??�??N?N??�N??????� N??�?????? N??�?� ?? ????N??�!"

Даже в новой XE3 хоть поправили обработку кодировки тела сообщения, но по прежнему приходится обрабатывать кодировку темы.

@leva · 26.02.2013, 20:12 **[ТС]**

Сообщение от Avazart

https://www.cyberforum.ru/blog... og513.html И обрати внимание что версия Builder XE3

Добавлено через 2 минуты

Ну так там письмо multipart MIME-формата - то есть состоящее из частей при чем может содержать текст,рисунки,HTML и др.

Добавлено через 5 минут

Даже в новой XE3 хоть поправили обработку кодировки тела сообщения, но по прежнему приходится обрабатывать кодировку темы.

и как письмо multipart MIME-формата прочитать?
если у меня 2009 билдер то не как не решить проблему???

@Avazart · 26.02.2013, 20:28

Сообщение от leva

и как письмо multipart MIME-формата прочитать?

А как вы собираетесь отображать к примеру html или изображение в письме ?

Сообщение от leva

если у меня 2009 билдер то не как не решить проблему???

Вручную перекодировать как я в старой версии проекте MyMailAgent делал...

@leva · 26.02.2013, 21:06 **[ТС]**

Сообщение от Avazart

А как вы собираетесь отображать к примеру html или изображение в письме ?

Вручную перекодировать как я в старой версии проекте MyMailAgent делал...

Мне нужен только текст письма и все ни каких изображений и т.д.
Вручную перекодировать как я в старой версии проекте MyMailAgent в какой именно ?

Добавлено через 32 минуты
my::Utf8ToUnicode не помогает WinToUnicode тоже Koi8ToUnicode- не могу понять как использовать с IdMessage))

@Avazart · 26.02.2013, 21:07

Mime получают как помню с помощью TIdAttachment по частям... собственно примеры где-то были выложены на форуме...

Сообщение от leva

Вручную перекодировать как я в старой версии проекте MyMailAgent в какой именно ?

Все "старые" написаны на 2009

@leva · 26.02.2013, 21:12 **[ТС]**

Сообщение от Avazart

Mime получают как помню с помощью TIdAttachment по частям... собственно примеры где-то были выложены на форуме...

Все "старые" написаны на 2009

не знаю может кривой я не могу перекодировать нормально...

@Avazart · 26.02.2013, 21:36

А вспомнил получение MIME + Перекодировку мне не удалось совместить в Builder2009, там бока.

@leva · 26.02.2013, 22:20 **[ТС]**

Сообщение от Avazart

А вспомнил получение MIME + Перекодировку мне не удалось совместить в Builder2009, там бока.

И что теперь делать первый раз такое вижу....

@leva · 01.03.2013, 15:12 **[ТС]**

Поставил XE3 с кодировкой проблем вроде нет...
Как прочитать такие сообщения только текст: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.

Добавлено через 16 минут
Вот нашел делфи код помогите перевести на с++

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
if IdMessage1.Body.Text='This is a multi-part message in MIME format' then
      begin
      for ii := 0 to IdMessage1.MessageParts.Count-1 do
        begin
          MessPart:=IdMessage1.MessageParts[ii];
          if MessPart.PartType=mptText then
          begin
            mmo1.Lines.Add(TIdText(MessPart).Body.Text);
          end;
        end;
      end
      else
      mmo1.Lines.Add(IdMessage1.Body.Text);

Добавлено через 13 минут
Вроде как то так

C++
1
2
3
4
5
if (IdMessage1->MessageParts->Items[i]->ClassNameIs("TIdText")) {
                Memo1->Lines->Clear();
                Memo1->Lines->AddStrings(
                ((TIdText*)IdMessage1->MessageParts->Items[i])->Body);
        }

Но ругается:
[bcc32 Error] Unit1.cpp(50): E2451 Undefined symbol 'TIdText'

cpp_developer · 01.03.2013, 16:52

TIdText, вохможно, в вашем племени индейцев такой шаман отсутствует:

..unit in Indy 10, whereas it was not in Indy 9.

@leva · 01.03.2013, 18:31 **[ТС]**

Сообщение от LK

TIdText, вохможно, в вашем племени индейцев такой шаман отсутствует:

У меня 10 инди + ссылка не работает...

@volvo · 01.03.2013, 18:44

leva,

C++
1
#include <IdText.hpp>

присутствует?

@Avazart · 01.03.2013, 18:44

Сообщение от leva

[bcc32 Error] Unit1.cpp(50): E2451 Undefined symbol 'TIdText'

Хедер надо подключить наверное надо соответствующий...

@leva · 01.03.2013, 18:55 **[ТС]**

Сообщение от UI

leva,

C++
1
#include <IdText.hpp>

присутствует?

Огромное спасибо!

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	26.02.2013, 21:36
	А вспомнил получение MIME + Перекодировку мне не удалось совместить в Builder2009, там бока. 0