平台中给部分人员推送消息

张兴康

dim staffs = ExecuteSelect("select ID,数据ID,人员姓名,人员ID from yy_阅读权限 where 数据ID = '"&文档编辑部件1.GetFieldValue("ID")&"'")
dim iCount=0

for each si in staffs.Rows
    iCount=iCount+1         
    '参数1：人员ID串，示例： "20001,20002,20003"
    '参数2：通知标题。右下角冒泡的小界面的标题。
    '参数3：通知内容。右下角冒泡的小界面的内容。
    '参数4：点开打开的窗体ID
    '参数5: 向打开窗体传递的参数。
    SendCustomNotice(cstr(si["人员ID"]),文档编辑部件1.GetFieldValue("分类"),文档编辑部件1.GetFieldValue("标题"),"3b4d214a-b2ae-4f7d-9d7d-79830287cda4",文档编辑部件1.GetFieldValue("ID"))
next
if iCount>0 then
    msgbox("向"&iCount&"人推送消息成功！")
end if

张兴康

张兴康

我是风，来去无痕