1С 8.x : Как оповестить пользователей из серверного модуля или регламентного задания.

 

// Оповестим пользователей о неактуальности данных.

// Если мы не хотим подключать обработчик ожидания,

//воспользуемся командой Windows

МинутаХ = Формат(НачалоМинуты(КонецМинуты(ТекущаяДата()+300)+1),"ДФ=HH:mm:ss");

Текст = " Внимание!"+Символ(13)+ "Данные в системе 1с ЗУП Тест будут неактуальны 5 минут!"+Символ(13)+"Не формируйте отчеты и документы до "+МинутаХ;

Соединения = ПолучитьСоединенияИнформационнойБазы();

КОМПЫ = Новый Соответствие ;

Для каждого ЭлементСоединения Из Соединения Цикл

    КОМПЫ.Вставить(ЭлементСоединения.ИмяКомпьютера);

КонецЦикла;  		 

Для  каждого Компьютер из  КОМПЫ Цикл

    СтрокаМесаги = "MSG /time:30 /server:"+ СокрЛП(Компьютер.Ключ)+" * "+Текст;

    //СтрокаМесаги = "NET SEND "+ СокрЛП(Компьютер.Ключ)+Текст;

    ЗапуститьПриложение(СтрокаМесаги);

КонецЦикла;