【结贴】邮件另存为的问题!**

巧克力味

邮件另存为后,邮件的发送人是本人了,日期是另存为的日期,如图:

怎么把这发送人与日期纠正过来,特别是发送人!

atiger

嗯。已经再现，正在想办法，有结果马上跟贴告知

巧克力味

恩,好的!

jiahaiming

楼主，修改下脚本：
业务模型\协同系统\个人事务\邮件库\邮件编辑窗体
procedure TMailEditForm.SaveToStream(AStream: TStream);
begin
  if Pos('@', edtSendTo.Text) <> 0 then
  begin
    if edtFrom.text <> '' then
      msgMail.From := edtFrom.text
    else
      msgMail.From := DoGetMailFrom;
  end
  else
    msgMail.From := DoGetInternalMailFrom;
  msgMail.Subject := edtSubject.Text;
  if msgMail.Date = '' then
    msgMail.Date := FormatDateTime('yyyy-mm-dd hh:mm:ss', SysUtils.Now);

  CheckName;
  msgMail.SendTo := edtSendTo.Text;
  msgMail.CC := edtCC.Text;
  msgMail.Bcc := edtBcc.Text;

  case msgMail.ContentFormatType of
    TContentFormatType.ftText : SaveText(AStream);
    TContentFormatType.ftHTML : SaveHTML(AStream);
  end;

  FModified := False;
end;

巧克力味

还是不行,发件人还是和收件人一样名字,而且日期总是:2008年1月9日 星期三

jiahaiming

我都测试过了，
你是否没有编译、签入、刷新缓存？

巧克力味

真的还是五楼一样的,编译签入刷新,我重复好几次了

我的是linux服务器,oracle数据库,3088版本,office 2003!

巧克力味

procedure TMAILEDITFORM.SaveToStream(AStream: TStream);
begin
  if Pos('@', edtSendTo.Text) <> 0 then
  begin
    if edtFrom.text <> '' then
      msgMail.From := edtFrom.text
    else
      msgMail.From := DoGetMailFrom;
  end
  else
    msgMail.From := DoGetInternalMailFrom;
  msgMail.Subject := edtSubject.Text;
  if msgMail.Date = '' then
    msgMail.Date := FormatDateTime('yyyy-mm-dd hh:mm:ss', SysUtils.Now);

  CheckName;
  msgMail.SendTo := edtSendTo.Text;
  msgMail.CC := edtCC.Text;
  msgMail.Bcc := edtBcc.Text;

  case msgMail.ContentFormatType of
    TContentFormatType.ftText : SaveText(AStream);
    TContentFormatType.ftHTML : SaveHTML(AStream);
  end;

  FModified := False;
end;

巧克力味

在刚才那个事件里加上这句代码:
Dialogs.ShowMessage(msgMail.From + '  ' + edtFrom.text);
跳出的信息是这样的,如图:

说明:  msgMail.From := edtFrom.text  不能给msgMail.From 复值,这是怎么回事?

zfang

楼主，另存后发件人应该是没有问题了。
日期好像跟格式有关。