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

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服务器名,你就可以接收到你的电子邮件了,怎么样?试一试吧。

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