快赢娱乐注册 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:快赢娱乐注册 > 源码下载 > Delphi源码 > 网络相关 > Delphi xe7 连续发送邮件源码下载

Delphi xe7 连续发送邮件源码

  • 资源语言:简体中文
  • 资源类型:国产软件
  • 资源大?。?90 KB
  • 资源等级:3星级
  • 相关链接:Home Page
  • 资源性质:免费版
运行环境:Windows/delphi7
更新时间:2015-04-01 14:31:06
有无插件:无插件,请您放心使用!

快赢娱乐注册 www.xjhospital.com.cn 看到一邮箱轰炸软件,用Delphi实现的,主要用到两个控件:Tidsmtp和Tidmessage,如果大家有好的思路,可以留言,对软件进行优化~~~

Delphi xe7 连续发送邮件源码

程序比较简单,放上部分代码。
IdSMTP1.Host:= Edit1.Text; // SMTP地址
IdSMTP1.Username:= Edit3.Text; //用户名
IdSMTP1.Password:= Edit4.Text; //密码
IdSMTP1.Port:= StrToInt(Edit2.Text);//端口
IdSMTP1.Connect;//建立连接
IdMessage1.Recipients.EMailAddresses:= Edit7.Text; //收件人地址
IdMessage1.Subject:= Edit8.Text ; //邮件标题
IdMessage1.CharSet:= 'UTF-8';
IdMessage1.Body.Clear;
IdMessage1.Body.Add(Edit10.Text); //邮件正文
IdMessage1.From.Address:= Edit9.Text; //发件人地址
IdMessage1.Priority:= mphigh;//优先级最高
IdSMTP1.Send(IdMessage1); //发送邮件
IdSMTP1.Disconnect();

特别提示:发邮件时,需要填写SMTP,您可以使用QQ邮箱或网易邮箱的免费SMTP

点击链接开始下载
本类最新
相关教程
下载说明
栏目导航
推荐软件