Отправка множества сообщений на mail.ru

@KaiKristo · Регистрация: 24.02.2015

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

Посылатор сообщений через мыло.
В идеале - программа должны отправлять несколько писем подряд
Что есть
Код логина.(логинов несколько, но для примера подойдет и 1)

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
 login[0]=Login1->Text;
      pas[0]=Password1->Text;
     smtp[0]=CheckSmtp(login[0]);//смпт в зависимости от логина(mail,inbox,bk,list)
      if ((Form1->IdSMTP1->Connected()==false) && (smtp[0]!="invalid"))
    {
    Form1->IdSMTP1->Host =smtp[0];//адрес СМТП сервака
    Form1->IdSMTP1->Username = login[0];//Логин
    Form1->IdSMTP1->Password = pas[0];//Пароль
    Form1->IdSMTP1->Port = 465;// порт SSL
    Form1->IdSMTP1->AuthType = satDefault;//с авторизацией
 
    Form1->IdSSLIOHandlerSocketOpenSSL1->MaxLineAction = maException;
    Form1->IdSSLIOHandlerSocketOpenSSL1->Destination = Form1->IdSMTP1->Host+":"+IntToStr(Form1->IdSMTP1->Port);
    Form1->IdSSLIOHandlerSocketOpenSSL1->Host = Form1->IdSMTP1->Host;
    Form1->IdSSLIOHandlerSocketOpenSSL1->Port = Form1->IdSMTP1->Port;
    Form1->IdSSLIOHandlerSocketOpenSSL1->DefaultPort=0;
    Form1->IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Method=sslvTLSv1;
    Form1->IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Mode=sslmUnassigned;
    Form1->IdSSLIOHandlerSocketOpenSSL1->SSLOptions->VerifyDepth = 0;
 
    Form1->IdSMTP1->IOHandler=Form1->IdSSLIOHandlerSocketOpenSSL1;
    Form1->IdSMTP1->UseTLS=utUseExplicitTLS;
    }
    try //коннект
    {
        try
        {
            if (Form1->IdSMTP1->Connected())
                Form1->IdSMTP1->Disconnect();
            Form1->IdSMTP1->ReadTimeout = 1500;
            Form1->IdSMTP1->Connect();
        status[0]=true;
        Shape1->Brush->Color=clGreen;
        }
        catch (Exception &exception)
        {
            Form1->IdSMTP1->Disconnect(); Shape1->Brush->Color=clRed;
            MessageDlg("Application, may not connected", mtError, TMsgDlgButtons() << mbYes, 0);
            Abort;
        }
        // My Code Here
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
        Form1->IdSMTP1->Disconnect();Shape1->Brush->Color=clRed;
    }

В этом куске кода всё отлично, всё логинится.
дальше функция которая выставляет на выбранном ТIdMessage настройки сообщения в зависимости от выбранного nlist выбирается соответствующее письмо(писем всего 5)
тут тоже всё нормально.

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
void mail1(TIdMessage *mes1,int nlist)
{
switch(nlist)
{
case 1:
    mes1->Body->Assign(Form1->M1->Lines);//тут мы берем текст из Memo
    mes1->From->Text = login[0];//от кого письмо (если сервер не проверяет, можно левый адрес)
    mes1->ContentType = "text/plain";
    mes1->CharSet = "UTF-8";
    mes1->ContentTransferEncoding = "base64";
    mes1->Subject = Form1->Edit10->Text;//Заголовок письма
    mes1->Recipients->EMailAddresses = Form1->Edit9->Text;//Адрес получателя
    break;
case 2:
mes1->Body->Assign(Form1->M2->Lines);//тут мы берем текст из Memo
mes1->From->Text = login[1];//от кого письмо (если сервер не проверяет, можно левый адрес)
mes1->ContentType = "text/plain";
mes1->CharSet = "UTF-8";
mes1->ContentTransferEncoding = "base64";
mes1->Subject = Form1->Edit2->Text;//Заголовок письма
mes1->Recipients->EMailAddresses = Form1->Edit1->Text;//Адрес получателя
break;
case 3:
mes1->Body->Assign(Form1->M3->Lines);//тут мы берем текст из Memo
mes1->From->Text = login[2];//от кого письмо (если сервер не проверяет, можно левый адрес)
mes1->ContentType = "text/plain";
mes1->CharSet = "UTF-8";
mes1->ContentTransferEncoding = "base64";
mes1->Subject = Form1->Edit4->Text;//Заголовок письма
mes1->Recipients->EMailAddresses = Form1->Edit3->Text;//Адрес получателя
break;
case 4:
mes1->Body->Assign(Form1->M4->Lines);//тут мы берем текст из Memo
mes1->From->Text = login[3];//от кого письмо (если сервер не проверяет, можно левый адрес)
mes1->ContentType = "text/plain";
mes1->CharSet = "UTF-8";
mes1->ContentTransferEncoding = "base64";
mes1->Subject = Form1->Edit8->Text;//Заголовок письма
mes1->Recipients->EMailAddresses = Form1->Edit7->Text;//Адрес получателя
break;
case 5:
mes1->Body->Assign(Form1->M5->Lines);//тут мы берем текст из Memo
mes1->From->Text = login[4];//от кого письмо (если сервер не проверяет, можно левый адрес)
mes1->ContentType = "text/plain";
mes1->CharSet = "UTF-8";
mes1->ContentTransferEncoding = "base64";
mes1->Subject = Form1->Edit6->Text;//Заголовок письма
mes1->Recipients->EMailAddresses =Form1->Edit5->Text;//Адрес получателя
break;
}
}

Вот собственно отправка
mytime1 по умолчанию 0;
тут от 0 до 4 выбирается письмо, передается на idMessage1,
пробует отправить, включает таймер 2, на котором просто пауза в 2.5 секунды и идет дальше, запуская таймер1.
Первое письмо отправляется нормально, но вот все последующие - ошибка.

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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Form1->Caption=(mytime1);
switch(mytime1)
{
case 0:
try
        {
           mail1(IdMessage1,mytime1+1);//выбираем нужный компонент и нужное письмо
            Form1->IdSMTP1->Send(Form1->IdMessage1);//отправка
        }
        catch (Exception &exception)
        {
            //MessageDlg("Application, may not connected", mtError, TMsgDlgButtons() << mbYes, 0);
            Abort;
        }
        Timer2->Enabled=true;//задержка 2.5 секунды
Timer1->Enabled=false;
break;
case 1:
try
        {     mail1(IdMessage1,mytime1+1);
            Form1->IdSMTP1->Send(Form1->IdMessage1);
        }
        catch (Exception &exception)
        {
            //MessageDlg("Application, may not connected", mtError, TMsgDlgButtons() << mbYes, 0);
            Abort;
        }
Timer2->Enabled=true;
Timer1->Enabled=false;
break;
 
 
case 2:
try
        {    mail1(IdMessage1,mytime1+1);
            Form1->IdSMTP1->Send(Form1->IdMessage1);
 
        }
        catch (Exception &exception)
        {
           //   MessageDlg("Application, may not connected", mtError, TMsgDlgButtons() << mbYes, 0);
            Abort;
        }Timer2->Enabled=true;
Timer1->Enabled=false;
break;
case 3:
try
        {   mail1(IdMessage1,mytime1+1);
            Form1->IdSMTP1->Send(Form1->IdMessage1);
 
        }
        catch (Exception &exception)
        {
            //MessageDlg("Application, may not connected", mtError, TMsgDlgButtons() << mbYes, 0);
            Abort;
        }Timer2->Enabled=true;
Timer1->Enabled=false;
break;
case 4:
try
        {     mail1(IdMessage1,mytime1+1);
            Form1->IdSMTP1->Send(Form1->IdMessage1);
 
        }
        catch (Exception &exception)
        {
            //MessageDlg("Application, may not connected", mtError, TMsgDlgButtons() << mbYes, 0);
            Abort;
        }Timer2->Enabled=true;
Timer1->Enabled=false;
 
break;
case 5:
Timer1->Enabled=false;
Form1->Caption=mytime1;
 
break;
} 
mytime1++;
}

Внимание вопрос, КАК сделать множественную отправку??

@Dinkin · 19.08.2016, 10:33

PS что значит множественную, это 10,20 500 писем за раз?. Все стандартные почтовые ящики имеют лимит отправки писем за определенное время.
К примеру майл ру, раньше разрешал максимум 50 писем в час...если Вы используете ящики на хостинге, то у каждого свои критерии, максимум чт встречал это 150 писем в час/

@starkiron · 19.08.2016, 12:33

KaiKristo, абсолютно верно ответили выше, посмотрите лимиты, я делал как то парсер емейлов и проверку на существование их, т.е отсылку письма и просмотр ответа, в день обрабатывалось порядка 20 000 писам, но программа отсылала и принимала письма с разных адресов и серверов... т.е вам по идее надо тупо зарегистрировать много адресов, сделать таймер и слать с них писем чуть меньше допустимого значения. в идеале еще и что бы все ящики были на разных серверах... ну или воспользоваться платным smtp или поставить свой)

@KaiKristo · 19.08.2016, 14:32 **[ТС]**

Ребят, просьба вчитаться в сообщение. тут по коду: я 5 разных сообщений с 1го мыла отправить не могу. с интервалом 2.5 секунды. Я в ручную, в браузере быстрее письма отправляю )

@starkiron · 19.08.2016, 14:47

KaiKristo,

C++
1
2
Timer2->Enabled=true;//задержка 2.5 секунды
Timer1->Enabled=false;

что по вашему выполняет это кусок кода?
задержка 2.5 секунды, ставите интервал у таймера 2500

если честно то вы написали какую то ересь, вы тестировали?

лично у меня пример попроще есть, без лишних конструций и нагромождений проверил все работат, ну правда на второй третий раз тупо мейл и яндекс не дает отправить много писам с малым промежутком...

@KaiKristo · 21.08.2016, 07:23 **[ТС]**

2.5 секунды интервал между отправками.

@KaiKristo · 22.08.2016, 12:56 **[ТС]**

Решил проблему

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения 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 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,154 Записей в блоге: 3
	19.08.2016, 10:33
	PS что значит множественную, это 10,20 500 писем за раз?. Все стандартные почтовые ящики имеют лимит отправки писем за определенное время. К примеру майл ру, раньше разрешал максимум 50 писем в час...если Вы используете ящики на хостинге, то у каждого свои критерии, максимум чт встречал это 150 писем в час/ 0

@starkiron 64 / 64 / 16 Регистрация: 07.05.2016 Сообщений: 304
	19.08.2016, 12:33
	KaiKristo, абсолютно верно ответили выше, посмотрите лимиты, я делал как то парсер емейлов и проверку на существование их, т.е отсылку письма и просмотр ответа, в день обрабатывалось порядка 20 000 писам, но программа отсылала и принимала письма с разных адресов и серверов... т.е вам по идее надо тупо зарегистрировать много адресов, сделать таймер и слать с них писем чуть меньше допустимого значения. в идеале еще и что бы все ящики были на разных серверах... ну или воспользоваться платным smtp или поставить свой) 0

@KaiKristo 29 / 19 / 10 Регистрация: 24.02.2015 Сообщений: 124
	19.08.2016, 14:32 [ТС]
	Ребят, просьба вчитаться в сообщение. тут по коду: я 5 разных сообщений с 1го мыла отправить не могу. с интервалом 2.5 секунды. Я в ручную, в браузере быстрее письма отправляю ) 0

@KaiKristo 29 / 19 / 10 Регистрация: 24.02.2015 Сообщений: 124
	21.08.2016, 07:23 [ТС]
	2.5 секунды интервал между отправками. 0

@KaiKristo 29 / 19 / 10 Регистрация: 24.02.2015 Сообщений: 124
	22.08.2016, 12:56 [ТС]
	Решил проблему 0