Отчет об ошибках

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

	тз = Новый ТаблицаЗначений;
	отб = Новый Структура("Event, StartDate", "_$PerformError$_");
	отб.StartDate = НачалоДня(ТекущаяДата());
	ВыгрузитьЖурналРегистрации(тз, отб);
	
	Если тз.Количество() = 0 Тогда 
		Возврат;	
	КонецЕсли;
	
	табДок = Новый ТабличныйДокумент;
	мкт = ПолучитьОбщийМакет("МакетОтчетОшибки");
	облШапка = мкт.ПолучитьОбласть("Шапка");
	облСтрока = мкт.ПолучитьОбласть("Данные");
	
	табДок.Вывести(облШапка);
	Для каждого стр из тз Цикл 
		ЗаполнитьЗначенияСвойств(облСтрока.Параметры, стр);
		табДок.Вывести(облСтрока);
	КонецЦикла;
	
	фл = ПолучитьИмяВременногоФайла("pdf");
	табДок.Записать(фл, ТипФайлаТабличногоДокумента.PDF);
	
	Профиль = Новый ИнтернетПочтовыйПрофиль;
	Профиль.АдресСервераSMTP = "СЕРВЕР";
	Профиль.ИспользоватьSSLSMTP = Истина;
	Профиль.ПортSMTP = ПОРТ_СЕРВЕРА;
	Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Истина;
	Профиль.ПользовательSMTP = "ПОЛЬЗОВАТЕЛЬ";
	Профиль.ПарольSMTP = "ПАРОЛЬ";
	
	Почта = Новый ИнтернетПочта;
	Почта.Подключиться(Профиль);
	
	Сооб = Новый ИнтернетПочтовоеСообщение;
	Сооб.Отправитель = "ваш_емаил";
	Сооб.Получатели.Добавить("емаил_отправителя");
	Сооб.Тема = "Ошибки за " + ФОРМАТ(ТекущаяДата(), "ДЛФ=DD");
	Сооб.Тексты.Добавить("Ошибки за " + ФОРМАТ(ТекущаяДата(), "ДЛФ=DD"), ТипТекстаПочтовогоСообщения.ПростойТекст);
	Сооб.Вложения.Добавить(фл, "");
	
	Почта.Послать(Сооб);
	Почта.Отключиться();

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

* Copy This Password *

* Type Or Paste Password Here *

21 143 Spam Comments Blocked so far by Spam Free Wordpress