Как я могу отправить локальное изображение в бот Telegram (после преобразования изображения в двоичный файл) - PullRequest
0 голосов
/ 26 марта 2020

сначала, пожалуйста, понимание неуклюжих навыков Engli sh.

Я использую приведенный ниже код, это успешно. бросить URL, который уже загружен в inte rnet.

но я не знаю, как отправить локальное изображение ..

Я думаю, файл изображения необходимо преобразовать в двоичный файл, а затем отправить.

спасибо.

Sub telegram_SendPhoto()

    Const photoURL = "http://i.imgur.com/5rOhtdL.png" 'URL of photo
      'C:\Users\Desktop\2.png <<< I want upload this image to telegram
    Dim objRequest As Object, strChatId As String, APIcode As String
    Dim strPostData As String, strResponse As String

    strChatId = Cells(1, 2) <<< my telegram id
    APIcode = Cells(2, 2) << my telegram token

    strPostData = "chat_id=" & strChatId & "&photo=" & photoURL

    Set objRequest = CreateObject("MSXML2.XMLHTTP")
    With objRequest
        .Open "POST", "https://api.telegram.org/bot" & APIcode & "/sendPhoto?", False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .Send (strPostData)
        strResponse = .responseText
    End With

End Sub
...