For Each r In Tables("临时员工资料").Rows
If r("是否离职") = 0 And r.IsNull("手机号码") = False Then
dr = DataTables("下载users").Find("userid = '" & r("工号") & "'")
If dr Is Nothing Then
ul = "https://qyapi.weixin.qq.com/cgi-bin/user/create?access_token={0}"
Dim hc3 As New HttpClient(CExp(ul,Functions.Execute("GetQYAccessToken")))
Dim jo3 As New JObject
jo3("userid") = CStr(r("工号"))
jo3("name") = CStr(r("姓名0"))
Dim dr1 As DataRow = DataTables("Departments").Find("[name] = '" & r("部门") & "'")
If dr1 IsNot Nothing
jo3("department") = CStr(dr1("id")) '部门ID为3和9
Else
jo3("department") = "1"
End If
jo3("mobile")= CStr(r("手机号码"))
jo3("gender") = "1"
hc3.Content = Jo3.ToString
MessageBox.show(jo3.ToString)
jo3 = JObject.Parse(hc3.GetData)
If jo3("errcode") = "0" Then
Else
MessageBox.Show(jo3.ToString)
End If
End If
End If
Next
以上是创建的代码，下面是两个弹窗：
此主题相关图片如下：qq图片20170629110012.png
此主题相关图片如下：qq图片20170629105957.png
满足帮助说的条件啊。。。为何创建不起：
1、创建成员可以指定的属性很多，但是只有userid、name和department三个属性是必须指定的。
2、mobile、email和wexindid三者必须至少指定一个。
加好友 
发短信
Post By：2017/6/29 11:03:00 [只看该作者]
