【结贴】邮件的回复报错!**

巧克力味 · 发表于 2008-9-25 12:00:59

就有一个邮件,点回复报错,如图:

其他邮件没有问题!这是怎么回事?

jiahaiming · 发表于 2008-9-25 13:38:18

调试运行看看。

巧克力味 · 发表于 2008-9-25 13:44:52

调试运行是什么意思?

zfang · 发表于 2008-9-25 13:48:38

就是用studio调试，从初始化运行，然后看看该邮件回复的时候是一个什么情况。

巧克力味 · 发表于 2008-9-25 18:47:05

调试运行过了,还是出错!如图:

zfang · 发表于 2008-9-26 09:29:13

上面的代码是在哪里？

巧克力味 · 发表于 2008-9-26 10:22:34

是邮件库[代码] 的
procedure TCustomMailEditor.DoEdit(const AMailID, AMailPath: string; const AReadOnly: Boolean; AReplayHeader: String = '';
ATransmitMailGUID: String; AIsReplyMail: Boolean);
事件里!
只要附件比较多,它的回复就会出错!

zfang · 发表于 2008-9-26 11:02:36

好，我们测试一下看看。请等待。

zfang · 发表于 2008-9-26 11:20:17

经过确认，需要按下面修改代码：
业务模型\协同系统\个人事务\邮件库
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;

巧克力味 · 发表于 2008-9-26 12:48:38

OK了,谢谢!

		自动登录	找回密码
密码			立即注册