用C++ Builder实现电子邮件群发

　　 邮件群发这一手段被广泛应用于电子商务、网络营销中，例如我们现在能够通过chnia-pub.com（互动出版网）的书讯群发邮件了解到当前新书的资讯，据统计在美国有超过70％的Internet用户的在线购物行为要归功于Email营销，另外那些建设了局域网的单位也可以通过邮件群发来发送通知或传达文件，这样能够节省大量的人力物力而且方便迅速。本文简单介绍了发送电子邮件的原理，提出了一种基于C++Builder和Access2000数据库实现电子邮件群发的方法，详细介绍了C++Builder 中TIdSMTP组件的使用，并给出了用TIdSMTP组件实现群发的核心示例代码。

　　发送电子邮件的原理

　　 1、SMTP协议

　　 SMTP协议是IETF(Internet Engineering Task Force)制订的有关电子邮件系统的标准协议组中的一员，它的目的就是实现有效（efficiently）和可靠的（reliably）邮件传输，主要对怎样将电子邮件从发送方地址传送到接收方地址，也就是对传输的规则做了规定。SMTP协议中的主要角色是SMTP发信机和SMTP收信机，但是一个SMTP服务器可能兼有两种角色。SMTP协议采用了一组简单的命令来建立连接并在主机之间传送命令和数据。SMTP发信机向SMTP收信机发出SMTP命令，如："MAIL FROM： <mybox@hunau.net>"就是告知SMTP收信机邮件的来源，待收到命令后SMTP收信机则会响应应答SMTP命令，即会返回一个应答码，应答码一般为一个三位的十进制数，而且每一个数都有特定含义的，例如返回"250"表示要求的邮件操作完成。其他的SMTP命令和应答码在RFC821中有详细的描述，此处不再赘述。

　　 2、ESMTP协议
　
　　 目前，为了防止网络上垃圾邮件的泛滥，几乎所有的邮件服务提供商都在原来的SMTP服务器上追加了认证功能，但实际上SMTP协议本身并不具有认证的功能，在1999年3月出台的SMTP服务认证功能扩展（SMTP Service Extension for Authentication，RFC2544），即ESMTP中才定义了怎样在SMTP客户端与服务器之间来建立一种认证机制，执行认证协议的交换，同时扩展也为以后的协议交互进行了安全层的协商。该扩展是简单认证和安全层（Simple Authentication and Security Layer，SASL）的一个方面。

　　 SMTP认证功能的扩展实际实际上是增加了AUTH命令，AUTH命令的认证方式主要有LOGIN、CRAM-MD5和PLAIN等几种，我国目前使用得比较多的是LOGIN方式认证。SMTP认证一般是在发送邮件之前进行一次，采用口令-应答(Challenge-Response)方式，即由服务器发送命令要求客户端回答，客户端根据服务器发送信息进行回答，如果应答通过了，则认证成功，即可继续下一步处理。

　　用C++Builder实现邮件群发

　　 1、总体设计

　　 要实现邮件群发，我们首先需要实现与SMTP服务器连接，然后才能通过SMTP服务器发送邮件，由于SMTP服务器可能需要身份认证所以我们要编写实用的邮件群发软件还必须使其具有SMTP认证的功能。我们可以通过C++Builder中的TIdSMTP组件来实现与SMTP服务器的认证、连接和邮件的发送。通过编写代码循环读取邮件地址列表（Mail List）中的邮件地址并发送邮件从而实现群发。考虑到管理和获取邮件地址的方便性，地址列表存储的安全性以及基于该邮件地址列表的其他相关应用程序的开发我们可以采用Access2000数据库来存储邮件地址列表，利用C++Builder中的TADOTable组件我们可以使用ADO方式轻松的实现对Access2000数据库的直接访问和各种操作。

　　 2、邮件地址数据库ADO方式访问示例

　　 C++Builder在数据库处理方面向来是具有自己的优势，一般我们都采用Borland的强大的BDE数据库引擎来访问和维护数据库，但是使用BDE引擎有一个非常不方便的地方就是不能在程序运行阶段动态指定数据源，而采用ADO（ActiveX Data Objects）方式具有高性能、高兼容性和高灵活性的特点。采用ADO方式我们既可以在程序设计阶段指定数据源也可以在运行时动态修改数据源，而在实际应用中用户可能会要动态的指定存储邮件地址的数据库，为了使编写的群发程序具有更好得实用性，所以我选择使用C++Builder中的ADO组件TADOTable来访问和操作Access2000数据库，具体示例代码如下： Void __fast call TForm1: N_OpenClick (TObject *Sender)
{
　 AnsiString ConnStr;
　 Try {ADOTable1->Active = false;
　 OpenDialog1->InitialDir =".\\" ; file://初始化打开对话框
　 OpenDialog1->Filter = "MDB邮件列表文件 (*.mdb)*.mdb所有文件 (*.*)*.*";
　 OpenDialog1->DefaultExt = String("mdb");
　 if(OpenDialog1->Execute ())//动态指定数据源
　 {
　　 ConnStr=" Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB: Database Password =" + MaskEdit1->Text. Trim () + "; Data Source = " + OpenDialog1-> Filename. Trim () +"; Persist Security Info=True";

　　 ADOTable1->Connection String =ConnStr.Trim ();
　　 ADOTable1->Active=true;
　 }
　 Catch (Exception &exception)
　 {
　　 Application->Show Exception (&exception);
　 }
}