您所在的位置:源码爱好者 » 网络相关 »Delphi xe7 连续发送邮件源码

Delphi xe7 连续发送邮件源码

  • 软件大小:190 KB
  • 软件语言:简体中文
  • 软件性质:国产软件
  • 软件授权:免费版
  • 更新时间:2016-12-27
  • 软件MD5:点击复制
  • 应用平台:Windows/delphi7
  • 软件评分: 9

软件介绍

 看到一邮箱轰炸软件,用Delphi实现的,主要用到两个控件:Tidsmtp和Tidmessage,如果大家有好的思路,可以留言,对软件进行优化~~~

2.jpg

程序比较简单,放上部分代码。 
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();

推荐高速下载