- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 企业微信主动发送信息错误问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150052)
-- 发布时间：2020/5/19 15:46:00
-- 企业微信主动发送信息错误问题
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("touser") = "AAAA"
jo("msgtype") = "text"
jo("agentid") = 1000018
jo("text") = New JObject
jo("text")("content") = "您好,你的系统有一条待审批的订单,请登录审批,请登录一下链接进入审批程序"
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.show("消息发送成功!")
Else
MessageBox.show(jo.ToString)
End If
当我把AAAA的账号更换为BBBB的时候，系统提示以下的错误；
此主题相关图片如下：qq截图20200519154523.png
-- 发布时间：2020/5/19 16:04:00
--
https://open.work.weixin.qq.com/devtool/query?e=81013
应该是AccessToken不是 1000018这个应用的。每个应用都有独立的AccessToken，不能混用