自己的郵件自己發(fā)

2019-11-17 05:49:42

字體：大中小

供稿：網(wǎng)友

長時(shí)間使用OutlookEXPRess收發(fā)電子郵件的軟件，你是不是也有點(diǎn)煩？是不是像我一樣，也想什么時(shí)候自己動手編寫一個(gè)屬于自己收發(fā)電子郵件的軟件。假如是這樣，那么隨我來吧！其實(shí)在VB中，應(yīng)用程序可以通過調(diào)用微軟公司的MAPI（MessagingapplicationProgrammingInterface）消息應(yīng)用程序編程接口，輕松實(shí)現(xiàn)收發(fā)電子郵件的功能。

　　VB中有兩個(gè)郵件收發(fā)功能的核心控件：MAPI會話和MAPI消息控件。MAPI會話控件用于建立和控制一個(gè)MicrosoftMail會話，MAPI消息控件用于創(chuàng)建和收發(fā)郵件消息。此外，程序必須運(yùn)行在采用MAPI的消息系統(tǒng)（如MicrosoftExchange、Outlook等）的環(huán)境中。

窗體設(shè)計(jì)

　　打開VB，在Form1中加入5個(gè)文本框，7個(gè)命令按鈕，同時(shí)通過添加部件的方法將MAPI控件加入窗體中（如圖1）。各對象的屬性設(shè)置如圖2。

<>

圖2對象屬性設(shè)置
　　編寫代碼　　　　PrivateSubCommand1_Click()　　　　IfVal(Text2.Text)<=0ThenExitSub　　　　Text2.Text=Val(Text2.Text)-1　　　　Callxs()　　　　EndSub　　　　PrivateSubCommand2_Click()　　　　IfVal(Text2.Text)>=Val(Text1.Text)-1ThenExitSub　　　　Text2.Text=Val(Text2.Text) 1　　　　Callxs()　　　　EndSub　　　　PrivateSubCommand3_Click()　　　　MAPIMessages1.sessionID=MAPISession1.SessionID　　　　MAPIMessages1.MsgIndex=-1′建立發(fā)送緩沖區(qū)　　　　MAPIMessages1.Compose′寫新郵件　　　　MAPIMessages1.SendTrue　　　　EndSub　　　　PrivateSubxs()　　　　MAPIMessages1.MsgIndex=Val(Text2.Text)　′指定電子郵件　　　　Text3.Text=MAPIMessages1.MsgSubject　　′電子郵件主題　　　　Text4.Text=MAPIMessages1.MsgOrigDisplayName　　　　　　′電子郵件發(fā)信人姓名　　　　Text5.Text=MAPIMessages1.MsgNoteText　′電子郵件全文　　　　EndSub　　　　PrivateSubCommand4_Click()　　　　MAPIMessages1.SessionID=MAPISession1.SessionID　　　　MAPIMessages1.MsgIndex=Val(Text2.Text)　　　　MAPIMessages1.Reply　　　　MAPIMessages1.SendTrue　　　　EndSub　　　　PrivateSubCommand5_Click()　　　　MAPISession1.SignOff　　　　MAPISession1.DownLoadMail=True　　　　MAPISession1.SignOn　　　　MAPIMessages1.SessionID=MAPISession1.SessionID　　　　MAPIMessages1.FetchUnreadOnly=False　　　　MAPIMessages1.Fetch　　　　Text1.Text=MAPIMessages1.MsgCount　　　　Text2.Text=0　　　　EndSub　　　　PrivateSubCommand6_Click()　　　　OnErrorGoToerr:　　　　MAPIMessages1.Show　　　　err:　　　　EndSub　　　　PrivateSubForm_Activate()　　　　Callxs　　　　EndSub　　　　PrivateSubForm_Load()　′系統(tǒng)初始化　　　　MAPISession1.DownLoadMail=False　　　　MAPISession1.SignOn　′　處理開始
　　　　MAPIMessages1.SessionID=MAPISession1.SessionID　　　　MAPIMessages1.FetchUnreadOnly=False　　　　MAPIMessages1.Fetch　　　　Text1.Text=MAPIMessages1.MsgCount　　　　Text2.Text=0　　　　EndSub　　　　PrivateSubCommand7_Click()　　　　MAPISession1.SignOff　　′　處理結(jié)束　　　　End　　　　EndSub　　好了，代碼終于寫完了，運(yùn)行一下，看看效果，還不錯(cuò)吧！當(dāng)然，假如你想更完善一些，就需要你自己努力了。本程序在WindowsXP下運(yùn)行通過。->

上一篇：集合類：VBA集合對象的安全包裝

下一篇：COMDCOM對象中通過Variant傳遞數(shù)組