多部分/混合消息中的边界字符串不正确

我正在使用 Delphi 2006 在仅供个人使用的应用程序中创建并发送带有附件的电子邮件。我使用 TIdSMTP 实例发送邮件，然后将副本放入包含 TIdIMAP4 实例的特定 IMAP 文件夹中。这一切都与 BDS2006 一起分发的 Indy 10 版本配合得很好，但有一个例外：电子邮件标头中的时间总是不正确。

我决定尽可能修复这个问题，在寻找解决方案后，获取最新的 Indy 10 快照并使用它似乎是最合理的。

这会将正确的时间放入电子邮件标题中，但出现了一个新问题。现在，添加到 IMAP 文件夹的邮件标头中的边界字符串与电子邮件正文中的边界字符串不同！ （请注意，通过 SMTP 发送的消息是正确的。）

这是旧版本 Indy 10 的相关头信息：

Content-Type: multipart/mixed; boundary="XNlC6OyS4QSiHY2U=_jsXyps6TR34pFNsh"
MIME-Version: 1.0
Date: Tue, 22 Nov 2011 09:11:58 +0000

A test of the BDS2006-bundled version of Indy

--XNlC6OyS4QSiHY2U=_jsXyps6TR34pFNsh
Content-Type: application/octet-stream;
        name="20111122.xls"

这是来自 Indy 10.5.8 的相同标头信息（我昨天安装的快照 10_4702）：

Content-Type: multipart/mixed; boundary="CDbEncbFvL7RZdOJ3DOIRoRBs=_nBsbZms"
MIME-Version: 1.0
Date: Tue, 22 Nov 2011 07:33:46 -0600

investigating more deeply, why does the boundary indicator change?

--h=_WzGWJei29fng7SqdPpDh1nkJxJZhiGc
Content-Type: application/octet-stream;
    name="20111122.xls"

时间戳是固定的，但现在边界字符串不正确。结果是，添加到我的 IMAP 文件夹中的邮件中似乎没有任何内容。

以下是创建电子邮件和附件、发送并将副本放入 IMAP 文件夹的相关代码：

  FTheMsg.Date := Now;  // FTheMsg is a component dropped onto the form
  FTheMsg.Recipients.EMailAddresses := edMailTo.Text;
  FTheMsg.ClearBody;
  FTheMsg.Subject := 'Glucose Readings ' + FormatDateTime('mm/dd/yy', FStartDate) + ' - ' +
              FormatDateTime('mm/dd/yy', FEndDate);
  FTheMsg.Body.Assign(FMemo.Lines);

  // create the attachment
  TIdAttachmentFile.Create(FTheMsg.MessageParts, fileName);

  // send the mail!
  FSmtp.Host := FSMTPHost;  // values set up elsewhere, FSmtp is a component on the form
  FImap.Host := FIMAPHost;  // FImap is also a component on the form

  FSmtp.Connect;
  try
    FSmtp.Send(FTheMsg);
    FImap.Connect;
    try
      if (not FImap.AppendMsg('Sent Items', FTheMsg, FTheMsg.LastGeneratedHeaders, [mfSeen]))     then
        StatusBar1.Panels[4].Text := 'Failed append msg';
    finally
      FImap.Disconnect;
    end;
  finally
    FSmtp.Disconnect;
  end;

正如我所说，发送的电子邮件很好并且显示正常。但添加到我的 IMAP 文件夹（在上面的 FImap.AppendMsg() 中）的文件夹不正确。我试图追踪代码，看看哪里可能出了问题，但坦率地说，我对 Indy 和各种电子邮件协议/RFC 不够熟悉，无法确定出了什么问题。我所能告诉的是，旧版本在将消息附加到文件夹之前将其保存到临时文件中，而新版本则将其保存到内存流中。显然，有些东西是不同的，但我目前太无知，无法确定是什么。

有没有简单的方法来纠正旧版本中的时间戳问题？如果是这样，那对我来说就很好了，因为其他一切似乎都是正确的。如果不是，我还需要做什么来解决此处显示的边界字符串不正确的问题？

（由于这是一个严格供我自己使用的应用程序，因此如果有必要的话，我可以接受错误的日期，但不能接受“已发送邮件”文件夹中的“空出现”副本。）

如果需要更多信息，我很乐意提供一切我能提供的信息。

[编辑：我确实使用旧版本的 Indy 在我的代码中加入了一些拼凑的东西。我只是在发送消息之前将消息的日期/时间设置为 UTC/GMT 时间，这样至少允许消息在接收方端包含正确的时间。我并不特别关心这个修复，但它确实有效。]

不要使用TIdMessage.Body当存在附件时保存文本的属性。将文本放入TIdText对象代替。更好的是，使用TIdMessageBuilder...类，例如TIdMessageBuilderPlain，准备TIdMessage身体给你。

尝试这个：

FTheMsg.Clear; 
FTheMsg.Date := Now;  // FTheMsg is a component dropped onto the form 
FTheMsg.Recipients.EMailAddresses := edMailTo.Text; 
FTheMsg.Subject := 'Glucose Readings ' + FormatDateTime('mm/dd/yy', FStartDate) + ' - ' + FormatDateTime('mm/dd/yy', FEndDate); 
FTheMsg.ContentType := 'multipart/mixed'; 

TIdText.Create(FTheMsg.MessageParts, FMemo.Lines).ContentType := 'text/plain';
TIdAttachmentFile.Create(FTheMsg.MessageParts, fileName); 

FSmtp.Connect; 
try 
  FSmtp.Send(FTheMsg); 
  FImap.Connect; 
  try 
    if (not FImap.AppendMsg('Sent Items', FTheMsg, nil, [mfSeen])) then 
      StatusBar1.Panels[4].Text := 'Failed append msg'; 
  finally 
    FImap.Disconnect; 
  end; 
finally 
  FSmtp.Disconnect; 
end; 

Or:

FTheMsg.Clear; 
FTheMsg.Date := Now;  // FTheMsg is a component dropped onto the form 
FTheMsg.Recipients.EMailAddresses := edMailTo.Text; 
FTheMsg.Subject := 'Glucose Readings ' + FormatDateTime('mm/dd/yy', FStartDate) + ' - ' + FormatDateTime('mm/dd/yy', FEndDate); 

with TIdMessageBuilderPlain.Create do
try
  PlainText.Assign(FMemo.Lines);
  Attachments.Add(fileName); 
  FillMessage(FTheMsg);
finally
  Free;
end;

FSmtp.Connect; 
try 
  FSmtp.Send(FTheMsg); 
  FImap.Connect; 
  try 
    if (not FImap.AppendMsg('Sent Items', FTheMsg, nil, [mfSeen])) then 
      StatusBar1.Panels[4].Text := 'Failed append msg'; 
  finally 
    FImap.Disconnect; 
  end; 
finally 
  FSmtp.Disconnect; 
end; 

话虽如此，但无论哪种方式它都可能仍然无法正常工作。TIdIMAP4.AppendMsg() calls TIdMessage.SaveToStream()在内部，这会重新生成新鲜的电子邮件内容（从而改变正文中使用的边界）。是否传入已有的TIdMessage.LastGeneratedHeaders or let TIdIMAP4.AppendMsg()抓住电流TIdMessage.Headers，它们将与新边界不同步TIdMessage.SaveToStream()生成。

为了确保 SMTP 和 IMAP4 同步，它们需要接收相同的数据。尝试打电话TIdMessage.SaveToStream()首先手动使用TIdMessage.NoEncode属性设置为 False，然后设置TIdMessage.NoDecode属性为 True 并调用TIdMessage.LoadFromStream()将保存的数据按原样重新加载到TIdMessage.Headers and TIdMessage.Body属性，然后调用TIdSMTP.Send() and TIdIMAP4.AppendMsg()与TIdMessage.NoEncode属性设置为 True 所以TIdMessage.Headers and TIdMessage.Body按原样发送。

我知道，这违背了TIdIMAP4.AppendMsg()评论/文档说要做。AppendMsg()目前根本不考虑 MIME，因此它不能确保标头和正文中的 MIME 边界相互匹配。我将尝试检查该问题的修复。对于 Indy 11，Indy 的整个 MIME 处理系统将重新设计，因此我将确保可以保留边界和/或指定自定义边界，因此AppendMsg()可以更好地将正文边界与标题边界匹配。

一般来说，IMAP4 是一个非常棘手的协议。