Повторное уведомление на почту (ДО 1.4 Процесс Согласование)

1С:Документооборот

1. Vitaly1C8 11.07.17 10:55 Сейчас в теме

Добрый день ! (Документооборот 1.4)
Ситуация следующая: был запущен процесс Согласование;
Юзеру на почту пришло уведомление, на которое он прочел но не нажал Согласовано;
Проходит неделя ... Найти в почте это письмо для юзера - нереально. В 1С мы с короной на голове не заходим в принципе.
Необходимо: Повторно отправить юзеру уведомление на почту по запущенному ранее процессу !
Подскажите как это сделать ! (Может в конфе предусмотрено а я не в курсе)

Найденные решения

2. Vitaly1C8 11.07.17 13:24 Сейчас в теме

Сделал следующее:

Задачи.ЗадачаИсполнителя.Формы
ФормаСписка
МоиЗадачи

Добавил кнопку: ПовторитьУведомлениеНаПочту
Добавил команду: ПовторитьУведомлениеНаПочту

Процедура ПриОткрытии(Отказ)
	
	#Если Не ВебКлиент Тогда
		УстановитьАвтообновлениеФормы();
	#КонецЕсли
	
	// В.Ч.
	ЕстьРольДляДоступа = вчПрава.ЕстьПрофиль();
	// При вызове без параметров проверяет входит ли Пользователь в Группу "Администраторы" или "Делопроизводители"
	Если НЕ ЕстьРольДляДоступа Тогда		
		// Сообщить("Доступ к Повторным Уведомлениям есть только у групп ""Администраторы"" и ""Делопроизводители"" !");
		ЭтаФорма.Элементы.ПовторитьУведомлениеНаПочту.Доступность = Ложь;
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПовторитьУведомлениеНаПочту(Команда)
	Сооб = "";
	Попытка
		ТекущаяЗадача = Элементы.Список.ВыделенныеСтроки[0];
		Успех = ВыполнениеЗадачПоПочтеСервер.СформироватьУведомлениеПоЗадаче(ТекущаяЗадача);
		Если Успех Тогда
			Сооб = "Уведомление - отправлено на почту !";
		Иначе
			Сооб = "Не удалось отправить Уведомление на почту (по задаче) !";
		КонецЕсли;
	Исключение
		Сооб = "Выделите Задачу в списке, и только затем нажимайте [Уведомление] !";
	КонецПопытки;
	Сообщить(Сооб);
	
КонецПроцедуры

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Vitaly1C8 11.07.17 13:24 Сейчас в теме

Процедура ПриОткрытии(Отказ)
	
	#Если Не ВебКлиент Тогда
		УстановитьАвтообновлениеФормы();
	#КонецЕсли
	
	// В.Ч.
	ЕстьРольДляДоступа = вчПрава.ЕстьПрофиль();
	// При вызове без параметров проверяет входит ли Пользователь в Группу "Администраторы" или "Делопроизводители"
	Если НЕ ЕстьРольДляДоступа Тогда		
		// Сообщить("Доступ к Повторным Уведомлениям есть только у групп ""Администраторы"" и ""Делопроизводители"" !");
		ЭтаФорма.Элементы.ПовторитьУведомлениеНаПочту.Доступность = Ложь;
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПовторитьУведомлениеНаПочту(Команда)
	Сооб = "";
	Попытка
		ТекущаяЗадача = Элементы.Список.ВыделенныеСтроки[0];
		Успех = ВыполнениеЗадачПоПочтеСервер.СформироватьУведомлениеПоЗадаче(ТекущаяЗадача);
		Если Успех Тогда
			Сооб = "Уведомление - отправлено на почту !";
		Иначе
			Сооб = "Не удалось отправить Уведомление на почту (по задаче) !";
		КонецЕсли;
	Исключение
		Сооб = "Выделите Задачу в списке, и только затем нажимайте [Уведомление] !";
	КонецПопытки;
	Сообщить(Сооб);
	
КонецПроцедуры

Показать

Оставьте свое сообщение

E-mail: