如何用代码发通知给某个组织单元

刘加庆

实现步骤：

1、调用系统方法创建一个通知类型的任务，根据需要对任务赋值，并且添加到任务列表里；

2、调用SaveTask来保存任务。

use Business.Model.Flow, Business.Model.Org …
procedure TMainForm.RunNotify();
var
  lOrgURL: TOrgURL;
  lTask: TTask;
begin
  lTask := TTask.Create;
  lOrgURl := TOrgURL.Create('XSB','XSY','ZXX'); //通过部门、岗位、人员创建组织单元
  lTask.Subject:='代码启动通知' ;
  lTask.Kind:='ftkNotify';   //任务类型为通知
  lTask.SenderDeptID := 'XSB';
  lTask.SenderPositionID := 'XSJL';
  lTask.SenderID := 'ZXX';
  try
    begin
      lTask.TaskMessages.AddTaskMessage(nil, lOrgURl,
      TTaskmessagestate.tmsSend, 0, False);  
      //添加到任务消息列表里
      Flow.FlowEngine.SaveTask(lTask);   //保存任务
    end
  finally
    lTask .Free;
  end;
end;