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;
      try
        IdSMTP1.connect;
        thisresult := 1;
      
        if not IdSMTP1.Authenticate then
         begin
          showmessage('發(fā)送郵箱賬號驗證失??！請檢查SMTP賬戶設置！');
          thisresult := 0;
         end
      except
        showmessage('SMTP服務器連接失敗！請檢查SMTP賬戶設置及網絡是否正常！');
        thisresult := 0;
      end
    end;
  result := thisresult;
end;

procedure sendEmailOnce(emailusername:string;
    formAddress:string;receiptRecipientAddress:string;sendtoAdd:string;emailSubject:string);
begin
  MsgKsbkxx.From.Name := emailusername;     //郵件發(fā)送人姓名
  MsgKsbkxx.From.Address := formAddress; //郵件發(fā)送人地址
  MsgKsbkxx.ReceiptRecipient.Address := receiptRecipientAddress;
     //回復地址，可以與郵件發(fā)送人地址不同
  MsgKsbkxx.Recipients.EMailAddresses := sendtoAdd; //發(fā)送地址？
  MsgKsbkxx.Sender.Address := formAddress; //sendtoAdd;  //郵件發(fā)送至......地址
  MsgKsbkxx.Subject := emailSubject;  //主題
  MsgKsbkxx.Body.Assign(emailMemo.Lines);  //郵件內容
  IdSMTP1.Send(MsgKsbkxx);  //發(fā)送郵件指令
end;

//根據字符串Separator的表示將字符串s分隔為若干個字符串，存入rs字符串列表中
procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList);
var
  AStr: string;
  idx: Integer;
  ASubStr: string;
begin
  AStr := Trim(s);
  while Pos(Separator, AStr) > 0 do
  begin
    idx := Pos(Separator, AStr);
    ASubStr := Copy(AStr, 1, idx - 1);
    rs.Add(ASubStr);
    AStr := Copy(AStr, idx + 1, Length(AStr));
  end;
 if AStr+'a' <> 'a' then  rs.Add(AStr); //如果存在剩余的字符串，則將其存入字符串列表中
end;
 
//判斷某個字符串是否符合電郵郵件地址標準
//正確：返回ok，錯誤返回error
function emailAddressYesOrNo (emailAddress:String):string;
var
  getStrings:TStringList;
  getYesOrNo:string;
begin
  getYesOrNo := 'error';
  getStrings := TStringList.Create;
  SeparateTerms2(emailAddress,'@',getStrings);
  if getStrings.Count=2 then
    begin
      getStrings.Clear;
      SeparateTerms2(emailAddress,'.',getStrings);
      if getStrings.Count>1 then  getYesOrNo := 'ok';
    end;
  getStrings.Free;
  result := getYesOrNo;
end;

procedure bEmailKsxxClick;
var
  AccordAmount,i,j,tag:integer;
  emailusername,formAddress,sendtoAdd,emailSubject,receiptRecipientAddress,selectStr:string;
begin
  //判斷數據表里面是否有需要發(fā)送電子郵件的數據，如果有則發(fā)送
  if Bmb.RecordCount >0 then
    AccordAmount := Bmb.RecordCount
  else
    exit;
  //
  //獲取賬戶信息,一般存放在數據表或INI文件中
  emailusername :=  userNameString; //發(fā)送郵件人
  formAddress := fromAddressString;   //發(fā)送郵件地址
  receiptRecipientAddress := receiptRecipientAddressString;  //回復郵件地址
  emailSubject := emailSubjectString; //郵件主題
 //
  tag := 1;  //標志位：發(fā)送出錯則停止
  i:=1;  //發(fā)送郵件的總數
  j:=0;  //讓進度條逐步遞進的記錄處理條數
  list1.Clear; //顯示已經成功發(fā)送電子郵件的學員信息
  //判斷是否能與設置的郵箱連接,如果返回值為1，則獲取郵件內容及相關設置并發(fā)送
  if setEmailInfo = 1 then
    begin
      Pb.BlockSize := 1;
      Pb.Max := AccordAmount ;
      Formsjtj.Refresh;
      Bmb.First;
      try
       while (not tBmb.Eof) do
        begin
          //判斷郵件地址是否為空且是否符合電郵規(guī)范，如都滿足條件則給該地址發(fā)送電郵
          if Bmb.FieldByName('s_emailAddress').AsString+'a' <> 'a' then
            begin
              //獲取發(fā)送郵件的內容
              emailMemo.Clear;
              ..........................
              //設置郵件信息，如發(fā)送郵件錯誤，則直接退出
              if tag=0 then exit;
              //發(fā)送郵件
              sendtoAdd :=  trim(Bmb.FieldByName('s_emailAddress').AsString); //需要發(fā)送至...郵箱
              if emailAddressYesOrNo(sendtoAdd)= 'ok' then  //檢查電子郵件格式是否正確
                begin
                  sendEmailOnce(emailusername,formAddress,receiptRecipientAddress,sendtoAdd,emailSubject); //發(fā)送郵件
                  i := i+1;       //計數器加1
                  list1.Items.Add(......);  //將已經成功發(fā)送電郵的考生信息放在列表中
                end;
              //
            end;
          //每發(fā)送50封郵件停滯2s鐘
          if (i mod 50) = 0 then sleep(2000);
          dm_sjtj.ListBmb.next;
          Application.ProcessMessages ; //循環(huán)中處理進程信息
          //刷新進度指示
          j := j+1;
          PB.Progress:=j;
          PB.StepIt ;
          PB.Refresh;
        end;
      finally
        tag := 0;
        IdSMTP1.Disconnect;
      end;
    end;
  showmessage('共發(fā)送 '+intToStr(i-1)+' 封郵件。');
end;