统一消息系统

Sub DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)

' 这里是保存文档前执行的代码

Call SendMessage("新文档已保存，请注意查看！")

End Sub

Sub SendMessage(message As String)

' 调用钉钉API发送消息

Dim url As String

url = "https://oapi.dingtalk.com/robot/send?access_token=your_access_token"

Dim xmlhttp As Object

Set xmlhttp = CreateObject("MSXML2.XMLHTTP")

xmlhttp.Open "POST", url, False

xmlhttp.setRequestHeader "Content-Type", "application/json;charset=UTF-8"

Dim body As String

body = "{""msgtype"": ""text"",""text"": {""content"": """ & message & """}}"

排课软件源码

xmlhttp.send body

End Sub