郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn)-專業(yè)實(shí)習(xí)報(bào)告 PPT課件

1 計(jì)算機(jī)網(wǎng)絡(luò)專業(yè)實(shí)習(xí) 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 2 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 前言電子郵件服務(wù)作為Internet上應(yīng)用最多和最廣的服務(wù)項(xiàng)目得到了非常廣泛的應(yīng)用 在網(wǎng)絡(luò)應(yīng)用中也起到非常重要的作用 如同其他的網(wǎng)絡(luò)服務(wù) 電子郵件系統(tǒng)也有其使用的傳輸協(xié)議 包括SMTP SimpleMailTransferProtocol 簡(jiǎn)單郵件傳輸協(xié)議 3 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) POP PostOfficeProtocol 郵局協(xié)議 和IMAP InternetMessageAccessProtocal 消息訪問協(xié)議 等 這些協(xié)議應(yīng)用于電子郵件的發(fā)送和接收 一些郵件處理軟件如OutLookExpress和FoxMail等就是按照SMTP和POP3協(xié)議結(jié)合WindowsSockets套接字進(jìn)行設(shè)計(jì)來收發(fā)郵件的 4 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 設(shè)計(jì)內(nèi)容本設(shè)計(jì)的內(nèi)容是利用SMTP POP3 和IMAP協(xié)議編寫一電子郵件程序 實(shí)現(xiàn)電子郵件的撰寫 發(fā)送 接收 瀏覽等基本功能 5 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 設(shè)計(jì)環(huán)境本程序的設(shè)計(jì)是通過裝有VisualBasic2005 NET個(gè)人PC機(jī) 6 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 設(shè)計(jì)原理在VB中編寫電子郵件程序需要通過調(diào)用微軟公司的MAPI MessagingApplicationProgrammingInterface 消息應(yīng)用程序編程接口 這需要借助兩個(gè)實(shí)現(xiàn)電子郵件收發(fā)功能的核心控件 MAPI會(huì)話控件和MAPI消息控件 7 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) MAPI會(huì)話控件用于建立和控制一個(gè)MicrosoftMail會(huì)話 MAPI消息控件用于創(chuàng)建和收發(fā)郵件消息 此外 Windows系統(tǒng)中必須要有遵從MAPI的郵件系統(tǒng) 比如Exchange Outlook等軟件 而還要進(jìn)行一番設(shè)置 確保郵件系統(tǒng)可以正常使用 8 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 郵件接收程序比郵件發(fā)送程序要復(fù)雜一些 這個(gè)程序首先需要使用MAPI消息控件的Fetch方法讀取郵件 這個(gè)過程將把用戶收件箱中所有未讀郵件全部裝入MAPI消息控件中 接著 檢查MAPI消息控件的MsgCount屬性以確定通過Fetch方法讀取的郵件的總數(shù) 9 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 然后可以通過設(shè)置MAPI消息控件的MsgIndex屬性來指定具體需要處理哪一封郵件 需要說明的是 MsgIndex屬性值的計(jì)數(shù)是從0開始的 也就是說 第一封郵件的索引號(hào)是0 第二封郵件的索引號(hào)是1 依次類推 10 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 具體實(shí)現(xiàn)過程1 新建一個(gè)VB項(xiàng)目 將缺省窗體Form1的 name 屬性設(shè)置為 接收郵件 2 在Form1中加入一個(gè)MAPI會(huì)話控件MAPISession1和一個(gè)MAPI消息控件MAPIMessages1 11 3 在Form1中加入三個(gè)Label控件和一個(gè)TextBox控件 將三個(gè)標(biāo)簽控件的名稱屬性分別設(shè)置為 lblMsgDateReceived lblMsgOrigDisplayName 和 IblMsgSubject 將TextBox控件的名稱屬性設(shè)置為 txtMsgNoteText 并將標(biāo)簽控件的 name 屬性和文本框控件的Text屬性的內(nèi)容清空 這四個(gè)控件將分別用于顯示郵件的日期 發(fā)件人 主題和內(nèi)容 12 4 將txtMsgNoteText控件的Locked屬性和Multiline屬性設(shè)置為 True ScrollBars屬性設(shè)置為 2 Vertical 5 在Form1中再加入四個(gè)Label控件用于標(biāo)注上述四個(gè)控件 將它們的 name 屬性分別設(shè)置為 日期 發(fā)件人 主題 和 內(nèi)容 13 6 在Form1中加入一個(gè)Label控件 將其名稱屬性設(shè)置為 lblMsgCount name 屬性設(shè)置為 第0封郵件 總計(jì)0封郵件 這個(gè)控件用于顯示接收的郵件總數(shù)以及當(dāng)前正在處理第幾封郵件 7 在Form1中加入三個(gè)CommandButton控件 將它們的名稱屬性分別設(shè)置為 cmdPrevious cmdNext 和 cmdClose name 屬性分別設(shè)置為 上一封 下一封 和 關(guān)閉 14 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 代碼實(shí)現(xiàn)過程1 cmdPrevious的Click事件代碼 PrivateSubcmdPrevious IfMAPIMessages1 MsgIndex 0ThenMAPIMessages1 MsgIndex MAPIMessages1 MsgIndex 1 當(dāng)收取信件超過1封的時(shí)候 通過 上一封 按鈕查看前面的信件DisplayMessageElseBeepEndIfEndSub 15 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 2 cmdNext的Click事件代碼 PrivateSubcmdNext Click IfMAPIMessages1 MsgIndex MAPIMessages1 MsgCount 1ThenMAPIMessages1 MsgIndex MAPIMessages1 MsgIndex 1 當(dāng)收取信件超過1封的時(shí)候 通過 下一封 按鈕查看后面的信件DisplayMessageElseBeepEndIfEndSub 16 郵件接收程序的設(shè)計(jì)與實(shí)現(xiàn) 3 cmdClose的Click事件代碼 PrivateSubcmdClose Click