Страницы: 1
RSS
Отправка сообщений из VBA Excel в Вайбер через бота, Отправка сообщений из VBA Excel в Вайбер через бота
 
Уважаемые специалисты, добрый день.

Убил 2 дня на поиск макроса для отправки сообщений (оповещений) через VBA Excel в Вайбер, но так пока и не нашел как это сделать.
Через телеграм макрос составить получилось (post запрос), через Outlook оповещение использую в своих файлах.
Рассылка оповещений через Вайбер была бы следующей ступенькой в изучении VBA.
Есть developers.viber.com/docs/api/, но там php, Python, непонятно как составить post запрос.
Как создать бота в Вайбер (получить токен) понятно, т.к. есть много видео по этому вопросу, а вот как отправить текст из VBA пока не понятно.
Очень рассчитываю, что кто-нибудь из наисветлейших увидит эту тему и поделится важной информацией.
Изменено: avk_37 K - 18.07.2021 23:15:00
 
Цитата
написал:
Уважаемые специалисты, добрый день.

Убил 2 дня на поиск макроса для отправки сообщений (оповещений) через VBA Excel в  Вайбер , но так пока и не нашел как это сделать.
Через телеграм макрос составить получилось (post запрос), через Outlook оповещение использую в своих файлах.
Рассылка оповещений через Вайбер была бы следующей ступенькой в изучении VBA.
Есть developers.viber.com/docs/api/, но там php, Python, непонятно как составить post запрос.
Как создать бота в Вайбер (получить токен) понятно, т.к. есть много видео по этому вопросу, а вот как отправить текст из VBA пока не понятно.
Очень рассчитываю, что кто-нибудь из наисветлейших увидит эту тему и поделится важной информацией.
Трудно. Я был обращается служба подержки Вайбер. Они ответ мне ,,Бот-аккануты не могут отправлять сообщения в каналы или сообщества.
При подключении бот-аккаунта к сообществу или каналу, в чате появляется кнопка быстрого перехода из бота в канал и обратно.

Подключить бот таким образом, чтобы он самостоятельно отправлял сообщения в чат канала/сообщества, к сожалению, невозможно.

Best regards,
Owen V.
Content Team Lead,,
Я думать есть вариант.  
 

Я сам сделать нашел работает отправка Viber

Код
Sub Viber()
    Dim objpostHTTP As Object
    Dim JsonBody As String
    JsonBody = "{""auth_token"":""(API Ключ)"",""receiver"":""(Уникальний ID Чат)"",""type"":""text"",""text"":""Написати Привет""}"
    'here I am pulling creating json body
    Dim apiresult As String

    Set objpostHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    Url = "https://chatapi.viber.com/pa/send_message"
    objpostHTTP.Open "POST", Url, False

   objpostHTTP.setRequestHeader "Content-type", "application/json"
   objpostHTTP.Send (JsonBody)
   apiresult = objpostHTTP.responseText

  If objHTTP.Status = "200" Then
   MsgBox (objHTTP.responseText)
End If

End Sub
 
У кого получилось?  Расскажите технологию.
Как  добавить чат бот в группу и отправлять сообщения?
Можно ли так сделать, по аналогии  с Телеграмм?
 
Цитата
написал:
У кого получилось?  Расскажите технологию.Как  добавить чат бот в группу и отправлять сообщения?Можно ли так сделать, по аналогии  с  Телеграммн
Не возможно. Можно только канал Viber пост API канал.  1. Создать канал https://youtu.be/0Dh2s3jjo_0?feature=shared  .. 2. Канал пост API Channels Post API | Viber Developers Hub  
Страницы: 1
Наверх