Delphi7中群发电子邮件的实现

 这段时间需要对所有参加考试的考生将考生信息及考试信息通过电子邮件群发，经过多次调试，算是成功了，发来我的博客给大家参考一下：

总的思路是：

1、安装局域网版的邮件服务器，并通过设置DNS使得给服务器能给网外用户发送电邮，这方面的软件比较多，例如WinWebMail就不错，可以从官网下载；

 

2、需要使用到的控件：Indy10.0.15,可以通过百度搜索下载；

 

3、设置设置需要发送的电子邮箱服务器及账号信息

function setEmailInfo:integer; //返回值0：邮箱设置失败；1：邮箱设置成功
var
  selectStr:string;
  thisresult:integer;
begin

  thisresult := 0;
  //设置账户
      IdSMTP1.AuthType := atNone; //或者是atSASL;
      IdSMTP1.Host := hostString;
      IdSMTP1.Username := userNameString;
      IdSMTP1.Password := passWordString;
    &nbs