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′建立发送缓冲区

　　　　mapimessages1.compose′写新邮件

　　　　mapimessages1.sendtrue

　　　　endsub

　　　　privatesubxs()

　　　　mapimessages1.msgindex=val(text2.text)　′指定电子邮件

　　　　text3.text=mapimessages1.msgsubject　　′电子邮件主题

　　　　text4.text=mapimessages1.msgorigdisplayname

　　　　　　′电子邮件发信人姓名

　　　　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()　′系统初始化

　　　　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　　′　处理结束

　　　　end

　　　　endsub

　　好了，代码终于写完了，运行一下，看看效果，还不错吧！当然，如果你想更完善一些，就需要你自己努力了。本程序在windowsxp下运行通过。