企业微信获取到外部联系人之后 怎么给外部联系人发信息呢？
此主题相关图片如下：微信图片_20200714174415.png
采用企业微信给通讯录发送信息的方式是可以成功的
Dim tb2 As WinForm.Table = e.Form.Controls("Table2")
Dim Message As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim leixing As WinForm.ComboBox = e.Form.Controls("ComboBox1")
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
jo("touser") = "BaiYunZhongDeShanFeng"
MessageBox.Show(tb2.Table.Current("userid"))
jo("msgtype") = leixing.SelectedText
jo("agentid") = _agentid
jo("text") = New JObject
jo("text")("content") = Message.Text
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.show("消息发送成功!")
Else
MessageBox.show(jo.ToString)
End If
但是直接给非通讯录发送信息就提示 红色部分是不是有误 我没有找到外部联系人的发送接口
Dim tb2 As WinForm.Table = e.Form.Controls("Table2")
Dim Message As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim leixing As WinForm.ComboBox = e.Form.Controls("ComboBox1")
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
jo("touser") = "wmNgc2CwAA5zTob2HA_HS8IWSqqhU1-w"
MessageBox.Show(tb2.Table.Current("userid"))
jo("msgtype") = leixing.SelectedText
jo("agentid") = _agentid
jo("text") = New JObject
jo("text")("content") = Message.Text
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.show("消息发送成功!")
Else
MessageBox.show(jo.ToString)
End If
代码运行提示如下：
错误码：81013
UserID、部门ID、标签ID全部非法或无权限。一般有以下两种原因：
1）成员、部门或标签已被删除，此种情况需要调整调用接口的接收人参数。
2）成员、部门或标签被移出应用的可见范围，可在管理端将接收人添加到应用的可见范围内。
怎么解决呢？
[此贴子已经被作者于2020/7/14 19:06:28编辑过]
加好友 
发短信
Post By：2020/7/14 17:48:00 [只看该作者]
