【结贴】发送邮件与删除邮件有报错!**

zfang

楼主，1楼的问题能稳定重现吗？

巧克力味

还没出现,我再测试一个星期行吗?

zfang

可以。到时候反馈到论坛就可以了。
辛苦了，楼主。

巧克力味

只要按照这个贴  http://bbs.justep.com/showthread.ph...29&pagenumber=2  的33楼与36楼改了就有人说发送邮件与删除邮件报错！

zfang

链接打不开哦。

巧克力味

http://bbs.justep.com/forum.php? ... 29&pagenumber=2
是这个！

巧克力味

业务模型\协同系统\个人事务\邮件库\邮件
procedure TMailCenterForm.MovePath(const AFolderID, ASrcFolderID, ADesFolderID: string);
  if FindTreeListNodeByTreeNode(lNode) <> nil then//增加这个判断就可以了
    FindTreeListNodeByTreeNode(lNode).MoveTo(FindTreeListNodeByTreeNode(lDesNode),
      TTreeListNodeAttachMode.natlAddChild);

或者

修改 业务模型\协同系统\个人事务\邮件库\邮件
procedure TMailCenterForm.actAllSRMailExecute(Sender: TObject);
begin
  sbMain.Panels[2].Text := '正在收发邮件...';
  if FCanReceive = True then
    ShowSendReceiveForm
  else
  begin
    JSDialogs.ShowWarning('邮箱已满，请删除邮件再点接收','错误');
    Exit;
  end;
  MailSystem.BeforeStartMailExchange;
  StartReceiveMail;
  SendMail;
  MailSystem.StartMailExchange(True, True);

  ReloadMailBox;  //增加这句代码
end;

肯定有问题！

zfang

if FindTreeListNodeByTreeNode(lNode) <> nil then//增加这个判断就可以了
这个修改是针对于建立自定义文件夹后，删除报指针错。

ReloadMailBox;  //增加这句代码
这个修改时针对内部邮件自己发给自己的看不到的错。

我这边都按照上面的修改了，然后测试了一下，删除邮件并没有报错。（3088版本）
楼主，你那边再辛苦一下，测试看看。

巧克力味

我现在已经不给他们新件文件夹,最近比较忙,没有时间测试,先结贴吧,到时有问题我再问!

zfang

好，谢谢反馈。