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)行通過。