| 用。 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 &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）可以包含多个邮箱地址，所以当需群发的邮箱地址不是太多的情况下，就不必在邮箱地址列表每取得一个地址就发 |
