Отправка почты с использованием IdSMTP (флаг важности)

@Clipper1982 · Регистрация: 07.10.2012

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

Приветствую всех форумчан!
Помогите дилетанту, нигде не могу найти ответ на казалось бы совсем простой вопрос.
Задача следующая. Отправить письмо на электронный ящик (без вложений) и выставить атрибут "важный" для этого письма. Да бы при получении его, данное письмо отображалось как важное (флажок).
Проблем с отправкой не имею.
Использую:
- Embarcadero® C++Builder® XE2 Version 16.0.4358.45540
- Indy 10.5.8.0

Часть текста программы:

C++
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
27
28
Form2->IdSMTP1->Host = e_Host;
Form2->IdSMTP1->Port = e_Port;
Form2->IdSMTP1->Username = e_From_Name;
Form2->IdSMTP1->Password = e_From_Pass;
Form2->IdSMTP1->UseTLS=utNoTLSSupport;
Form2->IdSMTP1->AuthType=satDefault;
Form2->IdSMTP1->ConnectTimeout=10000;
 
Form2->IdMessage1->Clear();
Form2->IdMessage1->From->Address=e_From_Adress;
Form2->IdMessage1->Recipients->EMailAddresses = UserEmail;
 
Form2->IdMessage1->Subject="Тема письма";
 
Form2->IdMessage1->Body->Add("Тело письма");
Form2->IdMessage1->Body->Add(".....");
. . .
 
Form2->IdMessage1->ContentType = "text/plain; charset=windows-1251";
Form2->IdMessage1->CharSet = "windows-1251";
Form2->IdMessage1->ContentTransferEncoding = "8BITMIME";
 
Form2->IdMessage1->Flags.Contains(mfFlagged); //Не работает
Form2->IdMessage1->Priority=mpHighest;
 
Form2->IdSMTP1->Connect();
Form2->IdSMTP1->Send(Form2->IdMessage1);
Form2->IdSMTP1->Disconnect();

Письмо отправляется, но возникают две проблемы:
1. Тема письма с использованием кириллицы отображается знаками вопроса (с телом письма порядок).
2. Флаг "важности" не устанавливается.

По первому вопросу решений в сети очень много, мне оно не столь принципиально, хотя хотелось бы видеть в верной кодировке, а вот второй вопрос интересует больше (решения в сети я не нашел под Builder).
Не подскажете, как решить проблему, по идее все просто должно быть?
Спасибо.

@Clipper1982 · 08.10.2012, 00:00 **[ТС]**

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

У меня

Code
1
Subject: =?windows-1251?Q?=D2=E5=F1=F2=EE=E2=EE=E5_=EF=E8=F1=FC=EC=EE?=

У вас

Code
1
2
Subject: =?KOI8-R?B?PT93aW5kb3dzLTEyNTE/UT89RDI9RTU9RjE9RjI9RUU9RTI9RUU9RTVfPUVG?=
 =?KOI8-R?B?PUU4PUYxPUZDPUVDPUVFPz0=?=

Откуда у вас кои-8 взялось ?

Добавлено через 2 минуты
Возможно проблема в строчках

C++
1
2
3
Form2->IdMessage1->ContentType = "text/plain; charset=windows-1251";
Form2->IdMessage1->CharSet = "windows-1251";
Form2->IdMessage1->ContentTransferEncoding = "8BITMIME";

Вы меня спрашиваете?

Текст программы один в один как у Вас.

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

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

Добавлено через 2 минуты
Возможно проблема в строчках

C++
1
2
3
Form2->IdMessage1->ContentType = "text/plain; charset=windows-1251";
Form2->IdMessage1->CharSet = "windows-1251";
Form2->IdMessage1->ContentTransferEncoding = "8BITMIME";

У меня нет этих строчек, вот код, копировал полностью:

C++
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
27
void __fastcall TForm2::Button1Click(TObject *Sender)
{
std::auto_ptr<TIdSMTP> IdSMTP1(new TIdSMTP(NULL));
std::auto_ptr<TIdMessage> IdMessage1(new TIdMessage(IdSMTP1.get() ));
 
IdSMTP1->Host = "smtp.yandex.ru";
IdSMTP1->Port = 25;
IdSMTP1->Username ="iconofsin@yandex.ru";  /* изменить  */;
IdSMTP1->Password ="****" /* изменить  */;
 
 
IdMessage1->From->Text ="iconofsin@yandex.ru";
IdMessage1->Recipients->EMailAddresses = "iconofsin@yandex.ru";
 
IdMessage1->Subject = WinToWin1251Q(L"Тестовое письмо");
IdMessage1->Body->Add(L"Тело сообщения");
 
IdMessage1->ContentTransferEncoding = L"base64";
IdMessage1->ContentType = L"text/plain; charset=windows-1251";
 
IdMessage1->Priority= mpHighest;
IdMessage1->Flags = IdMessage1->Flags << mfFlagged;
 
IdSMTP1->Connect();
IdSMTP1->Send(IdMessage1.get() );
IdSMTP1->Disconnect();
}

Только Form2

@Avazart · 08.10.2012, 00:05

А версия Builder какая ?

@Clipper1982 · 08.10.2012, 00:08 **[ТС]**

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

А версия Builder какая ?

В первом сообщении есть:
- Embarcadero® C++Builder® XE2 Version 16.0.4358.45540
- Indy 10.5.8.0

@Avazart · 08.10.2012, 01:19

А попробуй моменять строчки местами

C++
1
2
3
4
5
6
7
8
9
10
11
IdMessage1->From->Text ="avazart@yandex.ua";
IdMessage1->Recipients->EMailAddresses = "avazart@yandex.ua";
 
IdMessage1->ContentTransferEncoding = L"base64";
IdMessage1->ContentType = L"text/plain; charset=windows-1251";
 
IdMessage1->Subject = WinToWin1251Q(L"Тестовое письмо");
IdMessage1->Body->Add(L"Тело сообщения");
 
IdMessage1->Priority= mpHighest;
IdMessage1->Flags = IdMessage1->Flags << mfFlagged;

Можно еще посмотреть сообщение сохранив его в файл

C++
1
IdMessage1->SaveToFile("1.txt");

Там поидее должно быть

Code
1
Content-Type: text/plain; charset=windows-1251

И

Code
1
X-Priority: 1

@Clipper1982 · 08.10.2012, 13:11 **[ТС]**

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

А попробуй моменять строчки местами

C++
1
2
3
4
5
6
7
8
9
10
11
IdMessage1->From->Text ="avazart@yandex.ua";
IdMessage1->Recipients->EMailAddresses = "avazart@yandex.ua";
 
IdMessage1->ContentTransferEncoding = L"base64";
IdMessage1->ContentType = L"text/plain; charset=windows-1251";
 
IdMessage1->Subject = WinToWin1251Q(L"Тестовое письмо");
IdMessage1->Body->Add(L"Тело сообщения");
 
IdMessage1->Priority= mpHighest;
IdMessage1->Flags = IdMessage1->Flags << mfFlagged;

Можно еще посмотреть сообщение сохранив его в файл

C++
1
IdMessage1->SaveToFile("1.txt");

Там поидее должно быть

Code
1
Content-Type: text/plain; charset=windows-1251

И

Code
1
X-Priority: 1

Строчки местами поменял (хотя каждое свойство идет отделено, переписать ничего нельзя), результат прежний.
Содержимое IdMessage в файле:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
From: "iconofsin@yandex.ru" <iconofsin@yandex.ru>
Subject:
 =?KOI8-R?B?PT93aW5kb3dzLTEyNTE/UT89RDI9RTU9RjE9RjI9RUU9RTI9RUU9RTVfPUVG?=
 =?KOI8-R?B?PUU4PUYxPUZDPUVDPUVFPz0=?=
To: iconofsin@yandex.ru
Content-Type: text/plain; charset=windows-1251
Content-Transfer-Encoding: base64
Date: Mon, 8 Oct 2012 13:00:44 +0400
Priority: urgent
X-Priority: 1
 
0uXr7iDx7u7h+eXt6P8NCg==
.

Все правильно, но снова кодировка в теме - KOI8
Priority: urgent - я так понимаю, что это и есть флаг (срочно). Но опять же он у меня не выставляется.
Попробовал изменить mfFlagged на mfSeen, а результат тот же - Priority: urgent Получается это свойство вообще игнорирует строчку:

C++
1
IdMessage1->Flags = IdMessage1->Flags << mfSeen;

Если у вас работает, а у меня нет, дело только в версии Indy и/или RAD Studio, другого я уже не вижу.

@Avazart · 08.10.2012, 14:19

Ну думаю в Indy и в IDE точнее наверное в настройках среды и системы.... по видимому есть какие то глобальные настройки.
Это касательно КОИ

C++
1
X-Priority: 1

А вот этот момент не понятен, так видно что приоритет "1" т.е mpHighes

Добавлено через 4 минуты
А какой содержание темы если не использовать ф-цию WinToWin1251Q ?

@Clipper1982 · 08.10.2012, 14:24 **[ТС]**

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

Ну думаю в Indy и в IDE точнее наверное в настройках среды и системы.... по видимому есть какие то глобальные настройки.
Это касательно КОИ

C++
1
X-Priority: 1

А вот этот момент не понятен, так видно что приоритет "1" т.е mpHighes

Так вроде правильно все, код соответствует:

C++
1
IdMessage1->Priority= mpHighest;

Оттого и:

Code
1
X-Priority: 1

mpHighest

С флагами mfFlagged не понятно.
Видимо придется саму почту настраивать, да бы сервер автоматом письма от определенного отправителя сам помечал как важные.

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

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

Добавлено через 4 минуты
А какой содержание темы если не использовать ф-цию WinToWin1251Q ?

Одни знаки вопроса.

@Avazart · 08.10.2012, 14:26

Одни знаки вопроса.

Ну по идее так и должно быть, возможно бок в ф-ции WinToWin1251Q() .

@Clipper1982 · 08.10.2012, 14:34 **[ТС]**

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

Ну по идее так и должно быть, возможно бок в ф-ции WinToWin1251Q() .

Возможно.
Спасибо за помощь, попробую еще поискать решение.

@Avazart · 09.10.2012, 06:04

Можно еще попробывать посмотреть что в исходниках делается.

Добавлено через 8 часов 4 минуты
Кое что нашел, пробуй так.

C++
1
2
//IdMessage1->Subject="Тема Subject";  /* Замени на следующую строчку */
IdMessage1->ExtraHeaders->Add("Subject:"+WinToWin1251Q(L"Тема Subject") );

Добавлено через 4 минуты
Для кодировки темы есть еще такой вариант ф-ции переведенный с делфи

C++
1
2
3
4
5
6
7
8
9
#include <IdCoderMIME.hpp>
#include <memory>
//---------------------------------------------------------------------------
String EncodeSubj(String Subj)
{
    std::auto_ptr<TIdEncoderMIME> IdEncoderMIME (new TIdEncoderMIME(NULL));
    return "=?+Windows-1251+?B?"+IdEncoderMIME->Encode(Subj)+"?=";
}
//---------------------------------------------------------------------------

Но я с ним не разобрался он выбрасывает исключение.

Информация взята отсюда http://www.delphifaq.ru/chasty... -indy.html

И еще есть http://ajc.su/koding/s-builder... m-indy-10/

Добавлено через 6 часов 38 минут
Есть еще вариант попробывать Utf8

C++
1
IdMessage1->Subject = "=?UTF-8?B?"+AnsiToUtf8("Тестовое письмо")+"?=";

Добавлено через 41 минуту
И собственно кои-8r http://www.loginovprojects.ru/... email_indy

@Clipper1982 · 09.10.2012, 19:14 **[ТС]**

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

Можно еще попробывать посмотреть что в исходниках делается.

Добавлено через 8 часов 4 минуты
Кое что нашел, пробуй так.

C++
1
2
//IdMessage1->Subject="Тема Subject";  /* Замени на следующую строчку */
IdMessage1->ExtraHeaders->Add("Subject:"+WinToWin1251Q(L"Тема Subject") );

Огромное Вам спасибо, заменил на ExtraHeaders и все заработало!

Рабочий код, возможно кому-нибудь пригодится:

C++
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
//---------------------------------------------------------------------------
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdExplicitTLSClientServerBase.hpp>
#include <IdMessage.hpp>
#include <IdMessageClient.hpp>
#include <IdSMTP.hpp>
#include <IdSMTPBase.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
 
#include <memory>
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
UnicodeString __fastcall WinToWin1251Q(UnicodeString Str)  {
    UnicodeString strTo;
    strTo.sprintf(L"=?windows-1251?Q?");
    AnsiString sss = Str;
    for(int i=1; i<=sss.Length(); i++) {
        byte a = sss[i];
        if (a == ' ') a = '_';
        strTo.cat_printf((a<128) ? L"%c" : L"=%.2X", a);
    }
    strTo.cat_printf(L"?=");
    return strTo;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender) {
 
    std::auto_ptr<TIdSMTP> IdSMTP1(new TIdSMTP(NULL));
    std::auto_ptr<TIdMessage> IdMessage1(new TIdMessage(IdSMTP1.get() ));
 
    IdSMTP1->Host = "smtp.yandex.ru";
    IdSMTP1->Port = 25;
    IdSMTP1->Username ="from@yandex.ru";
    IdSMTP1->Password ="password";
 
    IdMessage1->From->Text ="from@yandex.ru";
    IdMessage1->Recipients->EMailAddresses = "to@yandex.ru";
 
    IdMessage1->ContentTransferEncoding = L"base64";
    IdMessage1->ContentType = L"text/plain; charset=windows-1251";
 
    IdMessage1->ExtraHeaders->Add("Subject:"+WinToWin1251Q(L"Тестовое письмо"));
 
    IdMessage1->Body->Add(L"Тело сообщения");
 
    IdMessage1->Priority= mpHighest;
    IdMessage1->Flags = IdMessage1->Flags << mfSeen; // Увы, не работает
 
    //IdMessage1->SaveToFile("d:\\1.txt");
 
    IdSMTP1->Connect();
    IdSMTP1->Send(IdMessage1.get() );
    IdSMTP1->Disconnect();
}

Правда главный вопрос о флагах пока в "воздухе висит".

@Avazart · 09.10.2012, 19:21

Правда главный вопрос о флагах пока в "воздухе висит".

Нужно наверное понять к чему это относится и смотреть в исходники.

@Clipper1982 · 09.10.2012, 19:36 **[ТС]**

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

Нужно наверное понять к чему это относится и смотреть в исходники.

Наверное.

Новые блоги и статьи Все статьи Все блоги /
Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .
сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .	10 сукцессия. Питон код войны грибов и растений anaschu 27.06.2026 import numpy as np class PlantAgent: def __init__(self, name, strategy, initial_biomass): self. name = name self. strategy = strategy # "greedy" (широколиственные) или. . .

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	08.10.2012, 00:05
	А версия Builder какая ? 0