Итилиум, отправка смс через usb модем (мобильный телефон), без изменения конфигурации

Отправка смс уведомлений ответственному за обращение, через утилиту cmd2phone, используя настройки типового функционала конфигурации Итилиум.

Итилиум — это система класса Service Desk, предназначенная для автоматизации процессов поддержки и предоставления ИТ-услуг, в соответствии с процессной моделью библиотеки ITIL

Кейс:

В компании есть корпоративная мобильная связь с пакетом sms в придачу к тарифу. Необходимо реализовать sms уведомление ответственному сотруднику о назначении обращения, используя sim с корпоративным тарифом.

Несмотря на то, что Итилиум умеет делать рассылку уведомлений используя различные каналы, такие как:

почта;
push уведомления в мобильном приложении;
в том числе sms уведомления, но через e-mail-to-SMS шлюзы (что дорого для бизнеса…)

Возникла задача об оперативном оповещении сотрудников путем sms информирования. Так как смс сообщения сводят к минимуму риски о несвоевременном информировании ответственного при недоступности/отсутствии интернета в мобильном телефоне.

Реализация:

1. Настройка шаблона сообщений

2. Настройка правил обработки

3. Настройка учетной записи электронной почты

4. Создание внешней обработки "Рассылки СМС"

Далее необходимо создать внешнюю обработку, загрузить в базу Итилиум и установить расписание выполнения.

Обработка находит сформированные уведомления, обрабатывает их, при успешном отправлении смс устанавливает признак отправления.

В коде обработки необходимо указать порт подключенного модема/телефона к серверу (Панель управления -> Телефон и модем -> Модемы).

А так же путь к распакованной программе cmd2phone (ссылка в конце статьи).

Функция ОтправитьУведомления() Экспорт

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СообщенияИУведомления.Документ.Ответственный КАК ДокументОтветственный,
| КонтактнаяИнформация.Представление КАК НомерТелефона,
| СообщенияИУведомления.Заголовок КАК Заголовок,
| СообщенияИУведомления.Текст КАК Текст,
| СообщенияИУведомления.Документ КАК Документ,
| СообщенияИУведомления.ДатаРегистрации КАК ДатаРегистрации
|ИЗ
| РегистрСведений.СообщенияИУведомления КАК СообщенияИУведомления
|  ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|  ПО СообщенияИУведомления.Документ.Ответственный.ФизЛицо = КонтактнаяИнформация.Объект
|ГДЕ
| НЕ СообщенияИУведомления.Отправлено
| И СообщенияИУведомления.Заголовок ПОДОБНО ""%#sms#%""
| И КонтактнаяИнформация.Тип = &Тип
| И КонтактнаяИнформация.Вид = &Вид";

Запрос.УстановитьПараметр("Вид", Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("000000001")); // Вид: Мобильный телефон
Запрос.УстановитьПараметр("Тип", Перечисления.ТипыКонтактнойИнформации.Телефон);

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

НомерТелефона = ВыборкаДетальныеЗаписи.НомерТелефона;

ЗаписьРС = РегистрыСведений.СообщенияИУведомления.СоздатьНаборЗаписей();
ЗаписьРС.Отбор.Документ.Установить(ВыборкаДетальныеЗаписи.Документ);

ЗаписьРС.Прочитать();

Для Счетчик = 0 По ЗаписьРС.Количество() - 1 Цикл
Если ЗаписьРС[Счетчик].ДатаРегистрации = ВыборкаДетальныеЗаписи.ДатаРегистрации И
ЗаписьРС[Счетчик].ТипПисьма = Перечисления.ТипОтправляемогоСообщения.МобильныйТелефон И
СтрНайти(ЗаписьРС[Счетчик].Заголовок, "#sms#") <> 0 И
НЕ ЗаписьРС[Счетчик].Отправлено Тогда

ЗаписьРС[Счетчик].Отправлено = Истина;
ЗаписьРС[Счетчик].Получатель = Строка(ВыборкаДетальныеЗаписи.ДокументОтветственный) + ", " + Строка(НомерТелефона);

Если СтрНачинаетсяС(НомерТелефона,"9") И СтрДлина(НомерТелефона) = 10 Тогда

ТекстСообщения = ЗаписьРС[Счетчик].Текст;

Если ОтправитьСМС(ТекстСообщения,НомерТелефона) Тогда
ЗаписьРС[Счетчик].Статус = "[" + ТекущаяДата() + "] " + "Сообщение отправлено. (Обработка отправки смс)";
Иначе
ЗаписьРС[Счетчик].Статус = "[" + ТекущаяДата() + "] " + "Ошибка модема. Сообщение не отправлено. (Обработка отправки смс)";
ЗаписьРС[Счетчик].Отправлено = Ложь;
КонецЕсли;

Иначе
ЗаписьРС[Счетчик].Статус = "[" + ТекущаяДата() + "] " + "Неверный формат номера. Сообщение не отправлено. (Обработка отправки смс)";
КонецЕсли;

ЗаписьРС.Записать();

КонецЕсли;

КонецЦикла;

КонецЦикла;

КонецФункции

Функция ОтправитьСМС(Текст,НомерТелефона) Экспорт

ИмяФайла = ИспользуемоеИмяФайла;
Ф = Новый Файл(ИспользуемоеИмяФайла);
ТекКаталог = Ф.Путь;

КодВозврата = 0;

//Вместо "C:CMD2PHONE" указываете путь к программе на вашем сервере
Каталог = "C:CMD2PHONE";

ОпцияРежимЭмуляции = " -E " + ВКавычки(Каталог + "Emul.txt");

//Вместо COM3 указываете порт вашего устройства
ВыбОпции = " -P COM3 -D -Q -L -LF " + ВКавычки(Каталог + "Log.txt"); //


ТекНомер = "+7" + НомерТелефона;

ТекстСообщения = Текст;
Команда = "C:CMD2PHONEcmd2phone.exe " + ВыбОпции + " " + ТекНомер + " " + ВКавычки(ТекстСообщения);

ЗапуститьПриложение(Команда,,Истина,КодВозврата);

Если КодВозврата = 200 Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;

КонецФункции