代码生成了通知,希望能发送给某部门下的所有人员。
VAR
lOrgURL: TOrgURL;
lTask: TTask;
taskmessage:TTaskMessage;
begin
lTask := TTask.Create;
lOrgURl := TOrgURL.Create('03171001','','');
lTask.Subject:='某某缺陷消缺' ;
lTask.Kind:='ftkNotify';
lTask.SenderDeptID :='03171002';
lTask.SenderPositionID := '0317100201';
lTask.SenderID := 'cgy_yuejh';
try
taskmessage:=lTask.TaskMessages.AddTaskMessage(nil, lOrgURl, TTaskmessagestate.tmsSend, 0, False); //添加到任务列表
taskmessage.Task.FuncURL:= 'BIZ:\LCCSKJ\BZCKQRQX.FUNC';
taskmessage.Task.TaskTypeName:='变电缺陷验收通知';
taskmessage.Task.ProcURL:='BIZ:\LCCSKJ\QXSBLC.PROC';
taskmessage.Task.ProcUnitID:='QXSHBFF';
taskmessage.Task.FlowGUID:='8B3F0900B135419CB5F5D7428167DCC3';
taskmessage.Task.ExecuteMode:=ttaskExecuteMode.emSimultaneous;
//添加到任务消息列表里
Flow.FlowEngine.SaveTask(lTask); //保存任务
finally
lTask .Free;
end;
end;
生成的通知只能在任务中心下通过‘本部门’过滤才能显示出来,怎样才能让每个人都能收到一条通知呢? |