此主题相关图片如下:错误消息.png
![dvubb 按此在新窗口浏览图片](UploadFile/2020-4/202041515325121653.png)
如题,参考微信的帮助改的代码,弹出错误。
错误代码:
以下内容为程序代码:
1 Dim ur As String = "https://oapi.dingtalk.com/topapi/message/corpconversation/asyncsend_v2?access_token={0}"
2 Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetAccessToken","","")))
3 Dim jo As New JObject
4 jo("agent_id") = "713719269"
5 jo("userid_list") = "manager4886"
6
7 jo("msg") = New JObject
8 jo("msg")("msgtype") = "text"
9 jo("msg")("content") = "狐表测试"
10
11 hc.Content = jo.ToString
12 jo = JObject.Parse(hc.GetData)
13 If jo("errcode") = "0" Then
14 MessageBox.show("消息发送成功!")
15 Else
16 MessageBox.show(jo.ToString)
17 End If
18
钉钉帮助文档:msg | json对象 | 必须 | {"msgtype":"text","text":{"content":"消息内容"}} | 消息内容,消息类型和样例参考“消息类型与数据格式”。最长不超过2048个字节 |
狐表中使用的参数,钉钉API Explorer可以正确返回结果:
BODY:
{
"agent_id":"713719269",
"msg":{
"msgtype":"text",
"text":{
"content":"狐表测试"
}
},
"userid_list":"manager4886"
}
Result:
{
"errcode":0,
"task_id":180481659861,
"request_id":"ebn2fvlnkge0"
}
[此贴子已经被作者于2020/4/15 15:33:57编辑过]