邮件接收程序的设计与实现-专业实习报告 PPT课件

1 计算机网络专业实习 邮件接收程序的设计与实现 2 邮件接收程序的设计与实现 前言电子邮件服务作为Internet上应用最多和最广的服务项目得到了非常广泛的应用 在网络应用中也起到非常重要的作用 如同其他的网络服务 电子邮件系统也有其使用的传输协议 包括SMTP SimpleMailTransferProtocol 简单邮件传输协议 3 邮件接收程序的设计与实现 POP PostOfficeProtocol 邮局协议 和IMAP InternetMessageAccessProtocal 消息访问协议 等 这些协议应用于电子邮件的发送和接收 一些邮件处理软件如OutLookExpress和FoxMail等就是按照SMTP和POP3协议结合WindowsSockets套接字进行设计来收发邮件的 4 邮件接收程序的设计与实现 设计内容本设计的内容是利用SMTP POP3 和IMAP协议编写一电子邮件程序 实现电子邮件的撰写 发送 接收 浏览等基本功能 5 邮件接收程序的设计与实现 设计环境本程序的设计是通过装有VisualBasic2005 NET个人PC机 6 邮件接收程序的设计与实现 设计原理在VB中编写电子邮件程序需要通过调用微软公司的MAPI MessagingApplicationProgrammingInterface 消息应用程序编程接口 这需要借助两个实现电子邮件收发功能的核心控件 MAPI会话控件和MAPI消息控件 7 邮件接收程序的设计与实现 MAPI会话控件用于建立和控制一个MicrosoftMail会话 MAPI消息控件用于创建和收发邮件消息 此外 Windows系统中必须要有遵从MAPI的邮件系统 比如Exchange Outlook等软件 而还要进行一番设置 确保邮件系统可以正常使用 8 邮件接收程序的设计与实现 邮件接收程序比邮件发送程序要复杂一些 这个程序首先需要使用MAPI消息控件的Fetch方法读取邮件 这个过程将把用户收件箱中所有未读邮件全部装入MAPI消息控件中 接着 检查MAPI消息控件的MsgCount属性以确定通过Fetch方法读取的邮件的总数 9 邮件接收程序的设计与实现 然后可以通过设置MAPI消息控件的MsgIndex属性来指定具体需要处理哪一封邮件 需要说明的是 MsgIndex属性值的计数是从0开始的 也就是说 第一封邮件的索引号是0 第二封邮件的索引号是1 依次类推 10 邮件接收程序的设计与实现 具体实现过程1 新建一个VB项目 将缺省窗体Form1的 name 属性设置为 接收邮件 2 在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1 11 3 在Form1中加入三个Label控件和一个TextBox控件 将三个标签控件的名称属性分别设置为 lblMsgDateReceived lblMsgOrigDisplayName 和 IblMsgSubject 将TextBox控件的名称属性设置为 txtMsgNoteText 并将标签控件的 name 属性和文本框控件的Text属性的内容清空 这四个控件将分别用于显示邮件的日期 发件人 主题和内容 12 4 将txtMsgNoteText控件的Locked属性和Multiline属性设置为 True ScrollBars属性设置为 2 Vertical 5 在Form1中再加入四个Label控件用于标注上述四个控件 将它们的 name 属性分别设置为 日期 发件人 主题 和 内容 13 6 在Form1中加入一个Label控件 将其名称属性设置为 lblMsgCount name 属性设置为 第0封邮件 总计0封邮件 这个控件用于显示接收的邮件总数以及当前正在处理第几封邮件 7 在Form1中加入三个CommandButton控件 将它们的名称属性分别设置为 cmdPrevious cmdNext 和 cmdClose name 属性分别设置为 上一封 下一封 和 关闭 14 邮件接收程序的设计与实现 代码实现过程1 cmdPrevious的Click事件代码 PrivateSubcmdPrevious IfMAPIMessages1 MsgIndex 0ThenMAPIMessages1 MsgIndex MAPIMessages1 MsgIndex 1 当收取信件超过1封的时候 通过 上一封 按钮查看前面的信件DisplayMessageElseBeepEndIfEndSub 15 邮件接收程序的设计与实现 2 cmdNext的Click事件代码 PrivateSubcmdNext Click IfMAPIMessages1 MsgIndex MAPIMessages1 MsgCount 1ThenMAPIMessages1 MsgIndex MAPIMessages1 MsgIndex 1 当收取信件超过1封的时候 通过 下一封 按钮查看后面的信件DisplayMessageElseBeepEndIfEndSub 16 邮件接收程序的设计与实现 3 cmdClose的Click事件代码 PrivateSubcmdClose Click