• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请


在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:= '[email protected]';  //收件人的地址
  IdMessage1.CCList.EMailAddresses:='[email protected]';//抄送
//  IdMessage1.BccList.EmailAddresses:='[email protected]'; //密送
//  IdMessage1.Priority:=mpHighest; //邮件重要性
  try
    idSMTP1.Authenticate;
    idSMTP1.Send(IdMessage1);
    Showmessage('发送成功!');
  except
    Showmessage('邮件发送失败!');
  end;
end;

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Matlab读取视频并处理成帧保存发布时间:2022-07-18
下一篇:
Matlab 生成fir滤波器抽头系数发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap