LopesLeonid
Леонид Алексеев

Функция SendSMS(Url, Username, Password, From, Phone, Text, Channel = -1, IsFlush = Ложь)
    Если ПустаяСтрока(Username) Или ПустаяСтрока(Password) Или ПустаяСтрока(From) Или ПустаяСтрока(Phone) Или ПустаяСтрока(Text) Тогда
        Возврат "FAILED";
    КонецЕсли;
    
    Подключение = Новый HTTPСоединение(Url, , Username, Password);
    Запрос = Новый HTTPЗапрос("/sendsms");
    Запрос.УстановитьТелоИзСтроки("email=" + From + "&ch=" + Строка(Channel) + "&is_flush=" + Строка(IsFlush) + "&phone=" + Phone + "&text=" + Text);
    Запрос.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
    
    Ответ = Подключение.ОтправитьДляОбработки(Запрос);
    
    Если Ответ.КодСостояния = 200 Тогда
        Возврат Ответ.ПолучитьТелоКакСтроку();
    Иначе
        Возврат "FAILED";
    КонецЕсли;
КонецФункции

Функция ОтправитьСМС(СсылкаНаСервис, ИмяПользователя, Пароль, Отправитель, Телефон, Текст, Канал = -1, ПринудительнаяОтправка = Ложь)
    Попытка
        ТекстЗапроса = СтрШаблон(
            "email=%1&ch=%2&is_flush=%3&phone=%4&text=%5",
            URLEncode(Отправитель),
            Конвертация(Канал, "Число"),
            Конвертация(ПринудительнаяОтправка, "Число"),
            URLEncode(Телефон),
            URLEncode(Текст)
        );

        Запрос = Новый HTTPЗапрос(СсылкаНаСервис + "/sendsms");
        Запрос.УстановитьПоле("Content-Type", "application/x-www-form-urlencoded");
        Запрос.УстановитьПоле("Authorization", "Basic " + КодироватьBase64(ИмяПользователя + ":" + Пароль));
        Запрос.УстановитьПоле("User-Agent", "1C:Enterprise");
        Запрос.УстановитьПоле("Accept", "application/json");
        Запрос.УстановитьТело(ТекстЗапроса);

        Ответ = Запрос.Выполнить();
        Если Ответ.СтатусКода <> 200 Тогда
            Возврат "FAILED";
        Иначе
            Возврат Ответ.Текст;
        КонецЕсли;
    Исключение
        Возврат "FAILED";
    КонецПопытки;
КонецФункции