Foxtable(狐表)用户栏目专家坐堂 → 钉钉接口


  共有11713人关注过本帖平板打印复制链接

主题:钉钉接口

帅哥哟,离线,有人找我吗?
weibu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:641 积分:5194 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2021/2/19 11:55:00 [只看该作者]

老师,因为钉钉存在一个人在多个部门,deptid的存储是1,2,3这样的;这样我通过遍历部门获取的userid就会重复;请问有什么办法去重;
代码如下
Dim client2 As DingTalk.Api.IDingTalkClient = New DingTalk.Api.DefaultDingTalkClient("https://oapi.dingtalk.com/department/list")
Dim req2 As DingTalk.Api.Request.OapiDepartmentListRequest = New DingTalk.Api.Request.OapiDepartmentListRequest()
req2.SetHttpMethod("GET")
Dim rsp2 As DingTalk.Api.Response.OapiDepartmentListResponse = client2.Execute(req2, access_token)
Dim s2 As String 
For i2 As Integer = 0 To rsp2.Department.count -1 
s2= rsp2.Department.Item(I2).id
   Dim client As DingTalk.Api.IDingTalkClient = New DingTalk.Api.DefaultDingTalkClient("https://oapi.dingtalk.com/user/getDeptMember")
Dim req As DingTalk.Api.Request.OapiUserGetDeptMemberRequest = New DingTalk.Api.Request.OapiUserGetDeptMemberRequest()
req.DeptId = s2
req.SetHttpMethod("GET")
Dim rsp As DingTalk.Api.Response.OapiUserGetDeptMemberResponse = client.Execute(req, access_token)
Dim s As String
If rsp.UserIDs IsNot Nothing Then
For i As Integer = 0 To rsp.UserIDs.count -1
s+ = rsp.UserIDs(i) & "|"
Next

   End If
MessageBox.Show(s)
MessageBox.Show(s2)
Next

 回到顶部
总数 81 1 2 3 4 5 6 7 8 9 下一页