【结贴】无流程任务关联通知发送给多人

zhjkill

{任务接受者}
     //lOrgURl := TOrgURL.Create(ADept, APosition, APerson);

     {任务业务关联数据定义}
     lTaskBizData := TTaskBizData.Create;
     lTaskBizDataRec := TTaskBizDataRec.Create;

     //业务数据的关键字段,用于检索业务数据
     lTaskBizDatarec.BizField := 'Biz:\PI_PLATFORM\X3_PROJECTDATA.DATABASE\TCONTRACT_AGREEMENT.TABLE\GUID.Field';
     //业务数据的关键字段值
     lTaskBizDataRec.Value := DSBrokerHTXY.DataSet.FieldByName('GUID').AsString;
     lTaskBizData.BizDataKeys.Add(lTaskBizDataRec);

     {任务信息的定义}
     //通过部门、岗位、人员创建组织单元
     //lOrgURl := TOrgURL.Create('JSJZX','KFCS','zj');
     lTask.Subject := '通知:'+q1.FieldByName('XMMC').AsString+'-'+q1.FieldByName('NRCC').AsString;
     lTask.Kind:= ''; //无流程任务为空
     lTask.TaskType := 'inf';//自定义任务关联的任务ID
     lTask.TaskTypeName := '通知:'+q1.FieldByName('XMMC').AsString+'-'+q1.FieldByName('NRCC').AsString;//自定义任务关联的任务名称
     //处理任务的功能
     lTask.FuncURL := 'Biz:\PI_PLATFORM\HTXYYQTZGN.Func';

     //lOrgURl := TOrgURL.Create(ADept, APosition, APerson);
     lTask.SenderDeptID := 'JSJZX';
     lTask.SenderPositionID := 'KFCS';
     lTask.SenderID := 'zj';

     //设置业务数据与任务关联关系,保存任务业务关联信息到'系统空间\系统数据库\任务业务数据表’
     lTask.BizDatas.Add(lTaskBizData);

     try
        begin
             lTask.TaskMessages.AddTaskMessage(nil, lOrgURl,
             TTaskmessagestate.tmsSend, 0, False);
             //添加到任务消息列表里
             Flow.FlowEngine.SaveTask(lTask);//保存任务
        end
     finally
        lTask .Free;
     end;
发送给单人是没问题的，怎么发送给多人，如何修改？

zhjkill

给个说明啊

zfang

楼主，你是指要给多个人发送通知么？
lTask.TaskMessages.AddTaskMessage(nil, lOrgURl,
             TTaskmessagestate.tmsSend, 0, False);
这句代码 调用多次你看是否可以。

zhjkill

这样不行的
一个通知发某人处理的 抄送多人的
和邮件一样的

zhjkill

意思能看到这个通知我发送给那些人

atiger

通知没有抄送这个概念，

zhjkill

给多人发一个通知
只能循环多人，一个一个发？

zhjkill

给个答复。。。

zhjkill

行不行也给个说法

atiger

循环多次是可以的
主要是要创建多个TaskMessage

有个类似的贴子给你参考一下 http://bbs.justep.com/forum.php?mod=viewthread&tid=24406