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

@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

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .

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

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