zoukankan      html  css  js  c++  java
  • 关于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;

  • 相关阅读:
    基于VMWare配置VxWorks开发环境
    Go 方法、接口
    cgo 和 Go 语言是两码事
    MFC的回调函数
    go语言将函数作为参数传递
    nginx源码学习资源
    PYTHON 自动化运维
    LVS中文站点
    MS SQL SERVER 书BOOK
    桦仔------分享一下我研究SQLSERVER以来收集的笔记
  • 原文地址:https://www.cnblogs.com/GarfieldTom/p/1607731.html
Copyright © 2011-2022 走看看