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

zfang

你怎么看的呢？
是这样的，用上面的代码修改后，对于邮件接收时间做了存储，而对于修改代码之前的，发的邮件的时间没有存储这个时间，所以你获取到的时间为空。（也就是你1楼提的问题现象了）所以，对于修改代码之后的邮件应该是不存在问题的了，但对于以前的邮件，那就只能取当前时间了。

巧克力味

msgMail.Date = '' 时给msgMail.Date复的是当前时间,而不是我想要的邮件接收时间,  如果想获取邮件的接收时间,从哪里获取?

zfang

首先，你这里是邮件另存的代码吧？
请按17楼的方式修改。（否则另存出来后是有问题的）
其次，这里的msgMail.date在发送邮件的时候，自动会存储为当前时间（也就是邮件接收时间）
然后，你再通过msgMail.date获取得到的时间，就是上面的的那个时间了。

巧克力味

如果像32楼msgMail.Date = ''  时,怎么获取邮件的接收时间,因为我在另存邮件后的邮件,日期大多是当前时间!

zfang

如果在代码修改前的邮件，由于之前没有存储msgMail.date时间（格式），所以另存后取时间不对。你才提了1楼的问题。
按17楼代码修改后，这个时间就对了。但是对于之前的邮件的这个时间，就没有办法，但对于修改后新发送或者接收的邮件就不会有问题了。

巧克力味

哦,明白了,我再测试一下看看!等会儿回贴!

zfang

好的。应该不会有问题了。我这边测试过了。呵呵

巧克力味

好,那我就不测试了,呵呵!

谢谢你了,刚开始我另存以前的邮件,难怪不对!

zfang

客气，那就结贴了。

zfang

楼主，更正17楼的改法：
procedure TMAILEDITFORM.SaveToStream(AStream: TStream);
var
  DateYear:   String;
  Month:         String;
  Date:           String;
begin
  if Pos('@', edtSendTo.Text) <> 0 then
    msgMail.From := DoGetMailFrom
  else
    msgMail.From := DoGetInternalMailFrom;

  if (edtFrom.text <> '') and (edtFrom.text <> DoGetMailFrom) and  (edtFrom.text <> DoGetInternalMailFrom) then
    msgMail.From := edtFrom.text;