如何在 Excel VBA 中通过 Bot Telegram 接收和发送消息？

Question

我希望我可以使用一些宏通过工作电报发送仪表板摘要文本。我知道我可以通过 webhook（GET 和 POST html）通过电报发送，我在这里研究并找到了这个主题：

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

但是，当我调试代码时它锁定了 excel 并且不再返回。知道那可能是什么吗？

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

如何在 Excel VBA 中通过 Bot Telegram 接收和发送消息？

How do I receive and send messages through Bot Telegram in Excel VBA?

excel

vba

telegram

telegram-bot