//发送信件
//idMsg为idMessage组件
with idMsg do
begin
Body.Assign(memo_content.Lines);
Subject := edt_title.Text;
From.Text := edt_From.Text;
Recipients.EMailAddresses := dmMain.adotbl.FieldValues['email'].AsString;
try
begin
idsmtp.Send(IdMsg);
end;
except
begin
Application.MessageBox('发送失败,请仔细检查','提示信息',MB_OK);
end;
end;
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 <cxubo@peoplemail.com.cn>; 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指令查询
即可找到目的地的地址。被查出来的目的地可能不止一个,有时这些目的地是有优先级别
之分的,分别对应着邮件的优先级别,你可以根据邮件优先级的不同对应发送,也可以任
意选择其中一个发送,本文的示例将选择反馈回来的第一个目的地发送,读者可根据实际
需要进行改进。