Отправка письма с вложением

@kelabod · Регистрация: 10.02.2012

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

Всем привет!
Собрал из кусков код для отправки письма через mail с вложением файла. Текст письма на русском все ок.
Письмо отправляется файл крепится, но есть два вопроса.
1) Как сделать так, чтобы заголовок письма был на русском, а то заголовок письма ????????????
2) Как сделать ProgressBar, чтобы было видно, что файл крепится, письмо отправляется
Вот код программы

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
AnsiString subj="текст моего письма";
    AnsiString sFile;
    IdSSLIOHandlerSocketOpenSSL1->MaxLineAction = maException;
        IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Method = sslvTLSv1;
        IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Mode = sslmUnassigned;
        IdSSLIOHandlerSocketOpenSSL1->SSLOptions->VerifyDepth = 0;
 
    IdSMTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
    IdSMTP1->Host = "smtp.mail.ru";
    IdSMTP1->Port = 587;
    IdSMTP1->Username = "test@mail.ru";
    IdSMTP1->Password = "123";
    IdSMTP1->UseTLS = utUseExplicitTLS;
    IdSMTP1->ReadTimeout = 15000;
    IdSMTP1->Connect();
    if(IdSMTP1->Connected() == true)
    {
        ShowMessage("We have connect");
        TIdMessage *IdMessage1 = new TIdMessage();
        IdMessage1->Clear();
        IdMessage1->CharSet="Windows-1251";
        IdMessage1->From->Address = "test@mail.ru";
        IdMessage1->Recipients->EMailAddresses = "test2@gmail.com";
        IdMessage1->Subject = "заголовок письма весь в кракозябрах";
        IdMessage1->Body->Text = "Проверка связи это мое новое письмо отправлено с помощью программы";
               
                 //---------блок для прикрепления файла-----------------
 
        TIdAttachment *pAttachment;
        sFile = "D:\\1.jpg";
        pAttachment = new TIdAttachmentFile(IdMessage1->MessageParts,sFile);
        //---------------------------------------------------
        
                IdSMTP1->Send(IdMessage1);
        delete IdMessage1;
        delete IdSSLIOHandlerSocketOpenSSL1;
        IdSMTP1->Disconnect();
    }
    else ShowMessage("Dont have connect");

@leva · 02.12.2014, 23:34

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 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;
}
 
IdMessage1->ExtraHeaders->Add("Subject:"+WinToWin1251Q("заголовок письма"));

@kelabod · 03.12.2014, 08:13 **[ТС]**

ок спс. Сегодня попробую

@Avazart · 05.12.2014, 16:55

http://avazart.zz.mu/2014/10/t... t=standard

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@kelabod 84 / 11 / 7 Регистрация: 10.02.2012 Сообщений: 225 Записей в блоге: 3
	03.12.2014, 08:13 [ТС]
	ок спс. Сегодня попробую 0

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	05.12.2014, 16:55
	http://avazart.zz.mu/2014/10/t... t=standard 0