20CN网络安全小组论坛 - 编程破解 - 用Delphi编写SMTP邮件发送程序  

论坛: 编程破解标题: 用Delphi编写SMTP邮件发送程序  

作者: cimsxiyang [cimsxiyang]

版主

平时你使用的是什么工具发送电子邮件？是Outlook，Foxmail或是其它？无论以前是什么，现在你都可以多一种选择：使用自己编写的邮件发送程序。而且对于Delphi来说，要完成它是如此的简单，那就让我们动手吧！

　　构件组成

　　Delphi 5构件板的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方法：将当前邮件发送到服务器

　　当然，TNMSmtp构件还有很多其它的属性、方法、事件，在这里我们不作介绍，需要时大家可以查阅相关资料或Delphi的帮助信息。

　　实现方式

　　首先在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;

　　以作者为例：我的一个邮箱为dyhuyz@163.com，利用SMTP.163.com邮件服务器向《中国电脑教育报》编辑部发信时，在Edit1中填入编辑部的地址soft@cce.com.cn，Edit2中写上主题，Edit3中填入SMTP.163.com，Edit4中填入用户名dyhuyz，Edit5中填入我的地址dyhuyz@163.com，添加附件后，单击发送按钮，一切OK了！

　　注意事项

　　需要特别说明的是：目前部分网站的SMTP邮件服务器要对发送邮件的用户进行身份验证，即要求给出用户名和密码信息，否则无法发送，包括163.net，263.net，sina.com，sohu.com等均在此列。而Delphi 5的TNMSmtp构件本身未提供“密码”属性，采用以上简单方法，不能利用这些服务器发送邮件，否则会出现错误信息；Delphi 6中用Indy构件组取代了Delphi 5中的FastNet构件组，其中的SMTP包含有身份验证的相关信息，可以很方便地解决这个问题。另一部分网站，如China.com，163.com等，则不要求身份验证，利用本程序，尽可畅通无阻
[notes]
上次我的emial不知道被who改了密码，所以，这次的演示程序可能不好给大家看了。真是................
我是用delphi6写的
还有是在考虑是不是要做个个人主页，这样比较方便一点，免得用email老是被人改密码，哎，这年头，人老实老是被人欺负啊！

[此贴被夕阳(cimsxiyang) 在 4月23日19时6分编辑过]

地主发表时间: 4/23 19:9