高分求收发E-mail的原理与源程序！！！

Question

如何发邮件？
发附件？判断地址？...e-mail的原理与发送？..........

Answer 1

Delphi内带构件板的FastNet页中，提供了TNMSmtp构件，它的功能就在于将邮件发送到指定的邮件服务器。其最常用的属性和方法如下：　　Host：SMTP邮件服务器的地址，如SMTP.SINA.COM.CN　　Port：SMTP邮件服务器的端口号，一般用其默认值25即可　　UserID：用户名，当与邮件服务器建立连接时，需验证用户名　　PostMessage.FromAddress：发件人地址　　PostMessage.ToAddress：收件人地址　　PostMessage.Attachments：邮件附件的文件列表　　PostMessage.Body：邮件的正文　　PostMessage.Subject：邮件的主题　　Connect方法：建立与SMTP服务器的连接，连接前需指定Host和UserID　　Disconnect方法：断开与服务器之间的连接　　SendMail方法：将当前邮件发送到服务器　　实现方式　　首先在Form1中加入相应的TLabel、TEdit、TMemo、TButton、TListBox、TOpenDialog和TNMSmtp构件。其中，TMemo用于书写邮件内容，TListBox显示附件项目，TOpenDialog(文件打开对话框)用于选择附件文件，按钮Button1添加附件，按钮Button2连接服务器并发送邮件。程序的具体代码如下：　　procedure TForm1.Button1Click(Sender: TObject);　　begin　　if OpenDialog1.Execute then ListBox1.Items.Add(OpenDialog1.FileName);　　//将选择的文件项添加到ListBox1中，作为附件　　end;　　procedure TForm1.Button2Click(Sender: TObject);　　begin　　NMSmtp1.Host:=Edit3.Text; //SMTP服务器地址　　NMSmtp1.UserID:=Edit4.Text; //你在对应服务器上的注册用户名　　NMSmtp1.Connect; //与服务器建立连接　　NMSmtp1.PostMessage.FromAddress:=Edit5.Text; //发件人的邮件地址　　NMSmtp1.PostMessage.Subject:=Edit2.Text; //邮件主题　　NMSmtp1.PostMessage.ToAddress.Add(Edit1.Text); //收件人的邮件地址　　NMSmtp1.PostMessage.Attachments.AddStrings(ListBox1.Items); //附件　　NMSmtp1.PostMessage.Body.Assign(Memo1.Lines); //邮件的正文　　NMSmtp1.SendMail; //发送邮件　　NMSmtp1.Disconnect; //断开连接　　ShowMessage('发送完毕！'); //发送完时显示提示信息　　end;　　例：一个邮箱为[email protected]，利用SMTP.163.com邮件服务器向他人发信时，在Edit1中填入邮箱地址[email protected]，Edit2中写上主题，Edit3中填入SMTP.163.com，Edit4中填入用户名，Edit5中填入自己的地址[email protected]，添加附件后，单击发送按钮，一切OK了！　　注意事项　　需要特别说明的是：目前部分网站的SMTP邮件服务器要对发送邮件的用户进行身份验证，即要求给出用户名和密码信息，否则无法发送，包括163.net，263.net，sina.com，sohu.com等均在此列。而Delphi的TNMSmtp构件本身未提供“密码”属性，采用以上简单方法，不能利用这些服务器发送邮件，否则会出现错误信息；Delphi 6中用Indy构件组取代了Delphi 5中的FastNet构件组，其中的SMTP包含有身份验证的相关信息，可以很方便地解决这个问题。另一部分网站，如China.com，163.com等，则不要求身份验证，利用本程序，尽可畅通无阻。

Answer 2

http://www.playicq.com/dispdoc.php?t=&id=670