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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了delphi2010发送邮件—中文显示为乱码解决，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1568字，纯文字阅读大概需要3分钟。

内容图文

在delphi2010中拖idsmtp和idmessage这俩个控件，就可以发送邮件了。

在按钮btn1的click事件下写如下代码：

值得注意的是：1、你用哪个邮箱的服务器，在 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:=‘密码‘; //设置登陆密码
    IdSMTP1.Host:=‘smtp.qq.com‘; //设置SMTP地址
    IdSMTP1.Port:=25;     //设置端口 ,默认是25，


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


    if not idsmtp1.Connected then
    begin
      IdSMTP1.Connect; //开始连接服务器
    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;

版权声明：本文为博主原创文章，未经博主允许不得转载。

原文：http://blog.csdn.net/hello_myhome/article/details/46729107

内容总结

以上是互联网集市为您收集整理的delphi2010发送邮件—中文显示为乱码解决全部内容，希望文章能够帮你解决delphi2010发送邮件—中文显示为乱码解决所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---