Boa tarde, pessoal.
Estou desenvolvendo um envio automático de certas mensagens do Power para o Teams. Porém, o script desenvolvido está travando a aplicação em torno de 2s, as vezes 13s. Alguém saberia o o que pode ser? Estou colocando ele pra rodar dentro de “Dados” em uma tag interna, ou seja, no próprio servidor e ele roda assim que a tag interna muda seu valor.
Utilizei como base o kb: https://kb.elipse.com.br/enviando-mensagens-no-microsoft-teams-via-elipse-e3-power/.
Segue script:
Sub TagInterno1_Evento1()
'Declarando as variáveis
Dim objXmlHttpMain
Const URL = “Link do webhook”
Const MSG_TEMP = “{”“text”":"“SCADA INFORMA: {message} Esta é uma mensagem automática. Por favor, não responder.”"}"
'Texto da mensagem
If Value = “Constante aqui” then
strJSONToSend = Replace(MSG_TEMP,"{message}",“Mensagem A.”)
else
strJSONToSend = Replace(MSG_TEMP, “{message}”, “Mensagem B.”)
End If
'Criando objeto HTTP
Set objXmlHttpMain = CreateObject(“Msxml2.ServerXMLHTTP”)
'Tratamento de erros
On Error Resume Next
objXmlHttpMain.open “POST”, URL, False
If Err Then 'handle errors
Msgbox Err.Description & " [0x" & Hex(Err.Number) & “]”
End If
On Error Goto 0
'Enviando a mensagem
objXmlHttpMain.setRequestHeader “Content-Type”, “application/json”
objXmlHttpMain.send strJSONToSend
strResponse = objXmlHttpMain.responseText
End Sub
A Elipse Software criou este espaço com a ideia de estimular a troca de informações entre usuários de nossos produtos. Reservamo-nos o direito de não responder por este canal. Se você deseja suporte imediato, por gentileza, entre em contato pelo e-mail suporte@elipse.com.br ou pelos telefones (11) 3061-2828 / (21) 2430-5912 / (31) 4062-5824 / (41) 4062-5824 / (51) 3346-4699.
–
Elipse Software created this space aiming to stimulate the exchange of information among users of our products. We reserve the right to not respond through this channel. If you want immediate support, please contact us through the e-mail suporte@elipse.com.br or through our phone numbers (+55 11) 3061-2828 / (+55 21) 2430-5912 / (+55 31) 4062-5824 / (+55 41) 4062-5824 / (+55 51) 3346-4699.