- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]钉钉发送消息 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148799)
-- 发布时间：2020/4/15 15:32:00
-- [求助]钉钉发送消息
此主题相关图片如下：错误消息.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
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
钉钉帮助文档：
狐表中使用的参数，钉钉API Explorer可以正确返回结果：
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编辑过]
-- 发布时间：2020/4/15 15:50:00
--
麻烦以后发代码不要发那种有行号的代码上来，即难看也用不了。
Dim jo As New JObject
jo("agent_id") = "713719269"
jo("agent_id") = "713719269"
jo("msg") = mew JObject
jo("msg")("msgtype") = "text"
jo("msg")("text") = mew JObject
jo("msg")("text")("content") = "狐表测试"
jo("userid_list") = "manager4886"
-- 发布时间：2020/4/15 15:53:00
--
jo("msg") = New JObject
jo("msg")("msgtype") = "text"
jo("msg")("text") = New JObject
jo("msg")("text")("content") = "狐表测试"
自己解决了，新建对象就可以了。
-- 发布时间：2020/4/15 16:29:00
--
哈哈，回复好快，不记得了，好像之前插入代码没有行号的。。。