关于Delphi2010使用Indy发送邮件乱码问题的解决

原来的程序由Delphi2007升级到Delphi2010，没想到原来收发邮件正常的系统在发送中文邮件时发生了乱码，只得重新寻找解决办法，后来发现，这样构建消息可以避免乱码问题（不知道有没有其他解决办法）：

 

 

with IdMessage1 do
  begin
    Clear;
    From.Text := 'XXX@126.com';
    Recipients.EMailAddresses:= 'v@126.com';
    CharSet:='gb2312';
    Date:=Date;
    Subject := '邮件主题';
    Body.Text:='正文';

    txtpart:= TIdText.Create(IdMessage1.MessageParts);
    txtpart.ContentType := 'multipart/alternative';
    txtpart.Body.Text := '正文';
    txtpart.CharSet:='gb2312';
    txtpart.ContentTransfer:='base64';

    html:=TStringList.Create;
    html.Text:='正文';
    htmpart := TIdText.Create(IdMessage1.MessageParts, html);
    htmpart.ContentType := 'text/html';
    htmpart.CharSet:='gb2312';
    htmpart.ContentTransfer:='base64';

  end;

 

这样发送就可以，如果只是发送文字，这样也可以：

 

with IdMessage1 do
  begin
    Clear;
    From.Text := 'XXX@126.com';
    Recipients.EMailAddresses:= 'v@126.com';
    CharSet:='gb2312';
    Date:=Date;
    Subject := '邮件主题';
    Body.Text:='正文';

  end;