【结贴】接收邮件的问题!**

巧克力味

我这里初始化了一个数据库,也是只要建一个文件夹,点击 发送/接收 按钮就接收不到邮件,只能关闭邮件再打开才能收到!

巧克力味

好的,等待中.....

zfang

删除文件夹的问题按下面的方式修改

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

巧克力味

恩,好的,删除文件夹的问题解决!

zfang

接收邮件的问题在处理，请耐心等待一下。

zfang

关于接收内部邮件问题
修改 业务模型\协同系统\个人事务\邮件库\邮件
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;

巧克力味

OK,解决了,谢谢了!

zfang

好，客气，结贴了。