用C++BUILDER实现POP3电子邮件的接收

　　通过对C＋＋BUILDER的组件设置,我们可以创建一个自己的POP3电子邮件接收程序。

　　一、建立一个工程文件

　　二、建立一个新的表单,设置它的caption属性为Getmail,在上面放置一个TpageControl控件,单击右键创建三个TabSheet(1，2，3)。在TabSheet1上放置四个Edit(1，2，3，4)控件并清除它们的Text属性及两个Botton(1，2),其中Edit1用以输入POP3服务器的名称；Edit2用以设置访问端口号,我们设置它为110,并将它的Text属性设为110；Edit3用以输入用户名；Edit4用以输入口令。设Botton1的caption为“连接”,Botton2的caption为“断开连接”。在TabSheet2上放置五个Edit(5，6，7，8，9)控件、两个Memo控件和三个Botton(3，4，5)，Edit5用来显示邮件的编号；Edit6、Edit7、Edit8和Edit9分别用来显示邮件的发送者、邮件的主题、大小及ID号；Memo1用来显示邮件的正文；Memo2用来显示邮件头；Botton3、Botton4、Botton5的caption属性分别设置为“删除”、“邮件”和“邮件信息”。在TabSheet3上放置两个Botton和一个Memo控件，其中Botton6的caption属性为“邮件列表”；Botton7的caption为“清除列表”；Memo的用途自然为显示邮件列表。在表单的底部放置一个StatusBar控件用以显示工作状态。最后，最重要的是在表单上放置一个NMPOP3控件，在这个程序里，它是我们与POP3服务器通讯的核心。

　　三、编写代码

　　为Botton1的OnClick事件编写代码:

　　NMPOP31－〉AttachFilePath = ″.″;　//设定邮件的存储目录

　　NMPOP31－〉DeleteOnRead = false;　　//读完邮件后是否删除

　　NMPOP31－〉ReportLevel = Status_Basic; //控制OnStatus事件和Status属性报告的资料的数量

　　NMPOP31－〉TimeOut = 20000;　　　　　//设置超时的时间

　　NMPOP31－〉Host = Edit1－〉Text;　　//设置pop3服务器的主机名

　　NMPOP31－〉Port = StrToInt(Edit2－〉Text); //设置pop3服务器的端口号

　　NMPOP31－〉UserID = Edit3－〉Text;　 //取得用户名

　　NMPOP31－〉Password = Edit4－〉Text; //得到口令

　　NMPOP31－〉Connect(); //开始连接

　　Label10－〉Caption = ″＃ of Messages: ″＋IntToStr(NMPOP31－〉MailCount); //显示邮件的数量

　　为Botton2的OnClick事件编写代码:

　　NMPOP31－〉Disconnect();　//使之能够与服务器断开连接