【结贴】系统邮件**

zfang

9楼，你说的是内部邮件还是外部邮件不能答复发件人？具体操作描述一下。

10楼，内部邮件的已发送里面选择邮件--右键--状态属性，弹出的信息框是有内容的（我在3088下导入上面的包）

huangyue

回复11楼
1.就是内部邮件不能,一点击右键的"回复答复人"就报错
2.我这里弹出来就是一空白小窗体...
还有我在初始化调试怎么就报错了?(4楼错误图)

zfang

我这边的环境：3088+上面的邮件库
1、无论是内部邮箱还是外部邮箱，回复答复人都是正常的。
2、点内部邮件的状态属性，弹出对话框是正常显示的
3、初始化调试运行，我这边没有任何错误。

楼主，是否可以重新初始化一个环境出来，然后导入上面的包，然后测试看看是否正常呢。

huangyue

我这边没另外的环境测试邮件,我是直接在应用服务器上面导入上面的包的,之前我导出我原来的邮件库资源包居然比上面那个大很多,是[B]3M多[/B] ......不知道这是不是应用服务器的问题?

zfang

跟应用服务器没关系的吧。

你随便找台机器，装个服务端，然后找个数据库，建立一个空库，简单配置一下，然后建立一两个人然后就可以导入邮件做一下测试。

huangyue

我测试了,只要我那封邮件有2个以上的附件的话就会报(5楼)错,没附件的可以答复....那个状态属性还是灰色的?

zfang

已发送里面去看状态属性。

带多个附件报错，你按下面的代码来修改后再看看。

业务模型\协同系统\个人事务\邮件库
procedure TCustomMailEditor.DoEdit(const AMailID, AMailPath: string; const AReadOnly: Boolean; AReplayHeader: String = '';
   ATransmitMailGUID: String; AIsReplyMail: Boolean);
事件中
  //回复时不加载邮件附件
  if AIsReplyMail then
  begin
    for I := 0 to lForm.lvwAttachments.Items.Count - 1 do
      TObject(lForm.lvwAttachments.Items[I].Data).Free;
    lForm.RefreshAttachs;//把这句代码从上面的循环中移出来就可以了
  end;

huangyue

带多个附件这个OK了.
现在是...我在应用服务上面的那个属性状态弹出来还始终是空的...?难道应用系统不干净?在那里改这个东西?

jiahaiming

最初由 huangyue 发布
[B]带多个附件这个OK了.
现在是...我在应用服务上面的那个属性状态弹出来还始终是空的...?难道应用系统不干净?在那里改这个东西? [/B]

不明白楼主的意思，能贴个图吗？

huangyue

贾工...就是我6楼的图....