注意代码中加粗的部分是必须的，在访问有密码保护的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组件的基本属性和方法

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

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

　　 在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;k<=recnum-1; k++)
　　 {
　　　 Addr=Trim (ADOTable1->Field Byname ("Email")->AsString) ;
　　　 IdMessage1->Recipients->Email Addresses =addr
　　　 If (! IdSMTP1->Connected ())
　　　 {
　　　　 Try
　　　　　 {IdSMTP1->Connect ();}
　　　　 Catch (Exception %26amp;e)
　　　　　 {Application->Message Box(e.Message, "连接SMTP服务器失败", MB_ICONWARNING); }
　　　 }
　　　 If (IdSMTP1->Connected ())
　　　 {
　　　　 Try
　　　　　 {IdSMTP1->Send (IdMessage1);}
　　　　 Catch (Exception %26amp;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" 但是如果需群发的邮箱地址比较多的情况下，作者建议分多次来发送，因为如果邮件的转寄路径包含邮箱地址过多的话会使邮件变得过大，增加邮件发送时延。