本文實例敘述了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程式設計有幫助。