https://work.weixin.qq.com/api/doc/90000/90135/90236?st=F611A22821CB322214D3C231C1F442FC390FADB82BEF7A0B05040C8DD562E71BCBA0A47451463C0333EAE3B56ADF40E3C99214D509E571772567E1671A98AC75A5B4DA9BC921156745A48E2ED9D1FAD042A927F1F3CBACD264A0D53D485264061F44ACD06398CC4839BBFC846869AC9E0EF74D67A6426803C147296FA37FFF340765E18FC4890A7ED4A2B3B2C0A769AA&vid=1688853087703446&cst=25E484E625FFB0BBDFD77FD95BB43B762EFFFE9D6E5AB2B19EF8B4E896C3F8A38248BF3797137A0608D86BDA2B2BE21C&deviceid=6917ad20-227b-45af-a2e4-3fed6dcfca0f&version=2.8.15.2044&platform=win#%E4%BB%BB%E5%8A%A1%E5%8D%A1%E7%89%87%E6%B6%88%E6%81%AF

参照这个接口文档写的发送任务卡片消息

代码如下：

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}"

Dim hc As new HttpClient(Cexp(ur,_lianjiema))

Dim jo As New JObject

Dim ja As New JArray

jo("touser") = "LiXiaoChun"

jo("msgtype") = "taskcard"

jo("agentid") = _agentid

jo("taskcard") = New JObject

jo("taskcard")("title") = "物品申请"

jo("taskcard")("description") = "物品申请用途:"

jo("taskcard")("url") ="https://work.weixin.qq.com"

jo("taskcard")("task_id") ="hhfuwhfuib-_@11"

jo("taskcard")("btn")=ja

ja.Add(New JObject) '给数组添加两个对象成员

ja.Add(New JObject)

ja(0)("key") ="key111"

ja(0)("name") ="批准"

ja(0)("replace_name") ="已批准"

ja(0)("color") ="red"

ja(0)("is_bold") =True

ja(1)("key") ="key222"

ja(1)("name") ="驳回"

ja(1)("replace_name") ="已驳回"

hc.Content = jo.ToString

jo = JObject.Parse(hc.GetData)

If jo("errcode") = "0" Then

MessageBox.show("消息发送成功!")

Else

MessageBox.show(jo.ToString)

End If

怎么实现批准或驳回点击后进入对应的页面呢？如test1.htm test2.htm

[此贴子已经被作者于2020/7/17 11:53:41编辑过]

jo("taskcard")("url") ="https://自己的域名如www.foxtable.com/xxx.htm?id=00001"

老师

二楼代码是点卡片后可以进入页面

但是点批准会提示已批准点驳回会提示已驳回

现在想实现的是点批准就进入test1页面

点驳回就进入test2页面

麻烦老师指导下按照官方接口帮助文件没有找到类似说明

没有办法，微信没有提供这种用法，按钮点击后需要导回调事件里接收结果，也就是到接收消息的地方接收

btn:key 是按钮key值，用户点击后，会产生任务卡片回调事件，回调事件会带上该key值，只能由数字、字母和“_-@”组成，最长支持128字节

更新任务卡片消息状态

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/update_taskcard?access_token={0}"

Dim hc As new HttpClient(Cexp(ur,_lianjiema))

Dim jo As New JObject

Dim ja As New JArray

jo("userids") = "LiXiaoChun"

jo("agentid") = _agentid

jo("task_id") ="hhfuwhfuib-_@11"

jo("clicked_key")="key111"

'hc.Content = jo.ToString

'jo = JObject.Parse(hc.GetData)

If jo("errcode") = "0" Then

MessageBox.show("消息发送成功!")

output.show(jo.ToString)

Else

output.show(jo.ToString)

End If

运行结果

{

"userids": "LiXiaoChun",

"agentid": "1000003",

"task_id": "hhfuwhfuib-_@11",

"clicked_key": "key111"

}

这个能够用作什么用途呢？

我也不知道。有需要就用，没有需要就不用

主题：参照企业微信接口文档写的发送任务卡片消息 怎么实现批准 或 驳回点击后进入对应的页面呢？如test1.htm test2.htm

更新任务卡片消息状态

主题：参照企业微信接口文档写的发送任务卡片消息怎么实现批准或驳回点击后进入对应的页面呢？如test1.htm test2.htm