- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老师请教下微信企业号下发信息的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141394)
-- 发布时间：2019/9/28 10:02:00
-- 老师请教下微信企业号下发信息的问题
以前的微信公众号里的企业号，现在叫企业微信
在PC上开发的管理系统中，能否下发信息到企业微信好友？
例：
发送[销售记录表]中的第四列[合计金额]到企业微信好友（有点黄）的微信上：
您好，您的{眼镜}已经发货，共计{108}元，请注意查收
-- 发布时间：2019/9/28 10:03:00
--
当然可以的，而且不用服务器都可以发
-- 发布时间：2019/9/28 10:29:00
--
爸爸可否付费开发一下这个功能？研究好久没研究明白
很简单，就是读取表中某字段的组合内容后发送给企业微信好友
麻烦留个Q我加您
-- 发布时间：2019/9/28 10:44:00
--
看文档大概流程是：搞到CorpID和Secret之后，先定义函数：
Static CreateTime As Date \'记录最近一次生成access_token的时间
Static AccessTocken As String \'记录最近一次生成的access_token
Dim CorpID As String= "ww7deed3af842576ed" \'企业号的CorpID
Dim Secret As String = "sO7RjwoisX82kB_gcRY4isEU8ZC6sJVcGs6CDlz8Nkc" \'管理组的Secret
Dim tp As TimeSpan = Date.Now - CreateTime
If tp.TotalSeconds > 3600 Then
Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid={0}&corpsecret={1}"
Dim hc As New HttpClient(CExp(url, CorpID, Secret))
Dim ret As String = hc.GetData()
If ret = "" Then \'如果失败,再尝试一次
hc.GetData()
End If
CreateTime = Date.Now()
Dim jo As JObject = JObject.Parse(ret)
If jo("access_token") IsNot Nothing Then
AccessTocken = jo("access_token")
Else
MessageBox.show("获取access_token失败,原因:" & vbcrlf & jo.ToString)
End If
End If
Return AccessTocken
Static AccessTocken As String \'记录最近一次生成的access_token
Dim CorpID As String= "ww7deed3af842576ed" \'企业号的CorpID
Dim Secret As String = "sO7RjwoisX82kB_gcRY4isEU8ZC6sJVcGs6CDlz8Nkc" \'管理组的Secret
Dim tp As TimeSpan = Date.Now - CreateTime
If tp.TotalSeconds > 3600 Then
Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid={0}&corpsecret={1}"
Dim hc As New HttpClient(CExp(url, CorpID, Secret))
Dim ret As String = hc.GetData()
If ret = "" Then \'如果失败,再尝试一次
hc.GetData()
End If
CreateTime = Date.Now()
Dim jo As JObject = JObject.Parse(ret)
If jo("access_token") IsNot Nothing Then
AccessTocken = jo("access_token")
Else
MessageBox.show("获取access_token失败,原因:" & vbcrlf & jo.ToString)
End If
End If
Return AccessTocken
然后，定义一个单元格双击事件：
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") = "laoliu|zhangsan"
jo("msgtype") = "text"
jo("agentid") = 9
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
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("touser") = "laoliu|zhangsan"
jo("msgtype") = "text"
jo("agentid") = 9
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
是这个流程吗
-- 发布时间：2019/9/28 10:44:00
--
参考：http://www.foxtable.com/mobilehelp/topics/0166.htm
-- 发布时间：2019/9/28 11:03:00
--
老师可否付费制作这个功能
[此贴子已经被作者于2019/9/28 11:11:27编辑过]
-- 发布时间：2019/9/28 11:15:00
--
就是4楼的用法。如果要找人做，到这里发帖：http://www.foxtable.com/bbs/index.asp?boardid=6
-- 发布时间：2019/9/28 11:35:00
--
jo("touser") = "laoliu|zhangsan"
老师这个userid怎么获取？查阅微信文档是这么写的：
此主题相关图片如下：qq浏览器截图20190928113424.png
获取到之后，返回foxtable后应该怎么处理？
-- 发布时间：2019/9/28 11:41:00
--
再定义一个函数？木有思路。。。。。
-- 发布时间：2019/9/28 11:48:00
--
建一个表，存储成员信息，把成员和用户关联起来，或者把成员信息保存到用户表中
麻烦把帮助企业号接口的内容都看一看