邮件容量的问题**

rzport_lq0

我把邮箱里面的文件删掉了，邮箱上面的那个进度条怎么还是没有删除以前文件的容量！好像只能增加不能减少?

另外发邮件的时候，能不能让选择工作组啊？
现在好像选择不了工作组？

rzport_lq0

另外 如何限制邮件上传附件的大小？

zfang

检查一下，是否清空了收件箱，已删除邮件以及已发送邮件等。

zfang

不能直接选择工作组成员作为收件人。（可以发到人员成员上，因为工作组成员就是引用人员成员的）

rzport_lq0

把已删除邮件清空就下来了！
2楼的问题该如何解决？

rzport_lq0

这个错误会不会是由于邮件超过邮箱限制造成的？

请问 该如何限制上传附件的大小？

zfang

业务模型\协同系统\个人事务\邮件库\邮件编辑窗体中，修改
procedure TMAILEDITFORM.actNewAttachmentExecute(Sender: TObject);
var
  I: Integer;
  lOpenDialog: TMailOpenDialog;
begin
  lOpenDialog := TMailOpenDialog.Create(Self);
  try
    lOpenDialog.Filter := '所有文件(*.*)|*.*';
    lOpenDialog.Options := lOpenDialog.Options + [TOpenOption.ofAllowMultiSelect, TOpenOption.ofFileMustExist];
    if lOpenDialog.Execute then
    begin
      for I := 0 to lOpenDialog.Files.Count - 1 do
        msgMail.AddAttachment(lOpenDialog.Files[I]); //在这里自己控制逻辑