set wshshell=CreateObject("wscript.shell")
call wshshell.run("%comspec% /c mofcomp -N:root\cimv2 %SystemRoot%\system32\Wbem\Wbemcons.mof&&pause",9,-1)
Computer="."
Set Service = GetObject("winmgmts:\\" & Computer & "\Root\CIMV2")
Set oFilter = Service.Get("__EventFilter").SpawnInstance_()
oFilter.Name = "MonPrnJob"
oFilter.QueryLanguage = "WQL"
oFilter.Query = "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_PrintJob'"
oFilter.Put_
Set oConsumer = Service.Get("LogFileEventConsumer").SpawnInstance_()
oConsumer.Name = "MonPrnJobLog"
oConsumer.FileName = "C:\MonPrn.txt"
oConsumer.Text = "Компьютер: %TargetInstance.Name%, Имя принтера: %TargetInstance.Name%, Документ: %TargetInstance.Document%, Пользователь: %TargetInstance.Owner%, Всего страниц: %TargetInstance.TotalPages%, Время печати:  %TargetInstance.TimeSubmitted%, Отпечатано страниц: %TargetInstance.PagesPrinted%"
oConsumer.Put_
Set oFilter = Service.Get("__EventFilter.Name='MonPrnJob'")
Set oConsumer = Service.Get("LogFileEventConsumer.Name='MonPrnJobLog'")
Set oBinding = Service.Get("__FilterToConsumerBinding").SpawnInstance_()
oBinding.Filter = oFilter.Path_
oBinding.Consumer = oConsumer.Path_

oBinding.Put_

Процедура ДействияФормыОткрытьВOutlook(Кнопка)
	
	ИмяФайла = КаталогВременныхФайлов() + "Акт приёма.xls";
	
	ВременныйФайл = Новый Файл(ИмяФайла);
	Если ВременныйФайл.Существует() Тогда
		Попытка
			УдалитьФайлы(ИмяФайла);
		Исключение
			Сообщить(ОписаниеОшибки());
			Возврат;
		КонецПопытки;
	КонецЕсли;
	ПечатныйДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS);
	
	Почта = Новый COMОбъект("Outlook.Application");
	Письмо = Почта.CreateItem(0); // создание сообщения
	
	Письмо.Subject = ЗаголовокДокумента; //"Акт приёма";
	Письмо.To      = "";
	Письмо.Attachments.Add(ИмяФайла);
	
	Попытка
		Письмо.Display(-1);
	Исключение
		Сообщить("Не получилось открыть письмо по причине:" + Символы.ПС + ИнформацияОбОшибке());
	КонецПопытки;
	
КонецПроцедуры