Отправка сообщений на email
По теме из базы знаний
- Отправка сообщений на электронную почту из 1С
- Отправка сообщений через электронную почту из 1С
- Простые подсистемы. Управление контактными сообщениями: регистрация и последующая отправка сообщений из 1С (E-Mail, SMS)
- Расширение отправки сообщений в ЗУП 3.1
- Подбор электронной почты в форме отправки сообщения
Найденные решения
Функция ВыполнитьРассылку(ДатаРассылки) Экспорт
СписокПолучивших = "";
Если ЭтотОбъект.Договоры.Количество() = 0 Тогда
Возврат СписокПолучивших;
КонецЕсли;
Конст = Константа.ЗаголовокСистемы.Получить();
ЗаголовокПрограммы = "Комплексная " + ?(ЗначениеЗаполнено(Конст),Конст,"Общая");
НужныеСтроки = ЭтотОбъект.Договоры.НайтиСтроки(Новый Структура("ОК",Истина));
МассивМенеджеров = ЭтотОбъект.Договоры.Выгрузить(НужныеСтроки,"Ответственный");
МассивМенеджеров.Свернуть("Ответственный");
Для каждого Менеджер Из МассивМенеджеров Цикл
Если Менеджер.Пустая() Тогда
Продолжить;
КонецЕсли;
ТекстСписка = "";
ТекстПисьма = "";
Адрес = "";
Счетчик = 1;
МассДоговоры = ЭтотОбъект.Договоры.НайтиСтроки(Новый Структура("Менеджер, ОК",Ответственный,Истина));
Для каждого СтрТЧ Из МассДоговоры Цикл
ТекстСписка = ТекстСписка + Формат(Счетчик,"ЧГ=0") + СтрТЧ.СпрСсылка + Символы.ПС;
Адрес = СтрТЧ.Адрес;
Счетчик = Счетчик + 1;
КонецЦикла;
Если не ЗначениеЗаполнено(Адрес) Тогда
Продолжить;
КонецЕсли;
ТекстПисьма = ТекстПисьмаВФорматеHTML(Менеджер, ДатаРассылки, ТекстСписка, ЗаголовокПрограммы);
Если СозданиеИОтправкаПисьма(Адрес, ТекстПисьма) Тогда
СписокПолучивших = СписокПолучивших + Менеджер + Символы.ПС;
КонецЕсли;
КонецЦикла;
Возврат СписокПолучивших;
КонецФункции
ПоказатьОстальные ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Функция ВыполнитьРассылку(ДатаРассылки) Экспорт
СписокПолучивших = "";
Если ЭтотОбъект.Договоры.Количество() = 0 Тогда
Возврат СписокПолучивших;
КонецЕсли;
Конст = Константа.ЗаголовокСистемы.Получить();
ЗаголовокПрограммы = "Комплексная " + ?(ЗначениеЗаполнено(Конст),Конст,"Общая");
НужныеСтроки = ЭтотОбъект.Договоры.НайтиСтроки(Новый Структура("ОК",Истина));
МассивМенеджеров = ЭтотОбъект.Договоры.Выгрузить(НужныеСтроки,"Ответственный");
МассивМенеджеров.Свернуть("Ответственный");
Для каждого Менеджер Из МассивМенеджеров Цикл
Если Менеджер.Пустая() Тогда
Продолжить;
КонецЕсли;
ТекстСписка = "";
ТекстПисьма = "";
Адрес = "";
Счетчик = 1;
МассДоговоры = ЭтотОбъект.Договоры.НайтиСтроки(Новый Структура("Менеджер, ОК",Ответственный,Истина));
Для каждого СтрТЧ Из МассДоговоры Цикл
ТекстСписка = ТекстСписка + Формат(Счетчик,"ЧГ=0") + СтрТЧ.СпрСсылка + Символы.ПС;
Адрес = СтрТЧ.Адрес;
Счетчик = Счетчик + 1;
КонецЦикла;
Если не ЗначениеЗаполнено(Адрес) Тогда
Продолжить;
КонецЕсли;
ТекстПисьма = ТекстПисьмаВФорматеHTML(Менеджер, ДатаРассылки, ТекстСписка, ЗаголовокПрограммы);
Если СозданиеИОтправкаПисьма(Адрес, ТекстПисьма) Тогда
СписокПолучивших = СписокПолучивших + Менеджер + Символы.ПС;
КонецЕсли;
КонецЦикла;
Возврат СписокПолучивших;
КонецФункции
Показать
Вакансии
Аналитик 1С / Бизнес-аналитик
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)