Отправку писем с периодичностью

@Ermak27 · Регистрация: 16.01.2013

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

Добрый день! Я отправляю письма с помощью этого кода

1C

    ОчиститьСообщения();
    
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    
    АдресО                       = "*********";
    Пароль                       = "*********";
    АдресСервера                 = "smtp.gmail.com";    
    Профиль.АдресСервераSMTP     = АдресСервера; 
    Профиль.ПортSMTP             = 465;
    Профиль.Пользователь         = АдресО;
    Профиль.Пароль               = Пароль;
    Профиль.АутентификацияSMTP   = СпособSMTPАутентификации.ПоУмолчанию;
    Профиль.ИспользоватьSSLSMTP  = Истина;
    Профиль.ПарольSMTP           = Пароль;
    Профиль.ПользовательSMTP     = АдресО; 
    
    Почта = Новый ИнтернетПочта;
    Попытка
        Почта.Подключиться(Профиль);
    Исключение
        Сообщить("Ошибка при подключении к серверу" + ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    
    Для Каждого Стр из ТабличнаяЧасть1 Цикл
        АдресП = Стр.mail;
        Если АдресП="Нет данных" Тогда
            Продолжить;
        КонецЕсли;     
        Сообщение = Новый ИнтернетПочтовоеСообщение;
        Сообщение.Отправитель = АдресО;
        Сообщение.Получатели.Добавить(АдресП);
        Сообщение.Тема = ТемаПисьма;
        Сообщение.Тексты.Добавить(Текст,ТипТекстаПочтовогоСообщения.HTML);
        Состояние("Идет отправка посты на адрес: "+АдресП);  
        Почта.Послать(Сообщение);
        Сообщить("Почта отправлена: "+ АдресП);
    КонецЦикла;
    Почта.Отключиться();

Можете подсказать как сделать чтобы отправлять по 20 писем через 1 минуту?
Спасибо

@GreenkA · 18.01.2017, 14:47

Ermak27, сделайте счетчик + обработчик ожидания.

@Ermak27 · 18.01.2017, 15:06 **[ТС]**

GreenkA, можете показать пример обработчик ожидания со счетчиком. Отдельно я счетчик делал, но как вместе сделать мне не понятно.

@Dethmontt · 18.01.2017, 18:02

Ermak27, что значит каждую минуту по 20 писем?

@GreenkA · 18.01.2017, 22:30

Ermak27, это обычное приложение?

1C

Перем Индекс;
 
Процедура НачатьОтправкуПисем(Кнопка)
    Индекс = 0;
    ПодключитьОбработчикОжидания("ОтправкаПисем", 60);
КонецПроцедуры
 
Процедура ОтправкаПисем()
    Для к = 1 по 20 Цикл
        Если Индекс <= ТабличнаяЧасть1.Количество()-1 Тогда
            //отправляем письма, адрес = ТабличнаяЧасть1[Индекс].mail
            Индекс = Индекс + 1;            
        Иначе
            ОтключитьОбработчикОжидания("ОтправкаПисем");//закончились адресаты
            Прервать;
        КонецЕсли;
    КонецЦикла;   
КонецПроцедуры

@Dethmontt · 20.01.2017, 02:49

Не по теме:

GreenkA, а если в табличной части 30 адресатов?

@GreenkA · 20.01.2017, 10:42

Не по теме:

Dethmontt, там же идет проверка индекса и количества строк в ТЧ перед отправкой письма. Или ты про то, почему именно 20 писем каждую минуту?) Это скорее вопрос к ТС:gpardon:
Но можно сделать механизм более гибким и прописывать не фиксировано 20, а получать из какой настройки...

@Dethmontt · 20.01.2017, 13:35

Не по теме:

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

Или ты про то, почему именно 20 писем каждую минуту?

Я про то что будет с последними 10 строками если в ТЧ 30 записей? Они никогда не получат уведомление?

@GreenkA · 20.01.2017, 14:24

Не по теме:

Dethmontt, почему не получат? Здесь же условие по индексу и количеству строк ТЧ прописано, 20 здесь ни о чем:

1C

Для к = 1 по 20 Цикл
        Если Индекс <= ТабличнаяЧасть1.Количество()-1 Тогда
            //отправляем письма, адрес = ТабличнаяЧасть1[Индекс].mail
            Индекс = Индекс + 1;

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

Добавлено через 6 минут
Внесла коррективы:

1C

1	Индекс = Индекс + 1;

Но думаю, Денис все равно не об этом)

@GreenkA 3057 / 2004 / 524 Регистрация: 25.06.2009 Сообщений: 6,964
	18.01.2017, 14:47	2
	Ermak27, сделайте счетчик + обработчик ожидания. 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	18.01.2017, 15:06 [ТС]	3
	GreenkA, можете показать пример обработчик ожидания со счетчиком. Отдельно я счетчик делал, но как вместе сделать мне не понятно. 0

@Dethmontt Модератор 3784 / 2964 / 589 Регистрация: 10.03.2011 Сообщений: 11,669 Записей в блоге: 1
	18.01.2017, 18:02	4
	Ermak27, что значит каждую минуту по 20 писем? 0

@Dethmontt
	20.01.2017, 02:49 #6
	Не по теме: GreenkA, а если в табличной части 30 адресатов? 0

@GreenkA
	20.01.2017, 10:42 #7
	Не по теме: Dethmontt, там же идет проверка индекса и количества строк в ТЧ перед отправкой письма. Или ты про то, почему именно 20 писем каждую минуту?) Это скорее вопрос к ТС:gpardon: Но можно сделать механизм более гибким и прописывать не фиксировано 20, а получать из какой настройки... 0

@Dethmontt
	20.01.2017, 13:35 #8
	Не по теме: Сообщение от GreenkA Или ты про то, почему именно 20 писем каждую минуту? Я про то что будет с последними 10 строками если в ТЧ 30 записей? Они никогда не получат уведомление? 0

	20.01.2017, 14:24

Отправку писем с периодичностью

Решение