Excel VBAのBot Telegramでメッセージを送受信するにはどうすればよいですか？

Question

いくつかのマクロを使用して、テレグラム上でDashboardサマリーテキストを送信したいと考えています。私は私がウェブフックを通じて電報でお送りすることを知っている（GETとPOSTのHTML）と私はここでこのトピックを研究した：<トークン>と< METHOD_NAMEの交換 How can I send an HTTP POST request to a server from Excel using VBA?

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 
URL = "https://api.telegram.org/bot<token>/METHOD_NAME" 
objHTTP.Open "POST", URL, False 
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" 
objHTTP.send("") 

>

https://core.telegram.org/bots/api

しかし、私はコードをデバッグするときにそれは優れており、もう復帰しません。それはどういう考えですか？

Answer 1

MSXML2.ServerXMLHTTPをMSXML2.ServerHTTP60に展開したときに機能しました。

Sub fff() 

Set objHTTP = CreateObject("MSXML2.ServerHTTP60") 
URL = "https://api.telegram.org/bot<token>/sendMessage?chat_id="id"&text=test" 
objHTTP.Open "POST", URL, False 
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" 
objHTTP.send ("") 

Cells(1, 1).Value = objHTTP.ResponseText 

End Sub