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

Question

我正在使用 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 时间，这至少允许消息在接收者端包含正确的时间。我不是特别关心这个修复，但它确实有效。]

Answer 1

当存在附件时，不要使用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; 

或者：

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() 在内部调用 TIdMessage.SaveToStream()，这会重新生成新鲜的电子邮件内容（从而改变正文中使用的边界）。无论是传入预先存在的TIdMessage.LastGeneratedHeaders 还是让TIdIMAP4.AppendMsg() 抓取当前的TIdMessage.Headers，它们都将与TIdMessage.SaveToStream() 生成的新边界不同步。

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

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

IMAP4 通常是一个非常棘手的协议。