Indy10 Отправка писем

@stokkato · Регистрация: 28.12.2013

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

Нашел пример отправки на Delphi.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    // Подготовка тела письма
    IdMessage.From.Address := 'адрес@e-mail';
    IdMessage.Recipients.Add.Address := 'адрес@e-mail';
    IdMessage.UseNowForDate := True;
    IdMessage.Subject := 'Тема письма';
    With TIdText.Create(IdMessage.MessageParts) do
    begin
      Body.Text := 'Простой текст письма';
      ContentType := 'text/plain; charset=windows-1251';
    end;
    With TIdText.Create(IdMessage.MessageParts) do
    begin
      Body.Text := '<p>Текст письма в формате <b>HTML</b></p>';
      ContentType := 'text/html; charset=windows-1251';
    end;
    TIdAttachmentFile.Create(IdMessage.MessageParts, 'Имя присоединяемого файла'));
 
    IdSMTP.Host := 'адрес сервера';
    IdSMTP.Username := 'логин';
    IdSMTP.Password := 'пароль';
    IdSMTP.MailAgent := 'GiG'#39's Mail';
    IdSMTP.Connect;
    IdSMTP.Send(IdMessage);
    IdSMTP.Disconnect;

А вот на C++ не нашел ничего. Буду очень благодарен, если подкинете. Особенно интересует вопрос: как прикрепить файл к сообщению. Заранее спасибо.

@volvo · 10.10.2014, 22:38

Чего подкинуть-то? Ты ж нашел на Дельфи, тот же код, записанный синтаксисом С++, будет работать, если работает Дельфийский... В чем проблема взять и перевести?

@stokkato · 11.10.2014, 21:27 **[ТС]**

А и перевел:

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
trMessage->Clear();
 
    trMessage->Recipients->EMailAddresses = "";
    trMessage->UseNowForDate             = true;
    trMessage->Subject                   = "Письмецо в конверте";
 
    trMessage->Body->Text                = "Текст письма";
    trMessage->ContentType               = "text/plain; charset=windows-1251";
 
    TIdMessageBuilderPlain* MyMessage = new TIdMessageBuilderPlain();
 
    MyMessage->Attachments->Add("C:\File.txt");
    MyMessage->PlainText->Text = "Текст";
    MyMessage->FillMessage(trMessage);
 
    trSMTP->Host = "smtp.mail.ru";
    trSMTP->Port = 465;
    trSMTP->Username = "";
    trSMTP->Password = "";
 
    try {
        trSMTP->Connect();
        trSMTP->Send(trMessage);
        trSMTP->Disconnect();
        Label3->Caption = "ok";
    } catch (...) {
        ShowMessage("error...");
    }
    delete MyMessage;

А только не отправляется письмо, и не могу понять, в чем проблема. Может в trSSLIOHandlerSocketOpenSSL настройки должны быть иными. А какими?

@volvo · 11.10.2014, 21:57

ну, файл у тебя в любом случае не приложится, ибо обратные слеши надо экранировать. Неужели по подсветке тут, на форуме, этого не видно?

А второе - smtp.mail.ru самый поганый сервер из существующих. Все время что-то ему не так, каждый раз запускаешь программу, и думаешь, сработает на этот раз или нет. И то, что сработало сейчас - совсем не значит, что сработает через 10 минут.

Не по теме:

Были прецеденты: одна и та же программа, без изменения настроек, на один и тот же адрес неделю отправляла письма стабильно, потом - примерно 20% неправильных срабатываний. Дальше - больше, процент отказов увеличился до 70%. Мне надоело, я просто послал тех, кто пользуется mail.ru, и сделал все на другом сервере. Работает как часы...

@stokkato · 11.10.2014, 22:38 **[ТС]**

Пробовал и на gmail.com. Та же тема. Не пускает. А путь к файлу я уже тут вписал, для примера. Он из едита берется.

Добавлено через 26 минут
А сейчас выдает: not local sender over smtp

@Avazart · 11.10.2014, 23:00

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

Пробовал и на gmail.com.

Порт поменял надеюсь на gmail-ловский?

Добавлено через 19 минут
Да и тут есть пример настройки для майл ру IdSMTP: Range Check Error

@stokkato · 11.10.2014, 23:13 **[ТС]**

Уже разобрался, отправителя забыл указать, сервак посчитал спамером.
Осталось разобраться с кодировкой.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@volvo Супер-модератор 33374 / 21499 / 8235 Регистрация: 22.10.2011 Сообщений: 36,894 Записей в блоге: 11
	10.10.2014, 22:38
	Чего подкинуть-то? Ты ж нашел на Дельфи, тот же код, записанный синтаксисом С++, будет работать, если работает Дельфийский... В чем проблема взять и перевести? 0

@volvo Супер-модератор 33374 / 21499 / 8235 Регистрация: 22.10.2011 Сообщений: 36,894 Записей в блоге: 11
	11.10.2014, 21:57
	ну, файл у тебя в любом случае не приложится, ибо обратные слеши надо экранировать. Неужели по подсветке тут, на форуме, этого не видно? А второе - smtp.mail.ru самый поганый сервер из существующих. Все время что-то ему не так, каждый раз запускаешь программу, и думаешь, сработает на этот раз или нет. И то, что сработало сейчас - совсем не значит, что сработает через 10 минут. Не по теме: Были прецеденты: одна и та же программа, без изменения настроек, на один и тот же адрес неделю отправляла письма стабильно, потом - примерно 20% неправильных срабатываний. Дальше - больше, процент отказов увеличился до 70%. Мне надоело, я просто послал тех, кто пользуется mail.ru, и сделал все на другом сервере. Работает как часы... 0

@stokkato 1 / 1 / 0 Регистрация: 28.12.2013 Сообщений: 86
	11.10.2014, 22:38 [ТС]
	Пробовал и на gmail.com. Та же тема. Не пускает. А путь к файлу я уже тут вписал, для примера. Он из едита берется. Добавлено через 26 минут А сейчас выдает: not local sender over smtp 0

@stokkato 1 / 1 / 0 Регистрация: 28.12.2013 Сообщений: 86
	11.10.2014, 23:13 [ТС]
	Уже разобрался, отправителя забыл указать, сервак посчитал спамером. Осталось разобраться с кодировкой. 0