【结贴】同时可以打开两个邮件,而且关闭也会报错,**

巧克力味

当收到邮件时,即时通讯提示有邮件信息,通过这条信息打开该邮件(打开了X3系统、邮件功能与该邮件)，如图，打开完后，只关闭该邮件（X3系统与邮件功能没有关），然后再点击邮件功能，X3系统就会出现两个功能，如2楼图，最后关闭时会报错，是关闭用即时通讯打开的邮件功能报的错，如3楼图。

巧克力味

如图：

巧克力味

如图：

lixy

重现了，楼主等回馈

巧克力味

恩,好的!

zfang

修改：业务模型\协同系统\个人事务\邮件
procedure TJUSTEPMAIL.DoRun;   
var
  lViewMode: string;
  lFilterType: string;
  lFilterDesc: string;
  lLocateID: string;

  I: Integer;
  S: string;
  lFunc: TFunc;
  lFuncIsRunning: Boolean;
begin
  inherited;

  S := 'Biz:\COLLABORATION\JustepMail.Func';
  for I := 0 to TSystemCore.FuncManager.RunningFuncCount - 1 do
    if SysUtils.UpperCase(TSystemCore.FuncManager.RunningFuncs[I].BizClassURL.BizURL.URL) = SysUtils.UpperCase(S) then
    begin
      lFuncIsRunning := True;
      break;
    end
    else
      lFuncIsRunning := False;

  if not lFuncIsRunning then
  begin
    ParserRunParams(lViewMode, lFilterType, lFilterDesc, lLocateID);   //取功能参数

    MainForm := MailLibrary.TMailCenterForm.Create(Context);
    MailLibrary.TMailCenterForm(MainForm).Filter := lFilterType;
    MailLibrary.TMailCenterForm(MainForm).LocateID := lLocateID;
  end
  else
    self.Terminate;
end;

巧克力味

修改了,错误也没了,但是,即时通讯打开邮件时,激活的功能是工作台,而不是邮件,如图:

zfang

修改【业务模型\协同系统\个人事务\邮件】中
procedure TJUSTEPMAIL.OpenMsgMail(Parameters: string);
begin
  MailLibrary.TMailCenterForm(MainForm).OpenMsgClickMail(Parameters);
  TSystemCore.FuncManager.ActivateFunc(Self);//增加这句
end;
另：业务模型\协同系统\个人事务\邮件库\邮件编辑窗体的formstyle为fsStayOnTop

巧克力味

没有用,还是7楼那样的效果!

zfang

确定修改后编译迁入刷新缓存了吗？
我这边改后就可以正常激活了。（6楼+8楼说得都要修改的）