如何通过TIdIMAP4搜索包含非ASCII字符的邮件主题或正文

问题根因 #

你遇到的非ASCII字符搜索失败是Indy的TIdIMAP4组件旧版本的固有缺陷：

• 旧版UIDSearchMailBox()方法默认强制将搜索关键词以ASCII编码传输，即便你手动指定了CHARSET UTF-8，组件内部也不会将波斯语这类非ASCII字符转为UTF-8字节流，最终提交到服务端的是乱码，自然无法匹配到结果。
• 你手动构造的两步提交SEARCH命令逻辑本身是正确的，但Indy的封装层没有正确处理UTF-8类型的literal参数提交，非ASCII字符在传输过程中被转码或截断。

可行解决方案 #

方案1：升级Indy到最新版本（推荐） #

Indy 2019年后的快照版本已经修复了UTF-8搜索的支持问题，升级后只需要在调用搜索前开启UTF8搜索选项即可：

// 开启IMAP UTF-8搜索支持
id_IMAP.ProtoOptions := id_IMAP.ProtoOptions + [ipoUTF8Search];

配置完成后直接调用原生UIDSearchMailBox()即可正常搜索非ASCII字符，不需要额外改其他逻辑。

方案2：绕过原生封装，手动构造搜索命令 #

如果受环境限制无法升级Indy，可以自己拼接IMAP命令并发送，示例代码如下：

function TForm1.UIDSearchUTF8(const AUIDRange: string; const ASearchKey: string; const ASearchText: string): TStringList;
var
  LUTF8Bytes: TBytes;
  LRespLines: TStringList;
  i: Integer;
begin
  Result := TStringList.Create;
  LUTF8Bytes := TEncoding.UTF8.GetBytes(ASearchText);
  LRespLines := TStringList.Create;
  try
    // 发送命令头，声明literal字节长度
    id_IMAP.SendCmd(Format('UID SEARCH CHARSET UTF-8 UID %s %s {%d}', 
      [AUIDRange, ASearchKey, Length(LUTF8Bytes)]), '+');
    // 收到服务端+响应后发送UTF-8编码的搜索内容
    id_IMAP.SendRaw(LUTF8Bytes, Length(LUTF8Bytes));
    // 读取最终执行结果
    id_IMAP.GetResponse(LRespLines);
    if id_IMAP.LastCmdResult.NumericCode = 0 then
    begin
      // 解析UID结果，* SEARCH 后面的数字就是匹配的UID列表
      for i := 0 to LRespLines.Count -1 do
      begin
        if Pos('SEARCH', LRespLines[i]) > 0 then
        begin
          Result.Delimiter := ' ';
          Result.DelimitedText := Copy(LRespLines[i], Pos('SEARCH', LRespLines[i]) + 7, MaxInt);
          Break;
        end;
      end;
    end;
  finally
    LRespLines.Free;
  end;
end;

调用时传入对应的参数即可，比如搜索正文包含波斯语内容，就传入ASearchKey = 'BODY'；如果兼容性不好可以换成ASearchKey = 'TEXT'，TEXT会匹配整个邮件的头和正文所有内容，服务端兼容性更好。

额外注意事项 #

• 确认目标邮箱内的邮件正文确实是UTF-8编码，如果邮件使用了Windows-1256这类波斯语专用编码，需要先把搜索关键词转为对应编码再提交，否则也会匹配失败。
• 部分IMAP服务端对BODY搜索的支持有限，优先用TEXT搜索键测试，成功率更高。

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