- 30 Mai 2023 às 12:56
#73325
Prezados, Boa tarde!
Eu tô tentando fazer uma macro para executar um código para enviar mensagem para o telegram...
Exemplo se na célula e2 > = 10 então, execute o código a seguir.
Sub sendTelegram(botToken, chatID, msgTelegram)
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")
With New XMLHTTP60
.Open "POST", "https://api.telegram.org/bot" & botToken & _
"/sendMessage?chat_id=" & chatID & _
"&text=" & msgTelegram & _
"&parse_mode=html"
.send
End With
End Sub
Só que acontece o seguinte, eu usei o calculate e meu bot entrou em looping mandando mensagem a cada 1 segundo. Alguém poderia me ajudar com o código ou alguém tem algo parecido por favor. Se possível anexar uma tabela de exemplo
Grato desde de já.
Eu tô tentando fazer uma macro para executar um código para enviar mensagem para o telegram...
Exemplo se na célula e2 > = 10 então, execute o código a seguir.
Sub sendTelegram(botToken, chatID, msgTelegram)
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")
With New XMLHTTP60
.Open "POST", "https://api.telegram.org/bot" & botToken & _
"/sendMessage?chat_id=" & chatID & _
"&text=" & msgTelegram & _
"&parse_mode=html"
.send
End With
End Sub
Só que acontece o seguinte, eu usei o calculate e meu bot entrou em looping mandando mensagem a cada 1 segundo. Alguém poderia me ajudar com o código ou alguém tem algo parecido por favor. Se possível anexar uma tabela de exemplo
Grato desde de já.
