Взял за основу вашу версию, у меня была задача чтения SMS, нашел, что есть недокументированная функция, которая считывает последнее СМС в каждой беседе- GET запрос на адрес "v2/permanents/" + Объект.Устройство + "_threads".
Как раз то, что мне нужно было.
&НаСервере
Процедура ПрочитатьСМСНаСервере()
Перем JSON;
ssl = Новый ЗащищенноеСоединениеOpenSSL();
Соединение = Новый HTTPСоединение("api.pushbullet.com",,,,,,ssl);
Заголовки = Новый Соответствие();
Заголовки.Вставить("Authorization", "Bearer "+Объект.Token);
Заголовки.Вставить("Content-Type", "application/json");
Адрес = "v2/permanents/" + Объект.Устройство + "_threads";
//Запрос = Новый HTTPЗапрос("v2/pushes", Заголовки);
//https://overcoder.net/q/2083484/pushbullet-api-threadid-%D0%B4%D0%BB%D1%8F%D0%BA%D0%B0%D0%BB%D1%8C%D0%BD%D1%8B%D0%B9%D0%BE%D1%82%D0%B2%D0%B5%D1%82-%D0%B4%D0%BB%D1%8F-sms
Запрос = Новый HTTPЗапрос(Адрес, Заголовки);
//https://api.pushbullet.com/v2/permanents/ABC123_threads
//Передача запроса
Ответ = Соединение.Получить(Запрос); //GET
ТекстОтветаСМС = Ответ.ПолучитьТелоКакСтроку();
Попытка
JSON = JSONИзСтроки(ТекстОтветаСМС);
ТекстОтветаСМС = JSONВСтроку(JSON);
Исключение
Сообщить("Получен ответ не в виде JSON");
КонецПопытки;
КонецПроцедуры
Функция JSONИзСтроки(Текст)
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(Текст);
Возврат ПрочитатьJSON(ЧтениеJSON, Истина);
КонецФункции
Функция JSONВСтроку(JSON) Экспорт
ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
ЗаписатьJSON(ЗаписьJSON,JSON,,);
Возврат ЗаписьJSON.Закрыть();
КонецФункции
Показать
И еще - у автора семерочный стиль оформления кода, после запятых и знаки операций надо таки отделять пробелами. режет глаз.
