使用IdPOP3接收Gmail邮件时无法保存附件的技术求助

核心问题分析 #

你的代码存在两个关键错误导致附件无法保存：

• 索引混淆：循环变量i是邮件的序号（1到mailcount），但你用它访问IdMessage1.MessageParts.Items[i]——MessageParts的索引从0开始，且每个邮件的附件数量和邮件序号没有对应关系，直接用邮件序号访问附件集合必然出错。
• 重复获取邮件：先调用RetrieveHeader再调用Retrieve完全多余，Retrieve方法已经会完整获取邮件的所有内容（包括Header、Body和附件），重复调用不仅浪费带宽，还可能导致状态混乱。

修正后的代码 #

procedure TForm1.Button1Click(Sender: TObject);
var
  MailIdx, PartIdx: Integer;
  IdSSLIOHandlerSocket: TIdSSLIOHandlerSocketOpenSSL;
  TMP: string;
  MailCount: Integer;
  Attachment: TIdAttachment;
begin
  IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(Self);
  try
    IdPOP31.IOHandler := IdSSLIOHandlerSocket;
    IdPOP31.UseTLS := utUseImplicitTLS;
    IdPOP31.Host := 'pop.gmail.com';
    IdPOP31.Port := 995;
    IdPOP31.Username := 'name@gmail.com';
    IdPOP31.Password := 'xxxxx';
    IdPOP31.Connect;

    MailCount := IdPOP31.CheckMessages;
    for MailIdx := 1 to MailCount do
    begin
      IdMessage1.Clear;
      // 直接获取完整邮件，无需单独取Header
      IdPOP31.Retrieve(MailIdx, IdMessage1);
      
      // 添加邮件主题
      TMP := IdMessage1.Subject;
      Mailzeug.Lines.Add(TMP);
      // 添加邮件正文
      TMP := IdMessage1.Body.Text;
      Mailzeug.Lines.Add(TMP);

      // 遍历当前邮件的所有部件，筛选并保存附件
      for PartIdx := 0 to IdMessage1.MessageParts.Count - 1 do
      begin
        if IdMessage1.MessageParts.Items[PartIdx] is TIdAttachment then
        begin
          Attachment := TIdAttachment(IdMessage1.MessageParts.Items[PartIdx]);
          // 自定义保存路径，建议添加邮件序号避免重名
          Attachment.SaveToFile('C:\Attachments\' + IntToStr(MailIdx) + '_' + Attachment.FileName);
        end;
      end;
    end;
  finally
    IdPOP31.Disconnect;
    IdSSLIOHandlerSocket.Free;
  end;
end;

额外注意事项 #

• 路径权限：确保附件保存路径（如示例中的C:\Attachments\）存在且程序有写入权限，建议对附件文件名做特殊字符校验，避免保存失败。
• Gmail权限配置：若使用普通密码，需确保账号开启“不太安全的应用访问”；若开启了两步验证，需使用App密码登录。
• Indy版本：建议使用较新的Indy版本，旧版本可能存在邮件格式解析兼容性问题。

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