VBA发送钉钉消息

lm11132

固定文本发送(hello,world)：
Sub SendDingTalkMessage()
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "POST", "https://oapi.dingtalk.com/robot/send?access_token=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx", False
    http.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
    Dim message As String
    message = "{ ""msgtype"":""text"", ""text"":{ ""content"":""hello,world""}}"
    http.Send message
End Sub
单元格变量文本发送(发送单元格S12的内容)：
Sub SendDingTalkMessage()
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "POST", "https://oapi.dingtalk.com/robot/send?access_token=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx", False
    http.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
    Dim message As String
    msg = Range("s12")
    message = "{ ""msgtype"":""text"", ""text"": { ""content"":""" & msg & """ } }"
    http.send message
End Sub
注意：
1.代码为钉钉群机器人消息
2.代码中"access_token" 替换为你自己的钉钉机器人的 Access Token
3.msessage变量是发送消息的messagge数据，可以根据需要自行修改
4.代码不需要其他引用，Microsoft XML（msxml)和XMLHTTP对象都是操作系统自带。
5.代码为单纯的独立发送代码，如需要条件触发或循环等其他复杂需求请自行添加。

whlbliss

运行出错

whlbliss

希望在群内能发送文件，每个成员的文件不一样。

lm11132

whlbliss 发表于 2023-1-30 10:01
希望在群内能发送文件，每个成员的文件不一样。

发送文件好像搞不了唉~~~机器人好像只能发送文本消息

lm11132

lm11132 发表于 2023-1-30 11:11
发送文件好像搞不了唉~~~机器人好像只能发送文本消息

非要实现的话 本地文件应该不行 需要将文件上传到某个服务器上 然后获取这些文件的url,再通过钉钉机器人发送url链接到群或人

lm11132

whlbliss 发表于 2023-1-30 09:55
运行出错

你把这个报错的文件传上来看看

whlbliss

如果只能发送文本，就有点遗憾了。

whlbliss

我希望的是发送文件。谢谢大师您的辛勤付出。

lm11132

whlbliss 发表于 2023-1-30 11:49
我希望的是发送文件。谢谢大师您的辛勤付出。

好像也能发送文件，但比较复杂，我试了一下 总报错 还没查明原因

lm11132

whlbliss 发表于 2023-1-30 11:49
我希望的是发送文件。谢谢大师您的辛勤付出。

我发了一个发送文件到钉钉群的代码贴子 但我一直测试报错 发个帖子希望大神出现能帮忙测试修改