使用Indy10和OpenSSL发邮件遇Ionos政策限制错误求助

环境与问题概述 #

使用Delphi 10.4.3、Indy 10.6.2.0和OpenSSL 1.0.2u开发的程序，近期执行邮件发送时触发EIdSMTPReplyError，错误信息如下：

Exception class EIdSMTPReplyError with message
'Transaction failed
Reject due to policy restrictions.'

邮件服务器为Ionos托管，程序可正常建立SMTP连接，但调用IdSMTP1.Send(IdMessage1)时触发上述错误。根据Ionos文档，该错误源于邮件未遵守RFC 5321和RFC 5322标准，要求：

• 邮件头包含且仅包含一个符合RFC 2822的Date行
• From、Sender、To、CC、Subject头仅出现一次
• 上述头语法正确

已确认基本符合要求并联系Ionos支持，以下是额外的排查方向与解决建议：

排查方向与解决建议 #

1. 捕获完整SMTP会话日志，分析原始邮件内容 #

通过Indy的日志组件记录发送给服务器的完整邮件数据，确认是否存在隐藏的头重复、格式错误：

• 添加TIdLogFile组件到窗体，设置Filename为日志路径，将IdSMTP1.Intercept指向该日志组件
• 运行测试代码后，查看日志中DATA命令后的邮件内容，重点检查：
  • Date头的格式是否严格符合RFC 2822（示例：Tue, 15 Aug 2023 14:30:00 +0800）
  • From、To、CC、Subject等头是否重复出现
  • 头内容是否存在非法字符、编码错误（如非ASCII字符未正确用RFC2047编码）
  • 每行结尾是否为标准的CRLF（\r\n）

2. 检查TIdMessage的自动头生成逻辑 #

Indy的TIdMessage默认会自动生成部分头，可能导致重复或不符合标准：

• 若手动设置了IdMessage1.Date，确认未触发自动生成逻辑：Indy仅在Date为0时自动生成Date头，避免手动设置后又让组件重复生成
• 检查IdMessage1.Recipients、IdMessage1.CC的添加方式：多次调用Add应合并为单个To/CC头（用逗号分隔收件人），而非生成多个头；若存在手动添加头的代码（如IdMessage1.Headers.Add()），确认未重复添加From/To等字段
• 验证Subject编码：若包含非ASCII字符，确保Indy已自动进行RFC2047编码，可通过日志查看编码后的格式是否符合标准

3. 升级OpenSSL版本 #

OpenSSL 1.0.2u已停止维护，Ionos可能调整了TLS策略，尝试升级到OpenSSL 1.1.1系列（需匹配程序的32/64位架构）：

• 替换程序目录下的对应DLL文件（1.1.1版本为libcrypto-1_1.dll、libssl-1_1.dll）
• 重新测试邮件发送，确认是否因TLS握手细节不符合服务器新要求导致间接错误

4. 验证EHLO/HELO命令的合规性 #

RFC 5321要求客户端发送合法的EHLO/HELO标识：

• 检查IdSMTP1.HostName属性，确保设置为有效的域名（如发送方的域名或客户端主机名），部分服务器会验证该域名的反向解析有效性
• 若未设置HostName，Indy会自动使用本地主机名，可能存在格式不规范的情况，手动设置为合法域名后测试

5. 构造极简合规邮件测试 #

创建仅包含必要字段的极简邮件，排除复杂内容的干扰：

procedure TForm2.btn_TestMinimalMailClick(Sender: TObject);
begin
  IdMessage1.Clear;
  // 设置符合RFC2822的Date头
  IdMessage1.Date := Now;
  // 设置基础收件人、发件人
  IdMessage1.From.Text := 'your-sender@example.com';
  IdMessage1.Recipients.Add('recipient@example.com');
  // 简单主题与正文
  IdMessage1.Subject := 'Test Minimal Mail';
  IdMessage1.Body.Text := 'This is a test message.';

  // 执行发送（沿用原SMTP配置）
  try
    IdSMTP1.Connect;
    try
      IdSMTP1.Send(IdMessage1);
      ShowMessage('Mail sent successfully!');
    finally
      IdSMTP1.Disconnect;
    end;
  except
    on E: Exception do
      ShowMessage('Error: ' + E.Message);
  end;
end;

若极简邮件发送成功，逐步添加原邮件的内容（如附件、HTML正文、额外头），定位问题所在。

6. 检查隐形字符与格式细节 #

邮件头中不可见的控制字符或格式错误可能被服务器判定为不合规：

• 通过日志查看原始邮件内容，检查是否存在单独的LF（\n）而非CRLF
• 确认头字段的冒号后是否有空格（如From: sender@example.com，而非From:sender@example.com）
• 检查收件人地址格式是否正确，是否包含非法字符（如未正确引号包裹的含空格地址）

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