delphi2010发送邮件—中文显示为乱码解决

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvaGVsbG9fbXlob21l/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="">

在delphi2010中拖idsmtp和idmessage这俩个控件。就能够发送邮件了。

在buttonbtn1的click事件下写例如以下代码：

值得注意的是：1、你用哪个邮箱的server，在 IdSMTP1.Host:='smtp.qq.com'这都是有差别的。另外还需在所用的邮箱中设置账号里面开启SMTP服务。

发送邮件内容时，假设不指定IdMessage1.CharSet:='UTF-8';//，则发送内容中文显示为乱码。

var

filename: string;

begin   //发送邮件主函数

  try

   // IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvSSLv3;

    //IdSMTP1.IOHandler:= IdSSLIOHandlerSocket1;  //差别在这儿哟

    //IdSMTP1.AuthenticationType:=atLogin; //设置登陆类型

    IdSMTP1.Username:='你的邮箱账号'; //设置登陆帐号

    IdSMTP1.Password:='密码'; //设置登录password

    IdSMTP1.Host:='smtp.qq.com'; //设置SMTP地址

    IdSMTP1.Port:=25;     //设置port ,默认是25，





  //在你的qq邮箱中——设置——账户开启SMTP服务，否则报错    //





    if not idsmtp1.Connected then

    begin

      IdSMTP1.Connect; //開始连接server

    end;

  except

    Showmessage('连接失败,请重试!');

    Exit; //连接失败 的话 退出该运行过程

  end;

  IdMessage1.CharSet:='UTF-8';//j解决发送内容为中文乱码

  IdMessage1.Body.Clear;  //先清空上次发送的内容

  IdMessage1.Subject:='Delphi邮件发送測试';  //设置邮件发送的标题

  //IdMessage1.Body.add(edt1.Text);

  IdMessage1.Body.Text:= edt1.Text;

   //设置邮件发送的主体

//  filename := 'C:\文件.txt';   //须要加入的附件文件

  //TIdAttachment.Create(IdMessage1.MessageParts, filename);  //加入附件

  IdMessage1.From.Address:= '邮箱账号'; //设置邮件的发件人  也就是说该邮件来自什么地方

  IdMessage1.From.Name := '逍遥';

  IdMessage1.Recipients.EMailAddresses:= 'xxx@qq.com';  //收件人的地址

  IdMessage1.CCList.EMailAddresses:='xxx@qq.com';//抄送

//  IdMessage1.BccList.EmailAddresses:='aaaabbb@gmail.com'; //密送

//  IdMessage1.Priority:=mpHighest; //邮件重要性

  try

    idSMTP1.Authenticate;

    idSMTP1.Send(IdMessage1);

    Showmessage('发送成功!');

  except

    Showmessage('邮件发送失败!');

  end;

end;