标题: 平台中给部分人员推送消息 [打印本页] 作者: 张兴康 时间: 2020-3-13 17:16 标题: 平台中给部分人员推送消息 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 作者: 张兴康 时间: 2020-3-13 17:17 作者: 张兴康 时间: 2020-3-13 17:29
我是风，来去无痕
