我正在尝试在 Outlook 中运行一个规则,该规则运行一个调用 Slack.com Web 服务并使用特定消息更新我的一个 Slack 频道的 VBScript。当前状态——我只想让它发布一条静态消息。未来状态我将尝试使用 RegEx 从电子邮件中解析出某些数据并将其发布到我的 slack 频道。
从我在网上找到的一些脚本的 frankensteining 中,这就是我所拥有的(但不太好用)希望有人能提供帮助......
Function ProcessSend()
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.4.0")
Set oXMLDoc = CreateObject("MSXML2.DOMDocument")
strEnvelope = "payload={""channel"": ""#edt-error"", ""text"": ""This is posted to #edt-error.""}"
Call oXMLHTTP.Open("POST", "https://custom-slack-url-for-service-goes-here.com" & posFirm, False)
Call oXMLHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Call oXMLHTTP.Send(strEnvelope)
Dim szResponse: szResponse = oXMLHTTP.responseText
Call oXMLDoc.LoadXML(szResponse)
If (oXMLDoc.parseError.ErrorCode <> 0) Then
'call msgbox("ERROR")
response = oXMLHTTP.responseText&" "&oXMLDoc.parseError.reason
'call msgbox(oXMLDoc.parseError.reason)
Else
response = oXMLDoc.getElementsByTagName("string")(0).ChildNodes(0).Text
End If
End Sub