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

表2 TIdMessage组件与实现邮件群发相关的基本属性

需要说明的是在实际编写代码时对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）可以包含多个邮箱地址，所以当需群发的邮箱地址不是太多的情况下，就不必在邮箱地址列表每取得一个地址就发

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!