Script para enviar mensagem ao Telegram sem uso de drivers

Dim token, chatId, message
token = 'Informe o Token
chatId = 'Informe o ChatId
message = 'Informe a Mensagem

Dim url, xmlhttp, payload, json

url = “https://api.telegram.org/bot” & token & “/sendMessage”
payload = “{”“chat_id”":""" & chatId & “”","“text”":""" & message & “”","“parse_mode”":"“Markdown”"}"

Set xmlhttp = CreateObject(“MSXML2.ServerXMLHTTP.6.0”)
xmlhttp.Open “POST”, url, False
xmlhttp.setRequestHeader “Content-Type”, “application/json”
xmlhttp.Send payload

If xmlhttp.Status = 200 Then
Mensagem enviada com sucesso
json = xmlhttp.responseText
MsgBox "Mensagem enviada: " & json
Else
Erro ao enviar a mensagem
MsgBox "Erro ao enviar mensagem: " & xmlhttp.statusText
End If

Set xmlhttp = Nothing
Set xmlhttp = Nothing

2 Likes

Olá

Rodrigo, esse script funcionou?

Sim, lembrando que você precisa informar o token, chat ID e a mensagem que deseja enviar.

Olá Rodrigo, saberia informar como alterar esse codigo para fazer o processo contrario? isso é, ler as ultimas mensagens recebidas pelo bot do telegram?