Отправка сообщений или уведомлений из 1С в битрикс24

Перем ЗаписьJSON;
Перем Метод;
Перем ПараметрыЗапроса;

Функция СериализоватьВJSON(ПараметрыЗапроса)
    ЗаписьJSON = Новый ЗаписьJSON;
    ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(, Символы.Таб);
    ЗаписьJSON.ОткрытьФайл("C:\Users\demin\Documents\1. Текущие задачи\bt.json", , , ПараметрыЗаписиJSON);
    
    СериализаторXDTO.ЗаписатьJSON(ЗаписьJSON, ПараметрыЗапроса, НазначениеТипаXML.Явное);
    
    Возврат ЗаписьJSON.Закрыть();
КонецФункции

Функция ДесериализоватьИзJSON()
    ЧтениеJSON = Новый ЧтениеJSON;
    ЧтениеJSON.ОткрытьФайл("C:\Users\demin\Documents\1. Текущие задачи\bt.json");
    
    Объект = СериализаторXDTO.ПрочитатьJSON(ЧтениеJSON);
    
    Возврат ЧтениеJSON.Закрыть();
КонецФункции

Процедура КнопкаВыполнитьНажатие(Кнопка)
    ПараметрыЗапроса = Новый Структура;
    ПараметрыЗапроса.Вставить("to", "555");
    ПараметрыЗапроса.Вставить("message", "Это тестовое сообщение отправленное из 1С, не отвечайте на него!");
    
    ПараметрыЗапроса = СериализоватьВJSON(ПараметрыЗапроса);
    
    СтруктураВозврата = Новый Структура;
    
    Метод = "im.notify";
    
    ВыполнитьЗапрос(Метод, ПараметрыЗапроса, СтруктураВозврата);
КонецПроцедуры

Функция ВыполнитьЗапрос(Метод, Знач ПараметрыЗапроса = "", СтруктураВозврата = Неопределено, УРЛ = "") Экспорт
    АдресСервера = "ural24.ru";
    АдресРесурса = "/rest/" + "555/s4468_____btv0ya/" + Метод; 
    
    Попытка
        HTTPСоединение = Новый HTTPСоединение(АдресСервера, 443, , , , , Новый ЗащищенноеСоединениеOpenSSL);// соединяемся по https
    Исключение
        Возврат ОписаниеОшибки();
    КонецПопытки;
    
    Заголовки = Новый Соответствие;
    Заголовки.Вставить("Accept-Language", "ru");
    Заголовки.Вставить("Accept-Charset", "utf-8");
    Заголовки.Вставить("Content-Language", "ru");
    Заголовки.Вставить("Content-Charset", "utf-8");
    Заголовки.Вставить("Content-type", "application/json");// тут обозначаем, что "общаемся" через JSON
    
    HTTPЗапрос = Новый HTTPЗапрос(АдресРесурса, Заголовки);
    HTTPЗапрос.УстановитьТелоИзСтроки(ПараметрыЗапроса);
    
    HTTPОтвет = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);
    ТелоОтвета = HTTPОтвет.ПолучитьТелоКакСтроку();
    
    СтруктураВозврата = ДесериализоватьИзJSON();
    
    Возврат HTTPОтвет.КодСостояния;
КонецФункции