【结贴】代码发送通知**

vagrant

我用下面这段代码在流程结束的时候发送通知，发是可以发送了，但报错，请帮忙分析下这代码给是有什么问题！
var
  lOrgURL: TOrgURL;
  lTask: TTask;
  taskmessage:TTaskMessage;
begin
  lTask := TTask.Create;
  lOrgURl := TOrgURL.Create('','','zck');

  lTask.Subject:='会议纪要' ;
  lTask.Kind:='ftkNotify';
  lTask.SenderDeptID :='glxx';
  lTask.SenderPositionID := 'xtgcs';
  lTask.SenderID := 'zck';
  //lTask.lFlowControl.FlowRunnerbyIndex[0].CurrentTask;
    try
      taskmessage:=lTask.TaskMessages.AddTaskMessage(nil, lOrgURl, TTaskmessagestate.tmsSend, 0, False);   
      taskmessage.Task.FuncURL:= 'Biz:\OPERATION\OASPACE2\OA_MTSUMMARY_NFUNC.FUNC';
      taskmessage.Task.TaskTypeName:='会议纪要';
      taskmessage.Task.ProcURL:='Biz:\OPERATION\OASPACE2\OA_MTSUMMARYFLOW.PROC';
      taskmessage.Task.ProcUnitID:='OA_MTSUMMARY_NFUNC';

      taskmessage.Task.FlowGUID:=dsbSummary.DataSet.FieldByName('FID').AsString ;
      taskmessage.Task.ExecuteMode:=ttaskExecuteMode.emSimultaneous;

         Flow.FlowEngine.SaveTask(lTask);   
  finally
    lTask .Free;
  end;

zfang

报什么错误？

vagrant

报下面的错误：
list index out of bounds (0)

初始化运行报下面的错误：

zfang

跟踪一下，具体哪个代码报错？

vagrant

代码定位到这里

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=24471
参考看看。

为什么要代码发通知呢？直接在流程处理后发通知不可以实现需求吗？

vagrant

直接在流程处理后发通知是可以实现需求，但是这里的接受者是很多个人，不是一个人，而且最后一个环节是领导处理的，不可能让领导来选择通知接受者，所以我要实现的就是当领导审批完流转后自动计算通知接受者、自动发送

jiahaiming

楼主，自动发通知不需要使用上面的代码：
1、设置最后一个环节启动通知规则
2、取消规则的“通知确认”选项，保证不弹出通知发送对话框
3、在该环节的oncreateNotifyFlowTasks事件编写代码来分配通知接收者，具体可以参考oncreateflowoutflowtasks事件

vagrant

哦，这样，我先试一下

shangxy

对，使用知规则，然后代码设置通知接收者，不要代码通过任务的方法发送通知了，这样需要通过任务关联管理设置任务类型什么的。