сначала, пожалуйста, понимание неуклюжих навыков 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