function setEmailInfo:integer; //返回值0：郵箱設(shè)置失?。?：郵箱設(shè)置成功
var
  selectStr:string;
  thisresult:integer;
begin
  thisresult := 0;
  //設(shè)置賬戶
      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ā)送郵箱賬號(hào)驗(yàn)證失?。≌?qǐng)檢查SMTP賬戶設(shè)置！');
          thisresult := 0;
         end
      except
        showmessage('SMTP服務(wù)器連接失敗！請(qǐng)檢查SMTP賬戶設(shè)置及網(wǎng)絡(luò)是否正常！');
        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ù)地址，可以與郵件發(fā)送人地址不同
  MsgKsbkxx.Recipients.EMailAddresses := sendtoAdd; //發(fā)送地址？
  MsgKsbkxx.Sender.Address := formAddress; //sendtoAdd;  //郵件發(fā)送至......地址
  MsgKsbkxx.Subject := emailSubject;  //主題
  MsgKsbkxx.Body.Assign(emailMemo.Lines);  //郵件內(nèi)容
  IdSMTP1.Send(MsgKsbkxx);  //發(fā)送郵件指令
end;

//根據(jù)字符串Separator的表示將字符串s分隔為若干個(gè)字符串，存入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;
 
//判斷某個(gè)字符串是否符合電郵郵件地址標(biāo)準(zhǔn)
//正確：返回ok，錯(cuò)誤返回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
  //判斷數(shù)據(jù)表里面是否有需要發(fā)送電子郵件的數(shù)據(jù)，如果有則發(fā)送
  if Bmb.RecordCount >0 then
    AccordAmount := Bmb.RecordCount
  else
    exit;
  //
  //獲取賬戶信息,一般存放在數(shù)據(jù)表或INI文件中
  emailusername :=  userNameString; //發(fā)送郵件人
  formAddress := fromAddressString;   //發(fā)送郵件地址
  receiptRecipientAddress := receiptRecipientAddressString;  //回復(fù)郵件地址
  emailSubject := emailSubjectString; //郵件主題
 //
  tag := 1;  //標(biāo)志位：發(fā)送出錯(cuò)則停止
  i:=1;  //發(fā)送郵件的總數(shù)
  j:=0;  //讓進(jìn)度條逐步遞進(jìn)的記錄處理?xiàng)l數(shù)
  list1.Clear; //顯示已經(jīng)成功發(fā)送電子郵件的學(xué)員信息
  //判斷是否能與設(shè)置的郵箱連接,如果返回值為1，則獲取郵件內(nèi)容及相關(guān)設(shè)置并發(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ā)送郵件的內(nèi)容
              emailMemo.Clear;
              ..........................
              //設(shè)置郵件信息，如發(fā)送郵件錯(cuò)誤，則直接退出
              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;       //計(jì)數(shù)器加1
                  list1.Items.Add(......);  //將已經(jīng)成功發(fā)送電郵的考生信息放在列表中
                end;
              //
            end;
          //每發(fā)送50封郵件停滯2s鐘
          if (i mod 50) = 0 then sleep(2000);
          dm_sjtj.ListBmb.next;
          Application.ProcessMessages ; //循環(huán)中處理進(jìn)程信息
          //刷新進(jì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;