陈旭波
“邮件特快专递”这个词现在已经是被广大的网民所熟知了，它就好比是网络上的EMS，能够直接把邮件送到对方的邮箱中，邮件发送完毕后，对方就可以立刻收到。Foxmail在其最新的4.0版本中也特别新增了该功能，作为一名编程爱好者，你是不是也想知道如何编程实现该功能呢？那就随本文一起揭开“邮件特快专递”的神秘面纱：
一、实现原理
在Outlook Express中，可通过查看邮件的属性得到该邮件的头部资料。我们拿一封不是特快专递的普通邮件来进行剖析，下面是笔者一封邮件的头部
资料：
Received: from sm1.163.com([202.108.44.203]) by peoplemail.com.cn(JetMail 2.5.3.0)
with SMTP id jm1ac3c063eec; Thu, 29 Nov 2001 07:20:25 -0000
Received: from xubo (unknown [61.154.94.146])
by sm1.163.com (Postfix) with ESMTP id 99CF11C461061
for ; Thu, 29 Nov 2001 15:12:49 +0800 (CST)
……
从该头部
资料可以看出，邮件传递的路线是由xubo→sm1.163.com→peoplemail.com.cn，其中xubo是本人所在机器，邮件是经由sm1.163.com这个中转站才送到目的地的，而我们平常所说的邮件特快专递，就是把邮件直接送到目的地而不需要中转站。
如何才能知道目的地的地址呢？我们知道电子邮件的地址由用户名(username)和邮箱域名（address.com）两部分构成的，给域名服务器发送针对“address.com”的MX指令
查询即可找到目的地的地址。被查出来的目的地可能不止一个，有时这些目的地是有优先级别之分的，分别对应着邮件的优先级别，你可以根据邮件优先级的不同对应发送，也可以任意选择其中一个发送，本文的示例将选择反馈回来的第一个目的地发送，读者可根据实际需要进行改进。
二、用到的核心组件
本文将采用Indy控件集进行域名
查询、邮件发送部分的编程。INDY的全名是Internet Direct（也叫Winshoes），是一套开放源代码、跨平台、优秀的Internet控件集，它支持大部分流行的Internet协议。Delphi 6已经包含了该控件集，如果你使用的是Delphi 6以前的版本，请先到Indy主页http://www.nevrona.com/Indy/Download.html
下载并安装该控件集。
三、窗口设计
向窗体上放置三个TEdit组件，一个TMemo组件，四个Tlabel组件，用到的Indy组件为TIdDNSResolver、TIdAntiFreeze、TIdSMTP、TIdMessage。其中TIdDNSResolver是用来向域名服务器发出
查询请求并得到结果，TIdMessage用来构建邮件，TIdSMTP用来发送邮件，TidAntiFreeze可以确保Indy在工作时
程序能响应来自外界的消息(注：Indy是以同步的方式进行工作的，在读或写操作完成之前，其它代码无法执行，加入TidAntiFreeze可以在每隔一段时间通过呼叫Application.ProcessMessage方法响应来自外界的消息。)
程序的界面如下图所示(箭头所指向的文字标识了该组件的名字)：
四、
程序代码(代码中包含了详细的说明)
……(前面一部分省略)
type
TForm1 = class(TForm)
IdDNSResolver: TIdDNSResolver;
IdAntiFreeze1: TIdAntiFreeze;
btnSend: TButton;
IdSMTP: TIdSMTP;
IdMsgSend: TIdMessage;
mmContent: TMemo;
Label1: TLabel;
edtTo: TEdit;
Label4: TLabel;
Label5: TLabel;
edtFrom: TEdit;
Label6: TLabel;
edtSubject: TEdit;
procedure btnSendClick(Sender: TObject);
private
{ Private declarations }
procedure GetMxList(AMxList: TStringList; AQName: string);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
{ 这个过程是用来得到邮件特快专递目的地服务器名称及优先级别数，参数AMXList是
用来接收结果值，AQName代表传递过来的域名 }
procedure TForm1.GetMxList(AMxList: TStringList; AQName: stri
