程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 更多關於編程 >> Delphi7中群發Email郵件的辦法

Delphi7中群發Email郵件的辦法

編輯:更多關於編程

Delphi7中群發Email郵件的辦法。本站提示廣大學習愛好者:(Delphi7中群發Email郵件的辦法)文章只能為提供參考,不一定能成為您想要的結果。以下是Delphi7中群發Email郵件的辦法正文


本文實例講述了Delphi7中群發Email郵件的辦法。分享給大家供大家參考。詳細剖析如下:

這段時間需求對一切參與考試的考生將考生信息及考試信息經過電子郵件群發,經過屢次調試,算是成功了,發來給大家參考一下:

總的思緒是:

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;
      try
        IdSMTP1.connect;
        thisresult := 1;
      
        if not IdSMTP1.Authenticate then
         begin
          showmessage('發送郵箱賬號驗證失敗!請反省SMTP賬戶設置!');
          thisresult := 0;
         end
      except
        showmessage('SMTP服務器銜接失敗!請反省SMTP賬戶設置及網絡能否正常!');
        thisresult := 0;
      end
    end;
  result := thisresult;
end;
 
4、將Email發送一個信息作為獨立函數,發送時需求停止延時控制
procedure sendEmailOnce(emailusername:string;
    formAddress:string;receiptRecipientAddress:string;sendtoAdd:string;emailSubject:string);
begin
  MsgKsbkxx.From.Name := emailusername;     //郵件發送人姓名
  MsgKsbkxx.From.Address := formAddress; //郵件發送人地址
  MsgKsbkxx.ReceiptRecipient.Address := receiptRecipientAddress;
     //回復地址,可以與郵件發送人地址不同
  MsgKsbkxx.Recipients.EMailAddresses := sendtoAdd; //發送地址?
  MsgKsbkxx.Sender.Address := formAddress; //sendtoAdd;  //郵件發送至......地址
  MsgKsbkxx.Subject := emailSubject;  //主題
  MsgKsbkxx.Body.Assign(emailMemo.Lines);  //郵件內容
  IdSMTP1.Send(MsgKsbkxx);  //發送郵件指令
end;
 
5、復雜判別電子郵件地址的合法性
//依據字符串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;
 
6、批量發送電子郵件
procedure bEmailKsxxClick;
var
  AccordAmount,i,j,tag:integer;
  emailusername,formAddress,sendtoAdd,emailSubject,receiptRecipientAddress,selectStr:string;
begin
  //判別數據表外面能否有需求發送電子郵件的數據,假如有則發送
  if Bmb.RecordCount >0 then
    AccordAmount := Bmb.RecordCount
  else
    exit;
  //
  //獲取賬戶信息,普通寄存在數據表或INI文件中
  emailusername :=  userNameString; //發送郵件人
  formAddress := fromAddressString;   //發送郵件地址
  receiptRecipientAddress := receiptRecipientAddressString;  //回復郵件地址
  emailSubject := emailSubjectString; //郵件主題
 //
  tag := 1;  //標志位:發送出錯則中止
  i:=1;  //發送郵件的總數
  j:=0;  //讓進度條逐漸遞進的記載處置條數
  list1.Clear; //顯示曾經成功發送電子郵件的學員信息
  //判別能否能與設置的郵箱銜接,假如前往值為1,則獲取郵件內容及相關設置並發送
  if setEmailInfo = 1 then
    begin
      Pb.BlockSize := 1;
      Pb.Max := AccordAmount ;
      Formsjtj.Refresh;
      Bmb.First;
      try
       while (not tBmb.Eof) do
        begin
          //判別郵件地址能否為空且能否契合電郵標准,如都滿足條件則給該地址發送電郵
          if Bmb.FieldByName('s_emailAddress').AsString+'a' <> 'a' then
            begin
              //獲取發送郵件的內容
              emailMemo.Clear;
              ..........................
              //設置郵件信息,如發送郵件錯誤,則直接加入
              if tag=0 then exit;
              //發送郵件
              sendtoAdd :=  trim(Bmb.FieldByName('s_emailAddress').AsString); //需求發送至...郵箱
              if emailAddressYesOrNo(sendtoAdd)= 'ok' then  //反省電子郵件格式能否正確
                begin
                  sendEmailOnce(emailusername,formAddress,receiptRecipientAddress,sendtoAdd,emailSubject); //發送郵件
                  i := i+1;       //計數器加1
                  list1.Items.Add(......);  //將曾經成功發送電郵的考生信息放在列表中
                end;
              //
            end;
          //每發送50封郵件停滯2s鐘
          if (i mod 50) = 0 then sleep(2000);
          dm_sjtj.ListBmb.next;
          Application.ProcessMessages ; //循環中處置進程信息
          //刷新進度指示
          j := j+1;
          PB.Progress:=j;
          PB.StepIt ;
          PB.Refresh;
        end;
      finally
        tag := 0;
        IdSMTP1.Disconnect;
      end;
    end;
  showmessage('共發送 '+intToStr(i-1)+' 封郵件。');
end;
 
7、需求留意的問題

① 濫發電郵是國度所不允許的
② 由於群發電郵是絕大少數電郵提供商都控制,往往2封電郵之間必需要有一段時間的延遲,建議自行架設郵件服務器
③ 由於Indy控件只要atNone和atSASL兩種形式,架設好郵件服務器後,需求設置不需求驗證的IP地址及賬號;
④ 由於外部郵件地址無法取得電郵回復,因而往往回復地址與發信地址設置為不同。如今呈現的一個問題就是經過閱讀器翻開郵件無法回復,但是經過Foxmail接納郵件後可以取得回復。這點需求留意。

希望本文所述對大家的Delphi順序設計有所協助。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved