C++Builder实现在线接收电子邮件

来源：作者：出处：巧巧读书 2007-10-09 进入讨论组

　　NMPOP31,PageProducer1。在Unit1.h头文件中定义几个变量：

　　AnsiString HostName,HostPort,UserName,UserCode;

　　TStrings *URLData; // 接受HTTP请求传递的参数

　　bool ConnectFlag;

　　int EmailOrder;

　　增加一个路径为/MailList的动作项，其代码如下：

　　void __fastcall TWebModule1::WebModule1WebActionItem1Action( TObject *Sender, TWebRequest *Request, TWebResponse *Response, bool &Handled) { //接受HTTP请求传递的参数，从中获取用主机、端口、户名和口令 URLData = NULL; switch(Request->MethodType) {case mtPost: URLData = Request->ContentFields; break; case mtGet: URLData = Request->QueryFields; break; } HostName = URLData->Values["Host"]; HostPort = URLData->Values["Port"]; UserName = URLData->Values["Name"]; UserCode = URLData->Values["Code"]; //下面开始连接邮件服务器 NMPOP31->AttachFilePath=".";//存储邮件路径为当前路径 NMPOP31->DeleteOnRead=false;//不删除服务器上的副本 NMPOP31->ReportLevel=Status_Basic;//Status的详细程度 NMPOP31->TimeOut=20000;//设定超时 NMPOP31->Host=HostName; NMPOP31->Port=StrToInt(HostPort); NMPOP31->UserID=UserName; NMPOP31->Password=UserCode; ConnectFlag=true; NMPOP31->Connect(); //如果连接成功，则制作邮件列表的HTML语句 if(ConnectFlag) {PageProducer1->HTMLDoc->Clear(); PageProducer1->HTMLDoc->Add("<html><body>"); PageProducer1->HTMLDoc->Add("邮件个数"+IntToStr(NMPOP31->MailCount)); if(NMPOP31->MailCount) for(int i=1;i<=NMPOP31->MailCount;i++) {PageProducer1->HTMLDoc->Add("<a href=''"); PageProducer1->HTMLDoc->Add("ReadMail?Mx="); PageProducer1->HTMLDoc->Add(IntToStr(i)); PageProducer1->HTMLDoc->Add("''>"); PageProducer1->HTMLDoc->Add(IntToStr(i)); PageProducer1->HTMLDoc->Add("</a>");} } PageProducer1->HTMLDoc->Add("</body></html>"); NMPOP31->Disconnect();} else {PageProducer1->HTMLDoc->Clear(); PageProducer1->HTMLDoc->Add("<html><body>"); PageProducer1->HTMLDoc->Add("连接服务器失败！"); PageProducer1->HTMLDoc->Add("</body></html>");} //将邮件列表的HTML语句发送给浏览器 Response->Content = PageProducer1->Content( ); } //--------------------------------------------------------------