- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于企业微信推送 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186423)
-- 发布时间：2023/4/28 10:08:00
-- 关于企业微信推送
我用循环的方式发送工资条信息，为什么发送第一条后就提示出错
For Each cr As DataRow In dt.datarows
Dim gh = CStr(cr("工號").ToString)
Dim userid = CStr(cr("userid").ToString)
jo("touser") = CStr(userid)
jo("agentid") = "1000009"
jo("msgtype") = "textcard"
jo("textcard") = New JObject
jo("textcard")("title") = "工资条信息"
Dim _strwhere = "月份:" & _month & "工资已发放，请查收！"
\'Dim fy As WinForm.TextBox = Cstr(_strwhere)
jo("textcard")("description") = CStr(_strwhere)
Dim yyzy As String = "http://weixin.yselec.hk:99/gzt.htm?yf=" & _month & "&gh=" & gh
jo("textcard")("url") = yyzy
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
Next
此主题相关图片如下：qq截图20230428100540.jpg
-- 发布时间：2023/4/28 10:09:00
--
可以了
-- 发布时间：2023/4/28 10:10:00
--
提交的地址没有返回任何内容
jo = JObject.Parse(hc.GetData)
改为
hc.GetData