上一頁
在屏幕的Form上加入三個Button control，logon、logoff與send，分別將Caption 改為log on、log off、send。
(Button)
Name Caption
--------------------------------------------------------
logon(執行登入命令) logon
logoff(執行登出命令) logoff
send(執行傳出信件命令) send
在 logon_Click()中加入以下程序代碼，這個動作是使我們登錄到mail server。
MAPIS1.SignOn
MAPIM1.SessionID = MS1.SessionID
MsgBox "your id is" + Str(MS1.SessionID)
MS1.SignOn是作登錄的動作。在登錄時，因為已經將MAPIm1 control的download mail屬性設置為TRUE，所以可以在屏幕上看到message box顯示系統正在download mail。登錄成功后，系統會傳回一個sessionID，將該ID填入MAPIM1的SessionID中，這樣就可以利用這條session來傳送E-mail。
在 logoff_Click()中加入以下程序代碼，這個動作是使我們離開mail
server。
MAPIS1.SignOff
在 send_Click()中加入以下程序代碼，這個動作是使我們發送email。
MAPIM1.Compose
MAPIM1.RecipDisplayName = addr.text
MAPIM1.AddressResolveUI = True
MAPIM1.MsgSubject = subject.text
MAPIM1.MsgNoteText = content.text
MAPIM1.Send
MsgBox "you successful"
Compose命令的主要目的，是使您可以改變RecipDisplayName的內容，將所需傳送的E-mail地址、主題、文章內容分別填入RecipDisplayName、MsgSubject、MsgNoteText，接著用send命令發送。
Step 3：用IE 3.0 Mail程序測試程序
執行上面設計的email-send程序。在subject textbox中填入"發信測試"，在address textbox中填入[email protected]，在content textbox中輸入要傳送的內容："大家好！這是發信測試"，接著按傳送。這樣信件就發送出去了！
執行IE 3.0選擇接收信件，在mail選項中選擇read mail。我們會在inbox中看到一封標題為"發信測試"的信件，接著我們看看它的內容，沒錯！那就是我們剛寄出的測試信。
E-mail接收部分
Step 1：程序設計
在File選項中選擇New Proje ⒁桓魴碌墓こ獺Ｔ諂聊簧峽吹叫磯嘌∠睿?ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control等，這時要選Standard.EXE。
接著在Project下，選擇Property屬性選項；在general選項下，將Project Name改為 email-get，并將FORM名稱及Caption更改為 email-get。
在屏幕的Form上加入一個MAPImessage control，取名為MAPIm1；加入一個 MAPIsession control，取名為MAPIs1；加入三個Textbox control，分別取名為 subject、content、indexno， 將其Caption改為mail-subject、mail-content、 indexno；并在TextBox前各加入一個Label control，將Caption分別改為subject、 content、indexno。
將MAPIm1的各項property設置如下：
download mail=TRUE
logoUI=TRUE
newsession=FALSE
username="test"
這些設置原理如同設計發送mail程序部分。接著，在屏幕的Form上加入一個Button control get-mail，將Caption改為get mail。如同發送mail 程序部分和mail server建立一條session。
在 get-mail_Click() 中加入以下程序代碼，這個動作是使我們接收email。
MAPIM1.Fetch
Form1.Caption=MAPIM1. MsgCount
MAPIM1.MsgIndex=CINT(indexno.text)
subjec.Text = MM1.MsgNoteText
content.Text = MAPI1.MsgSubject
Fetch命令，是將信件抓到系統存貯器的inbuffer中。我們將信件抓回來后，可以由 MsgCount property知道信件數量。接著可以用MsgIndex設置要看哪一封信件的內容、標題。
Stept 2：測試mail接收程序
首先用任何一種mail程序，任意書寫幾封信到mail server。在Form1的Caption中，我們會看到所接收的信件的數量。 執行上面設計的email-get程序，在indexno textbox中填入1。接著按get mail Button，這樣信件內容及標題就會顯示在content、subject兩個TextBox中。恭喜您成功了！