敬业的IT人 互联网 佚名 2008-1-3 21:14: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();　//使之能够与服务器断开连接

URl收藏 进入讨论组讨论。

　　为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的OnClick事件编写代码,点击它时将在Memo3中显示邮件列表:

　　NMPOP31－〉List(); //得到邮件的数量和大小的列表

　　为Botton7的OnClick事件编写代码,点击它时将清除Memo3中的邮件列表:

　　Memo3－〉Clear();

　　为NMPOP3的事件编写代码

　　1. 为它的OnConnect事件编写代码

　　StatusBar1－〉SimpleText = ″Connected″; //连接后在状态栏显示已连接

　　2. 为它的OnConnectionFailed事件编写代码

　　ShowMessage(″Connection Failed″);　//若连接失败则报告

　　3. 为它的OnConnectionRequired事件编写代码

　　　 AnsiString BoxCaption;
　  AnsiString BoxMsg;
　  BoxCaption = ″请求连接″;
　  BoxMsg = ″请求连接,连接吗?″;
　  if (MessageBox(0, ＆BoxMsg[1], ＆BoxCaption[1], MB_YESNO ＋ MB_ICONEXCLAMATION) == IDYES)
　　　 { handled = TRUE;
　　　　 Form1－〉Button1Click(this);
　　　 }

进入讨论组讨论。

　　4.为它的OnDisconnect事件编写代码

　　if (StatusBar1 != 0)

　　StatusBar1－〉SimpleText = ″Disconnected″; //断开连接后在状态栏显示已断开

　　5. 为它的OnFailuer事件编写代码

　　ShowMessage(″操作失败!″);

　　6. 为它的OnHostResovled事件编写代码

　　StatusBar1－〉SimpleText = ″Host Resolved″;

　　7.为它的OnInvailidHost事件编写代码

　　　AnsiString NewHost;
　 if (InputQuery(″非法主机名!″, ″请重新输入新的主机名″,NewHost))
　　 { NMPOP31－〉Host = NewHost;
　　　 handled = true;
　　 }

　　8. 为它的OnList事件编写代码

　　　 if (Msg 〈 2)
　　  { Memo3－〉Clear();
　　　  Memo3－〉Lines－〉Add(″Message Number / Message Size″);
　　　 }
　　 Memo3－〉Lines－〉Add(IntToStr(Msg)＋″/ ″＋IntToStr(Size));

　　9. 为它的OnListPacketRecvd事件编写代码

　　StatusBar1－〉SimpleText = IntToStr(NMPOP31－〉BytesRecvd)＋″ bytesof ″＋IntToStr(NMPOP31－〉BytesTotal)＋″ Received″;

　　10. 为它的OnReset事件编写代码

　　ShowMessage(″重置删除标志″);

　　11. 为它的OnRetrieveEnd事件编写代码

　　　　Form1－〉Cursor = crDefault;
　　 StatusBar1－〉SimpleText = ″恢复完成″;

　　12. 为它的OnRetrieveStart事件编写代码

　　　　Form1－〉Cursor =crHourGlass;
　　 StatusBar1－〉SimpleText = ″恢复开始″;

　　13. 为它的OnStatus事件编写代码

　　　　if (StatusBar1 != 0)
　　　 StatusBar1－〉SimpleText = Status;

　　14. 为它的OnSuccess事件编写代码

　　StatusBar1－〉SimpleText = ″操作成功″。

　　至此,我们的电子邮件程序就完成了,编译运行后,输入你的pop3服务器名,你就可以接收到你的电子邮件了,怎么样?试一试吧。

URl收藏 进入讨论组讨论。

最新文章

如何在C++Builder中使用全局变量[01-03]

C++Builder中“异形”按钮的实现[01-03]

正确使用 C++Builder组件缩写代码[01-03]

在C++Builder中编写发送图象文件程序[01-03]

用C++Builder开发ISAPI扩展应用程序[01-03]

用C++Builder实现邮件群发[01-03]

相关文章

用C++ Builder实现电子邮件群发[01-03]

怎样接收电子邮件（POP3协议简介）[01-03]

SCOUNIX基础讲座--第五讲：电子邮件[01-03]

SCO UNIX操作系统下建立电子邮件服务器[01-03]

IronPortSystems公司电子邮件安全C系列解[12-30]

保护电子邮件正常通信的措施[12-30]