平台中选择人员发送推送消息

张兴康

昨天发表了一个：平台中给部分人员发送推送消息的功能代码（人员是已经确定了的）

今天在给大家介绍下直接从组织机构树中选择需要发送系统推送消息的人员名单（发送消息前需要选择人员）：
'--------------------------------------------------------------------------------------------------------------------------------------------

'第一个参数指示是否显示工作组，第二个参数为false时为只选择人员的模式，不能人员外的上级，为true时表示可以选择所有类型。
dim  form=LoadAssembly("FWFramework.Client.BaseControls.dll","FWFramework.Client.BaseControls.Persions.SelectStaffForm",true,true)
form.ShowDialog()
'获取所选中的组织机构
'dim orgs=form.SelectOrganizations
dim str=""
'for each org in orgs
'        str="组织机构信息："+newline()
'        str=str+"ID:"&org.ID+newline()
'        str=str+"名称:"&org.Name+newline()
'        str=str+"别名:"&org.Alias+newline()
'        str=str+"Type:"&org.Type+newline()
'        str=str+"上级ID:"&org.UpperId+newline()
'        
'        msgbox(str)        
'next
'获取选中的组织机构下的所有人员,注意获取的人员没有部门岗位信息。
dim staffs=form.SelectedStaffs
str=""
dim iCount=0
for each si in staffs
   iCount=iCount+1
        'str="组织机构信息："+newline()
        'str=str+"ID:"&si.ID+newline()
        'str=str+"名称:"&si.UserName+newline()
        'str=str+"Type:"&si.Type+newline()
        'str=str+"上级ID:"&si.UpperId+newline()
        'msgbox(str)  
        '------------------------------------------------------------------------------------------------------
        '参数1：人员ID串，示例： "20001,20002,20003"
  '参数2：通知标题。右下角冒泡的小界面的标题。
  '参数3：通知内容。右下角冒泡的小界面的内容。
  '参数4：点开打开的窗体ID
  '参数5: 向打开窗体传递的参数。
        SendCustomNotice(cstr(si.ID),"医院发文",医院发文列表.GetFocusedRowValue("标题"),"bd95f61439234441b02856af7b7b57fa",医院发文列表.GetFocusedRowValue("ID"))
        '-------------------------------------------------------------------------------------------------------
next
if iCount>0 then
   msgbox("向"&iCount&"人发送提醒成功！")
end if

张兴康