文档介绍：用 VB 收发电子邮件
发送和接收电子邮件，对于某些执行特殊任务的应用程序而言，是一个十分有 用的功能。例如，一个监视网络服务器资源使用情况的工具软件，当它发现服务器 的 资源使用已经接近事先设定的临界状态时,便可以向系统管理员发送一封告
2•将缺省窗体Forml的Caption属性设置为,，接收邮件”。
3•将MAPI控件加入VB工具框。
4•在Forml中加入一个MAPI会话控件MAPISessionl和一个MAPI消息控件 MAPIMessag eslo
5•在Forml中加入三个标签控件和一个文本框控件，将三个标签控件的
Name 属性分别设置为 IbI MsgDateReceived、IbI MsgOrigDisplayNa me、
IbIMsgSubject,将文本框控件的Name属性设置为txtMsgNoteText,并将标签控件的 Caption 属性和文本框控件的 Text 属性的内容清空。这四个控件将分别用于 显示邮件 的日期、发件人、主题和内容。
6•将 txtMsgNoteText 控件的 Locked 属性和 Multiline 属性设置为 True,ScrollBars 属性设置为 2 VerticaL
7•在Forml中再加入四个标签控件用于标注上述四个控件，将它们的Caption属 性分别设置为”日期”、“发件人”、”主题”、”内容”。
8•在Forml中加入一个标签控件，将其Name属性设置为 lblMsgCount,Caption属性设置为•第0封邮件，总计0封邮件”。该控件用于显示 接收的邮件总数以及当前正在处理第几封邮件。
9•在Forml中加入三个命令按钮控件，将它们的Name属性分别设置为 cmdPrevious、cmdNext、cmdClose'Caption 属性分别设置为”上一封"、”下一 封 ”、咲闭“。
编写一个窗体级子例程 FetchNewMail:
Public Sub FetchNewMail()
nreadOnly = True
MAPI Messagesl. Fetch
End Sub
编写一个窗体级了例程 DisplayMessage:
Public Sub DisplayMessage()
= ”第” & _
LTrim(Str( + 1)) & ”封邮件，总计” &_ LTrim(Str()) & 11 封邮件 11
= MAPIMessagesl.
MsgDateReceived xt M sg N oteT ext .T ext = MAPIMessagesl.
MsgNoteText
二
二 MAPIMessagesl.
MsgSubject
End Sub
12・将下列代码加入Forml的Form_Load事件:
Private Sub Form_Load()
= MAPISessionl.
SessionlD
FetchNewMail
DisplayMessage
End Sub
13・将下列代码加入cmdPrevious的Click事件:
Private Sub cmdPrevious_Click()
If > 0 Then
MAPI Messagesl. Msgindex =
MAPI 1
DisplayMessage
Else
Beep
End If
End Sub
14•将下列代码加入cmdNext的Click事件：
Private Sub cmdNext_Click()
If <
-1 Then
MAPI =
+ 1
DisplayMessage
Else
Beep
End If
End Sub
25・将下列代码加入cmdClose的Click事件：
Private Sub cmdClose_Cl