使用Excel VBA将消息发布到SLACK

Sub PostToSlack()
    Dim http As Object
    Dim url As String
    Dim payload As String
    
    ' 设置SLACK Webhook URL
    url = "https://hooks.slack.com/services/XXXXXXXXX/XXXXXXXXX/XXXXXXXXXXXXXXXXXXXXXXXX"
    
    ' 设置要发布的消息内容
    payload = "{""text"": ""这是一条来自Excel的SLACK消息！""}"
    
    ' 创建HTTP请求对象
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送POST请求
    http.Open "POST", url, False
    http.setRequestHeader "Content-Type", "application/json"
    http.send payload
    
    ' 检查响应状态码
    If http.Status = 200 Then
        MsgBox "消息已成功发布到SLACK！", vbInformation
    Else
        MsgBox "发布消息到SLACK失败！", vbExclamation
    End If
    
    ' 释放资源
    Set http = Nothing
End Sub