Отправка сообщений или уведомлений из 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Ответ.КодСостояния;
КонецФункции