В начало

Отправка текстового сообщения в Телеграм

 

Листинг. Модуль формы внешней обработки

&НаСервере

Функция ОтправкаСообщенийВТелеграм(Знач Токен, Знач ChatId, Знач ТекстСообщения)

           

            Попытка

                        Соединение = Новый HTTPСоединение("api.telegram.org",443,,,,15,Новый ЗащищенноеСоединениеOpenSSL());

                        Запрос = Новый HTTPЗапрос("bot" + Токен + "/sendMessage?chat_id=" + ChatId + "&text=" + ТекстСообщения);

                        Результат = Соединение.ВызватьHTTPМетод("GET", Запрос);             

                       

                        Если Результат.КодСостояния = 200 Тогда

                                  

                                   ЧтениеJSON = Новый ЧтениеJSON();

                                    ЧтениеJSON.УстановитьСтроку(Результат.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8));

                                   РезСтруктура = ПрочитатьJSON(ЧтениеJSON);

                                   ЧтениеJSON.Закрыть();

                                                                      

                        Иначе                        

                        КонецЕсли;

                       

            Исключение

                        //Сообщить(ОписаниеОшибки());

                        //Сообщить(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));

            КонецПопытки

           

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

 

&НаКлиенте

Процедура Команда1(Команда)

            ОтправкаСообщенийВТелеграм("1234567:abcdefg", "-1234567", "Тестовое сообщение");

КонецПроцедуры