Delphi7中使用Indy9的IdSmtp发送email时subject过长会出现乱码的解决办法

时间:2020-12-18 18:09:23
procedure TIdMessageClient.SendHeader(AMsg: TIdMessage);
var
  LHeaders: TIdHeaderList;
begin
  LHeaders := AMsg.GenerateHeader;
  //// -- 这里是一处bug,将导致含有中文字的header长度超过45即被截断,且影响正文中附件的解读
  ////    详见:http://bbs.csdn.net/topics/50353103 
  ////          主题第二行不解码的原因是:TIdMessage用Base64编码生成主题时,回车换行符'\0d\0a'重复了,
  ////          即'\0d\0a\0d\0a'。只要去掉1个就能够正常显示了。
  ////    另外,这里有另一个解决方案 http://delphi.ktop.com.tw/board.php?cid=30&fid=67&tid=33928
  ////    ...
  ////    此处是我的第三种解决方案   Anjo, 2013.9.30
  LHeaders.Text := StringReplace(LHeaders.Text, #13#10#13#10, #13#10, [rfReplaceAll]);

  try
    WriteStrings(LHeaders);
  finally
    FreeAndNil(LHeaders);
  end;
end;

 

找到IdMessageClient.pas文件,复制到工程文件夹中,然后做如上修改。