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

摘 要：本文简单阐述了发送电子邮件的原理，提出了一种基于C++ Builder和Access2000数据库来实现电子邮件群发的方法，详细介绍了C++ Builder 中TIdSMTP组件的使用，并给出了用TIdSMTP组件实现群发的核心示例代码。
关键词：电子邮件群发；认证；TIdSMTP；TIdMessage；ADO
引言
邮件群发这一手段被广泛应用于电子商务、网络营销中，例如我们现在能够通过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：
               
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 =".\\" ; //初始化打开对话框
　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);
　}
}
注意代码中加粗的部分是必须的，在访问有密码保护的Access2000数据库时必须以独占方式打开，如果没有加粗部分的代码，则连接数据库时会提示错误。
3、使用TIdSMTP组件实现群发
在C++Builder6.0中新增加了一套INDY组件，这是一套开放源代码、功能强大的Internet组件，目前该套组件的最新版本是INDY10， 虽然在6.0以前的C++Builder版本中未集成这套组件，但是可以到INDY的网站http://www.indyproject.org/ 上下载源代码进行安装。INDY中的TIdSMTP组件符合RFC821、RFC1869和RFC2544的规范，利用TIdSMTP组件我们能够轻松的实现与SMTP服务器的认证连接、邮件的发送和回执请求。下表是要实现邮件群发，将使用到TIdSMTP组件的基本属性和方法：
表1 TIdSMTP组件的基本属性和方法

方法名	功能描述
Connect ()	连接SMTP服务器
Disconnect ()	关闭SMTP会话
Send (Amsg: IdMessage)	发送邮件
Connected ()	判断是否与SMTP服务器连接
Disconnected ()	判断是否与SMTP服务器断开连接

属性名	功能描述
Host	SMTP服务器地址，可以使用IP地址或域名,如：Smtp.sohu.com
Port	与SMTP服务器建立TCP连接使用的端口，一般为25
Authentication Type	与SMTP服务器认证的类型，目前版本只提供LOGIN方式
UserID	邮箱用户名
Password	邮箱密码

在TIdSMTP中执行邮件发送的是Send（）方法，它的参数是一个TIdMessage类的实例，所以要实现完整的邮件发送TIdSMTP组件还必须配合INDY中的TIdMessage组件使用。 TIdMessage组件封装了一个完整的符合RFC822和RFC1036规范的Internet消息，实际上TIdSMTP组件是用来实现连接SMTP服务器、认证及邮件的发送，而TIdMessage则负责创建邮件的内容（如：主题、正文、收件人等），以下是TIdMessage组件与实现邮件群发相关的基本属性列表：
表2 TIdMessage组件与实现邮件群发相关的基本属性

属性名	功能描述
Content Type	邮件内容的类型，如：text/html等
Subject	邮件主题
ody	B邮件正文
From->Name	发件人姓名
Recipients->Email	Addresses 收件人EMAIL地址

               
需要说明的是在实际编写代码时对TIdMessage组件的Content Type属性需要赋值，指明消息正文的类型，例如我们群发邮件时，邮件的正文一般为文本，那么我们就必须将Content Type属性赋值为text/html，否则邮件的正文在接收浏览邮件时将会变为邮件附件的形式。下面给出实现邮件群发的示例代码：
Void __fast call TForm1: SEND_BTNClick (TObject *Sender)
{
　Int recnum, k; AnsiString addr;
　IdSMTP1->Host = ComboBoxaddr->Text. Trim ();//设定SMTP服务器地址和端口号
　IdSMTP1->Port =25;
　if(CheckBox_AUTH->Checked ==true) //判断并设置SMTP服务器是否需要认证
　{
　　IdSMTP1->Authentication Type = at Login;
　　IdSMTP1->UserId = Edit name->Text. Trim ();
　　IdSMTP1->Password=MaskEdit_pass->Text. Trim ();}
　　IdMessage1->Content Type = "text/html"; //根据用户填写的信息创建邮件
　　IdMessage1->Subject =Edit3->Text. Trim ();0
　　… …
　　ADOTable1->First(); //循环读取邮件地址并发送实现群发
　　Recnum= ADOTable1->Record Count;
　　For (k=0;kField Byname ("Email")->AsString) ;
　　　IdMessage1->Recipients->Email Addresses =addr
　　　If (! IdSMTP1->Connected ())
　　　{
　　　　Try
　　　　　{IdSMTP1->Connect ();}
　　　　Catch (Exception &e)
　　　　　{Application->Message Box(e.Message, "连接SMTP服务器失败", MB_ICONWARNING); }
　　　}
　　　If (IdSMTP1->Connected ())
　　　{
　　　　Try
　　　　　{IdSMTP1->Send (IdMessage1);}
　　　　Catch (Exception &e)
　　　　　{Application->Message Box(e.Message, "发送失败", MB_ICONWARNING); }
　　　}
　　　ADOTable1->Next ();}
　　　Application->Message Box ("发送完成!","邮件系统",MB_OK);
　　…
　}
结束语
虽然以上的示例代码基本实现了邮件群发功能，我们实现的是LOGIN认证方式，LOGIN方式对用户名和密码的BASE64编码是一种公共的编码标准，其实并不安全。同时并不是所有的邮件服务器都只支持LOGIN方式，例如新浪还支持CRAM-MD5认证方式，如果我们要实现其他的认证方式我们可以到http://www.ararat.cz/synapse/ 这个网站上下载一套synapse的TCP/IP类库利用它可以实现SMTP的多种认证方式。另外，根据RFC821描述，实际上我们邮件的转发路径（forward-path）可以包含多个邮箱地址，所以当需群发的邮箱地址不是太多的情况下，就不必在邮箱地址列表每取得一个地址就发送一次，而是可以将多个邮件地址连接起来（每个邮箱之间用逗号分隔）作为一个地址发送，同样能够实现群发邮件，例如：IdMessage1 ->Recipients -> Email Addresses ="mailbox1，mailbox2" 但是如果需群发的邮箱地址比较多的情况下，作者建议分多次来发送，因为如果邮件的转寄路径包含邮箱地址过多的话会使邮件变得过大，增加邮件发送时延。