Добрый день ! Подскажите что я делаю не правильно ?
Стартую бизнес процесс Ознакомление программно ...
Вопрос: Почему не приходит уведомление Исполнителю на почту ?
&НаСервере
Процедура ОтправитьНаОзнакомлениеПоПочтеНаСервере()
// "ЗаголовокШапка", "ВходящихЗапросов", "ИсполненныхЗапросов", "ИсполненоЗаданий"
// Сообщить("ЗаголовокШапка : " + ЭтаФорма.ЗаголовокШапка);
// Сообщить("ВходящихЗапросов : " + ЭтаФорма.ВходящихЗапросов);
// Сообщить("ИсполненныхЗапросов : " + ЭтаФорма.ИсполненныхЗапросов);
// Сообщить("ИсполненоЗаданий : " + ЭтаФорма.ИсполненоЗаданий);
Исполнители = Новый Массив;
Если ЭтаФорма.Адресат1 <> Справочники.Пользователи.ПустаяСсылка() Тогда
Исполнители.Добавить(ЭтаФорма.Адресат1);
КонецЕсли;
Если ЭтаФорма.Адресат2 <> Справочники.Пользователи.ПустаяСсылка() Тогда
Исполнители.Добавить(ЭтаФорма.Адресат2);
КонецЕсли;
Если ЭтаФорма.Адресат3 <> Справочники.Пользователи.ПустаяСсылка() Тогда
Исполнители.Добавить(ЭтаФорма.Адресат3);
КонецЕсли;
Если ЭтаФорма.Адресат4 <> Справочники.Пользователи.ПустаяСсылка() Тогда
Исполнители.Добавить(ЭтаФорма.Адресат4);
КонецЕсли;
Если ЭтаФорма.Адресат5 <> Справочники.Пользователи.ПустаяСсылка() Тогда
Исполнители.Добавить(ЭтаФорма.Адресат5);
КонецЕсли;
Если Исполнители.Количество() = 0 Тогда
Сообщить("Выберите пользователей - КОМУ отправлять на почту для ознакомления !");
Возврат;
КонецЕсли;
Бп = БизнесПроцессы.Ознакомление.СоздатьБизнесПроцесс();
Бп.Дата = ТекущаяДатаСеанса();
Бп.Важность = Перечисления.ВариантыВажностиЗадачи.Обычная;
Бп.Автор = Пользователи.ТекущийПользователь(); // Справочники.Пользователи.НайтиПоНаименованию("Уведомления1С");
// Объект.ДежурнаяСмена; // <---- Пользователь:=Уведомления1С
Бп.Проект = РаботаСПроектами.ПолучитьПроектПоУмолчанию();
Бп.Наименование = "Ознакомиться с отчетом : Поступило запросов " + ЭтаФорма.ЗаголовокШапка;
Бп.Описание = ЭтаФорма.ЗаголовокШапка + Символы.ПС +
"ВходящихЗапросов : " + ЭтаФорма.ВходящихЗапросов + Символы.ПС +
"ИсполненныхЗапросов : " + ЭтаФорма.ИсполненныхЗапросов + Символы.ПС +
"ИсполненоЗаданий : " + ЭтаФорма.ИсполненоЗаданий;
ОтправленоПользователям = "Отправлено : ";
Если Исполнители<>Неопределено Тогда
Для Каждого Исполнитель ИЗ Исполнители Цикл
Строка = Бп.Исполнители.Добавить();
Строка.Исполнитель = Исполнитель;
ОтправленоПользователям = ОтправленоПользователям + СокрЛП(Исполнитель) + Символы.ПС;
КонецЦикла;
КонецЕсли;
Бп.Записать();
Бп.Старт();
// Неужели нужно принудительно формировать для каждой Задачи ??? :
// ВыполнениеЗадачПоПочтеСервер.СформироватьУведомлениеПоЗадаче(Объект.Задача);
Сообщить(ОтправленоПользователям);
КонецПроцедуры
Показать
Всё заработало само собой ! Какой то затык непонятный.