Delphi 11下基于TIdIMAP4识别并解码MIME邮件附件

一、判断MessagePart是否为MIME编码的附件 #

要判断某个MessagePart是否是需要解码的附件，可从以下几个维度判断：

• 类型判断：非文本类型的MessagePart通常是TIdAttachment（或其子类，如TIdAttachmentFile），而非TIdText；
• 内容处置：检查ContentDisposition属性值是否包含attachment（对应你提供的邮件示例中的Content-Disposition: attachment; filename="Bart.jpg"）；
• 编码状态：通过IsEncoded属性判断该部分是否经过MIME编码，或直接检查ContentTransferEncoding属性是否为常见的MIME编码类型（如base64、quoted-printable等）。

二、解码并保存为原始格式 #

Indy的TIdAttachment类内置了解码逻辑，直接调用SaveToFile方法即可自动完成解码并保存为原始文件（如图片、文档等），无需手动处理编码转换。

三、完整代码示例 #

修改你提供的代码，实现正确的附件识别与解码保存：

procedure TImapForm.ProcessEmail(MSG: TIdMessage);
var
  i: Integer;
  LAttachment: TIdAttachment;
begin
  ContainsAttachement := False;

  if Msg.MessageParts.Count > 0 then
  begin
    for i := 0 to Pred(Msg.MessageParts.Count) do
    begin
      if Msg.MessageParts.Items[i] is TIdText then
      begin
        // 处理纯文本内容（跳过HTML）
      end
      else if Msg.MessageParts.Items[i] is TIdAttachment then
      begin
        ContainsAttachement := True;
        LAttachment := TIdAttachment(Msg.MessageParts.Items[i]);

        // SaveToFile会自动根据编码类型解码，无需手动处理
        LAttachment.SaveToFile('C:\SavedAttachments\' + LAttachment.FileName);
      end;
    end;
  end;
end;

关键说明 #

• 无需手动解析ContentTransferEncoding：SaveToFile方法会根据MessagePart的ContentTransferEncoding自动选择对应的解码方式（如示例中的base64解码）；
• 文件名获取：TIdAttachment.FileName会直接提取邮件中Content-Disposition或Content-Type字段里的文件名（对应示例中的Bart.jpg）；
• 多部分邮件处理：Indy的TIdMessage会自动解析MIME多部分邮件，将每个内容拆分到MessageParts集合中，无需手动拆分边界字符串。

内容的提问来源于stack exchange，提问作者Bart Kindt