在VB 6菜單上點(diǎn)擊“工程/部件...”，彈出“部件”對話框，在對話框的控件卡中選中Microsoft MAPI Controls 6.0控件，點(diǎn)擊“確定”按鈕后，工具箱上增加了MAPIMessage和MAPISession兩個圖標(biāo)。
在Form上加入一個MAPIMessage控件，取名為MAPIMessage1；再加入一個MAPISession控件，取名為MAPISession1；再加入三個TextBox控件，分別取名為Subject、Content和Indexno， 將它們的Caption分別改為郵件標(biāo)題、郵件內(nèi)容和郵件索引號；在TextBox前各加入一個Label控件，將Caption分別改為標(biāo)題、內(nèi)容和索引號。
將MAPIMessage1的各項(xiàng)屬性設(shè)置如下：
●DownLoadMail=TRUE；
●LogonUI=TRUE；
●NewSession=FALSE；
●UserName=“接收E�瞞ail”。
在Form上加入一個按鈕（Getmail），將其Caption改為取郵件。
在 Getmail_Click()事件中加入以下程序代碼，程序的功能是使我們接收E�瞞ail。
MAPIMessage1.Fetch
Form1.Caption=MAPIMessage1.MsgCount
MAPIMessage1.MsgIndex=CINT(Indexno.text)
Subject.Text = MAPIMessage1.MsgNoteText
Content.Text = MAPIMessage1.MsgSubject
其中Fetch命令用來將信件抓到系統(tǒng)存儲器的inbuffer中。我們將信件抓回來后，可以通過MsgCount屬性知道信件數(shù)量,接著可以用MsgIndex設(shè)置要看哪一封信件的內(nèi)容、標(biāo)題等。
設(shè)計E-mail的發(fā)送部分
1．參數(shù)設(shè)置
進(jìn)入Exchange系統(tǒng)，選擇新增設(shè)置文件后屏幕上會顯示所需要的信息服務(wù)，選擇Internet Mail。
把設(shè)置文件的名稱設(shè)為test。屏幕會顯示兩個選項(xiàng)，您可以選擇以Modem方式或以Network 方式連接。筆者所用的是Modem方式；假若您是使Internet專線，就要選擇Network 方式。
選擇Modem方式后，Exchange會要求我們輸入郵件服務(wù)器的IP地址。接著將Transform Message的模式設(shè)置為Automatic，這樣當(dāng)我們連接到郵件服務(wù)器時，新的信息會自動下載到本地端。接下來，將您所使用的E�瞞ail地址、全名、口令和下載路徑等一一設(shè)置好。
2．程序設(shè)計
在Form上加入一個MAPIMessage控件，取名為MAPIMessage1；加入一個MAPISession控件，取名為MAPISession1；并加入三個TextBox控件，取名為Subject、Content和Addr。并在三個TextBox前各加入一個Label，將Caption分別改為標(biāo)題、內(nèi)容和地址。
將MAPIMessage1的各項(xiàng)屬性設(shè)置如下：
●DownLoadMail=TRUE；
●LogonUI=TRUE；
●NewSession=FALSE；
●UserName=“發(fā)送E�瞞ail”。
這里將DownLoadMail設(shè)置為TRUE，當(dāng)程序和郵件服務(wù)器第一次連接時，會將新的郵件下載到本地端。將LogonUI設(shè)置為TRUE，則當(dāng)您程序中Logon名稱輸入錯誤時，系統(tǒng)會顯示一個Message Box來讓您輸入正確的名稱。
由于這個程序僅使用一個Session，所以可將NewSession設(shè)置成FALSE。如果您有許多Session要建立的話，則將它設(shè)置成TRUE。UserName中所填的，是我們在Exchange中所新增的設(shè)置文件名稱，如果沒有填內(nèi)容的話，系統(tǒng)將會顯示一些Message Box請您輸入文件。
在Form上加入三個按鈕，Logon、Logoff和Send，并分別將它們的Caption改為登錄、離網(wǎng)和發(fā)送。
在 Logon_Click()事件中加入以下程序代碼，程序的功能是使我們登錄到郵件服務(wù)器：
MAPISession1.SignOn
MAPIMessage1.SessionID=MAPISession1.SessionID
sgBox “Your ID is” ＋ Str
(MAPISession1.SessionID)
其中MAPISession1.SignOn是作登錄的動作。在登錄時，因?yàn)橐呀?jīng)將MAPIMessage1控件的DownLoadMail屬性設(shè)置為TRUE，所以可以在屏幕上看到Message Box，顯示系統(tǒng)正在下載郵件。登錄成功后，系統(tǒng)會傳回一個SessionID，將該ID填入MAPIMessage1的SessionID中，這樣就可以利用該Session來傳送E�瞞ail，同時用Message Box通知用戶發(fā)送成功。
在Logoff_Click()事件中加入以下程序代碼，程序的功能是使我們離開郵件服務(wù)器：
MAPIS1.SignOff
在Send_Click()事件中加入以下程序代碼，程序的功能是使我們發(fā)送E�瞞ail：
MAPIMessage1.Compose
MAPIMessage1.RecipDisplayName = Addr.text
MAPIMessage1.AddressResolveUI = TRUE
MAPIMessage1.MsgSubject = Subject.text
MAPIMessage1.MsgNoteText = Content.text
MAPIMessage1.Send
MsgBox “您發(fā)送成功啦！”
其中Compose命令的主要目的是使您可以改變RecipDisplayName的內(nèi)容，將所需傳送的E�瞞ail地址、主題和文章內(nèi)容分別填入RecipDisplayName、MsgSubject和MsgNoteText，接著用Send命令發(fā)送出去。