Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
26 ноя 2024, 05:19

1C 8.3 Api Yandex.Почта

Автор welimex, 14 ноя 2019, 10:04

0 Пользователей и 1 гость просматривают эту тему.

welimex

Доброго времени суток, уважаемые форумчане.
Помогите разобраться в что не так.
я новичок в программировании сразу не пинайте, если что-то покажется не компетентным.
Задача
Есть API у яндекса на создание почтового ящика. через JSON https://yandex.ru/dev/pdd/doc/reference/email-add-docpage/
POST /api2/admin/email/add
Host: pddimp.yandex.ru
PddToken: <ПДД-токен>
domain=<имя домена>
&login=<логин почтового ящика>
&password=<пароль>
через запрос CURL яндекс все хорошо отрабатывает.
curl -H 'PddToken: 123456789ABCDEF0000000000000000000000000000000000000' -d 'domain=domain.com&login=newlogin&password=1234567890' 'https://pddimp.yandex.ru/api2/admin/email/add'
Соединение SSL


&НаКлиенте
Процедура СоздатьЗапрос(Команда)
    Сервер="pddimp.yandex.ru";
    Ресурс="/api2/admin/email/add";
    Соединение = Новый HTTPСоединение(Сервер,,,,,,Новый ЗащищенноеСоединениеOpenSSL);   
    Заголовки  = Новый Соответствие;
    Заголовки.Вставить("Content-Type", "application/json; charset=utf-8");
   Заголовки.Вставить("PddToken:","СВОЙ-ТОКЕН-Изменен");
   ЗапросХТТП = Новый HTTPЗапрос(Ресурс,Заголовки);
    СтрокаЗапроса = "domain=domen.ru" + "&";
    СтрокаЗапроса = СтрокаЗапроса + "login=Test1" + "&";
    СтрокаЗапроса = СтрокаЗапроса + "password=PASS1234567890";   
    ЗапросХТТП.УстановитьТелоИзСтроки(СтрокаЗапроса);
    Ответ = Соединение.ВызватьHTTPМетод("POST",ЗапросХТТП);
    Ответ = Соединение.Получить(ЗапросХТТП);
    ТекстОтвета = Ответ.ПолучитьТелоКакСтроку();
   Сообщить(ТекстОтвета);
КонецПроцедуры

Направьте на путь истиный уважаемые гуру, что не так в коде  ) Спасибо.

Теги:
Рейтинг@Mail.ru

Поиск