{ ************************************************* ****************************
這個過程是用來得到郵件快遞目的地伺服器名稱及優先等級數，參數AMXList是用來接收結果值，AQName代表傳遞過來的網域名稱***************** ************************************************** **********}
procedure TQuickEMailFrm.GetMxList(AMxList: TStringList; AQName: string);
var
i: Integer;
begin
with IdDNSResolver do
begin
Host := 202.102.13.141 ; { Host屬性用來指定網域名稱伺服器的位址，此處為筆者所在地的主網域名稱伺服器位址，你也可以指定任一可以快速存取的網路網域名稱伺服器位址，要知道自己所在地的網域名稱伺服器位址，win98下透過winipcfg指令,win2000下透過ipconfig /all即可查出。 }
ReceiveTimeout := 10000; // 在指定的時間內得不到網域名稱伺服器的回饋，則視為失敗。
ClearVars; // 清除前一次查詢回饋回來的資源記錄
{ 建構此查詢的頭部結構}
with DNSHeader do
begin
Qr := False; // False 代表查詢Opcode := 0; // 0代表標準網域查詢RD := True; //網域名稱伺服器可以進行遞迴查詢QDCount := 1; //查詢的數量。
{ 建構要查詢的問題}
DNSQDList.Clear;
with DNSQDList.Add do
begin
QName := AQName; //要查詢的網域QType := cMX; //QTYPE指定要查詢的資源記錄的種類，值為cMX代表郵件交換記錄QClass := cIN;
end;
ResolveDNS; //向網域名稱伺服器發出請求
{ 從網域名稱伺服器接收回饋的結果，將回饋回傳的郵件伺服器名稱放在AMXList清單的Name部分，
郵件伺服器的優先等級數放在Value部分。 }
for i := 0 to DNSAnList.Count - 1 do
AMxList.Add(DNSAnList[i].RData.MX.Exchange + = +
IntToStr(DNSAnList[i].RData.MX.Preference));
end;
end;
{ 點擊"發送"按鈕時發送專遞郵件}
procedure TQuickEMailFrm.btnSendClick(Sender: TObject);
var
MxList: TStringList;
i: Integer;
QName, ThoughAddress: string;
begin
//根據使用者填寫的內容建立郵件with IdMsgSend do
begin
Body.Assign(mmContent.Lines); //郵件正文From.Address := Trim(edtFrom.Text); //寄件者地址Recipients.EMailAddresses := Trim(edtTo.Text); //收件者地址Subject := edtSubject.Text; //郵件主旨end;
//從輸入的收件者地址中取出郵件域名，利用前面的GetMxList過程得到目的地地址QName := TrimRight(copy(edtTo.Text, Pos( @ , edtTo.Text) + 1, Length(edtTo.Text )));
MxList := TStringList.Create;
try
GetMxList(MxList, QName);
ThoughAddress := MxList.Names[0];
{取回饋回來的第一個伺服器為目的地，讀者可根據實際需要改進，比如說考慮到信件的優先級或當你選擇的伺服器因繁忙而暫時不能處理你的信件時，換用其它伺服器試試}
finally
MxList.Free;
end;
//發送郵件with IdSMTP do
begin
Host := ThoughAddress; // 將Host賦值為目的地，這就是特快專遞與普通郵件的區別Port := 25; // smtp服務預設的連接埠為25
Connect; //連接到伺服器try
Send(IdMsgSend); //發送剛才建立的郵件ShowMessage( 寄完畢); //發送完畢後提示finally
Disconnect; //斷開伺服器連線end;
end;
end;