快速业务通道

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

作者 佚名技术 来源 程序设计 浏览 发布时间 2012-06-30

通过对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(); //使之能够与服务器断开连接

为Botton3的OnClick事件编写代码,当点击它时可以删除邮件:

NMPOP31-〉DeleteMailMessage(StrToInt(Edit5-〉Text));

为Botton4的OnClick事件编写代码,当点击它时显示整个邮件:

NMPOP31-〉GetMailMessage(StrToInt(Edit5-〉Text));

Edit6-〉Text = NMPOP31-〉MailMessage-〉From; //通过MailMessage的From属性得到发信人

Edit7-〉Text = NMPOP31-〉MailMessage-〉Subject; //通过MailMessage的Subjecet属性得到主题

Edit9-〉Text = NMPOP31-〉MailMessage-〉MessageId; //通过MailMessage的MessageIds属性得到Id

Memo2-〉Lines-〉Assign(NMPOP31-〉MailMessage-〉Head);

Memo1-〉Lines-〉Assign(NMPOP31-〉MailMessage-〉Body);

if (NMPOP31-〉MailMessage-〉Attachments-〉Text != ″″)

ShowMessage(″Attachments:\n″+NMPOP31-〉MailMessage-〉Attachments-〉Text);

为Botton5的OnClick事件编写代码,点击它时将在Memo中显示邮件的概要信息:

NMPOP31-〉GetSummary(StrToInt(Edit5-〉Text));

Edit6-〉Text = NMPOP31-〉Summary-〉From;

Edit7-〉Text = NMPOP31-〉Summary-〉Subject;

Edit8-〉Text = IntToStr(NMPOP31-〉Summary-〉Bytes);

Edit9-〉Text = NMPOP31-〉Summary-〉MessageId;

为Botton6的

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

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号