Оповещение системных администраторов об увольнении сотрудника
&НаСервере Процедура ОповещениеАдминистраторовОбУвольнении() Экспорт ТекстСообщения = "Для сотрудника " + Объект.Сотрудник + " в БД 1С ХХХХХ ЗУП 3.1 формируется приказ об увольнении."+Символы.ПС + "IP "+Объект.Сотрудник.ip+", email "+Объект.Сотрудник.email+", раб.тел. "+Объект.Сотрудник.phonework+ ", моб.тел. "+Объект.Сотрудник.phonemobile+Символы.ПС + "Предполагаемая дата увольнения "+Объект.ДатаУвольнения+Символы.ПС +Символы.ПС + "Внимание! Сотрудник может увольняться в связи с переходом в другую организацию Протей."+Символы.ПС +Символы.ПС + "Это сообщение сформировано автоматически."; ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение; ПочтовыйПрофиль = Новый ИнтернетПочтовыйПрофиль; ПочтовыйПрофиль.АдресСервераSMTP = "smtp.ххххх.ru"; ПочтовыйПрофиль.ПортSMTP = 25; Почта = Новый ИнтернетПочта(); Попытка Почта.Подключиться(ПочтовыйПрофиль); Исключение Сообщить("Ошибка подключения к почтовому серверу, сообщение не будет отослано!", СтатусСообщения.ОченьВажное); Возврат; КонецПопытки; ПочтовоеСообщение.Тема = "Увольнение сотрудника " + Объект.Сотрудник + " из ХХХХХХ"; ПочтовоеСообщение.Тексты.Добавить(ТекстСообщения); ПочтовоеСообщение.Получатели.Добавить("хххххх@ххххх.ru");//Адресатов может быть несколько. Каждый указывает отдельной строчкой или в цикле ПочтовоеСообщение.ИмяОтправителя = "1C ЗУП ХХХХХХ 3.1"; Почта.Послать(ПочтовоеСообщение); КонецПроцедуры
Комментариев нет:
Отправить комментарий