如何编写电子邮件发送程序？急救！！！

Question

{$Delphi}\Demos\Indy\MailClient
{$Delphi}\Demos\FastNet\Smtp

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Psock, NMsmtp, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    NMSMTP1: TNMSMTP;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure NMSMTP1Connect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const BaseTable:string='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
var
  Form1: TForm1;
  AuthSucc:boolean;// 是否需要密码验证
  function DecodeBase64(Source:string):string; //解码函数
  function FindInTable(CSource:char):integer;  //
  function EncodeBase64(Source:string):string; //编码函数implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
    NMSMTP1.Host :='smtp.163.net';
    NMSMTP1.Port :=25;
    NMSMTP1.UserID :='lxh_0';
    NMSMTP1.ReportLevel :=1;
    NMSMTP1.TimeOut :=10000;
    NMSMTP1.Connect;
    if AuthSucc=true then ////验证成功
    begin
        //MailTo:=TStringList.Create;
        //MailTo.Add('[email protected]');
        //MailBody.Add('Hello it is a test');
        nmsmtp1.PostMessage.FromAddress:='[email protected]'; //发信人的电子邮件地址
        nmsmtp1.PostMessage.ToAddress.Add('[email protected]');
        nmsmtp1.PostMessage.Body.Text :='test';
        nmsmtp1.PostMessage.Subject :='My test';
        nmsmtp1.SendMail;
        nmsmtp1.Disconnect;
    end;end;
function FindInTable(CSource:char):integer;
begin
  result:=Pos(string(CSource),BaseTable)-1;
end;
////
function DecodeBase64(Source:string):string;
var
  SrcLen,Times,i:integer;
  x1,x2,x3,x4,xt:byte;
begin
  result:='';
  SrcLen:=Length(Source);
  Times:=SrcLen div 4;
  for i:=0 to Times-1 do
  begin
    x1:=FindInTable(Source[1+i*4]);
    x2:=FindInTable(Source[2+i*4]);
    x3:=FindInTable(Source[3+i*4]);
    x4:=FindInTable(Source[4+i*4]);
    x1:=x1 shl 2;
    xt:=x2 shr 4;
    x1:=x1 or xt;
    x2:=x2 shl 4;
    result:=result+chr(x1);
    if x3= 64 then break;
    xt:=x3 shr 2;
    x2:=x2 or xt;
    x3:=x3 shl 6;
    result:=result+chr(x2);
    if x4=64 then break;
    x3:=x3 or x4;
    result:=result+chr(x3);
  end;
end;
/////
function EncodeBase64(Source:string):string;
var
  Times,LenSrc,i:integer;
  x1,x2,x3,x4:char;
  xt:byte;
begin
  result:='';
  LenSrc:=length(Source);
  if LenSrc mod 3 =0 then Times:=LenSrc div 3
  else Times:=LenSrc div 3 + 1;
  for i:=0 to times-1 do
  begin
    if LenSrc >= (3+i*3) then
    begin
      x1:=BaseTable[(ord(Source[1+i*3]) shr 2)+1];
      xt:=(ord(Source[1+i*3]) shl 4) and 48;
      xt:=xt or (ord(Source[2+i*3]) shr 4);
      x2:=BaseTable[xt+1];
      xt:=(Ord(Source[2+i*3]) shl 2) and 60;
      xt:=xt or (ord(Source[3+i*3]) shr 6);
      x3:=BaseTable[xt+1];
      xt:=(ord(Source[3+i*3]) and 63);
      x4:=BaseTable[xt+1];
    end
    else if LenSrc>=(2+i*3) then
    begin
      x1:=BaseTable[(ord(Source[1+i*3]) shr 2)+1];
      xt:=(ord(Source[1+i*3]) shl 4) and 48;
      xt:=xt or (ord(Source[2+i*3]) shr 4);
      x2:=BaseTable[xt+1];
      xt:=(ord(Source[2+i*3]) shl 2) and 60;
      x3:=BaseTable[xt+1];
      x4:='=';
    end else
    begin
      x1:=BaseTable[(ord(Source[1+i*3]) shr 2)+1];
      xt:=(ord(Source[1+i*3]) shl 4) and 48;
      x2:=BaseTable[xt+1];
      x3:='=';
      x4:='=';
    end;
    result:=result+x1+x2+x3+x4;
  end;
end;procedure TForm1.NMSMTP1Connect(Sender: TObject);
begin
    label1.caption:=nmsmtp1.Status;
  if nmsmtp1.ReplyNumber = 250 then
    label1.caption:=nmsmtp1.Transaction('auth login'); //开始认证
  if nmsmtp1.ReplyNumber =334 then //返回值为334，让你输入用BASE64编码后的用户名
    label1.caption:=nmsmtp1.Transaction('lxh_0');// 用户名aaaaa
  if nmsmtp1.ReplyNumber =334 then  // 返回值为334，让你输入用BASE64编码后的用户密码
    label1.caption:=nmsmtp1.Transaction('141592'); //密码为123456
  if nmsmtp1.ReplyNumber =235 then
  begin
    label1.caption:='successful';
    AuthSucc:=true;
  end;
  
end;end.

Answer 2

来个简单的：用TNMSMTP控件
unit smtp;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Psock, NMsmtp;type
  TForm1 = class(TForm)
    NMSMTP1: TNMSMTP;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    ListBox1: TListBox;
    Label3: TLabel;
    OpenDialog1: TOpenDialog;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if opendialog1.Execute then listbox1.Items.Add(opendialog1.filename);
 end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 nmsmtp1.UserID:=edit1.Text;
 nmsmtp1.Host:=edit2.text;
 nmsmtp1.Connect;
 nmsmtp1.PostMessage.FromAddress:=edit4.Text;
 nmsmtp1.PostMessage.ToAddress.add(edit3.text);
 nmsmtp1.PostMessage.Subject:=edit5.Text;
 nmsmtp1.PostMessage.Attachments.AddStrings(listbox1.items);
 nmsmtp1.PostMessage.Body.Assign(memo1.lines);
 nmsmtp1.SendMail;
 nmsmtp1.Disconnect;
 showmessage('恭喜！，邮件发送完毕.');
end;end.

Answer 3

“邮件特快专递”这个词现在已经是被广大的网民所熟知了，它就好比是网络上的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 <[email protected]>; 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: string); 
var 
i: Integer; 
begin 
with IdDNSResolver do 
begin 
Host := '202.103.224.68'; { Host属性用来指定域名服务器的地址，此处为我们公司
所在地的主域名服务器地址，你也可以指定任一可以快速访问到的Internet上域名服务
器地址，要知道自己所在地的域名服务器地址，win98下通过winipcfg命令,win2000下
通过ipconfig /all即可查出。不过我在程序中已经有所改变，采用了一个combobox控
件供你选择服务器地址，这里只不过为了方便起劲。} 
ReceiveTimeout := 10000; // 在指定的时间内得不到域名服务器的反馈，则视为失
败。 
ClearVars; // 清除前一次查询所反馈回来的资源记录 
 
{ 构建此次查询的头部结构 } 
with DNSHeader do 
begin 
Qr := False; // False 代表查询 
Opcode := 0; // 0代表标准域名查询 
RD := True; //域名服务器可以进行递归查询 
QDCount := 1; //查询的数量 
end; 
 
{ 构建要查询的问题 } 
DNSQDList.Clear; 
with DNSQDList.Add do 
begin 
QName := AQName; //要查询的域名
Edtext1.text:=AQName;//这里我用一个edit控件显示域名 
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 TForm1.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赋值为目的地，这就是特快专递与普通邮件的区别EdiText2.text:=ThoughAddress;这里我用一个edit控件显示目的地地址 
Port := 25; // smtp服务默认的端口为25 
Connect; //连接到服务器 
try 
Send(IdMsgSend); //发送刚才创建的邮件 
ShowMessage('发送完毕'); //发送完毕后提示 
finally 
Disconnect; //断开服务器连接 
end; 
end; 
end; 
 
end. 
 
 
如果对免费给好友发送短信感兴趣，我这里有一个发送手机和寻呼机短信的小程序
，如果感兴可与我联系付原程序及说明。 
 

Answer 4

http://www.ccw.com.cn/htm/app/aprog/01_12_4_3.asp

Answer 5

URL http://www.ccw.com.cn/htm/app/down/1204Source.zip是上文的例子

Answer 6

给你个例子http://www.csdn.net/cnshare/soft/12/12399.shtm
恳请指教！