VB 发送邮件
Reply方法：响应一个消息。将当前索引的消息复制到构成缓冲区中，并将RE：加入标题行的开始，同时将MsgIndex属性设置为－1。
Delete方法：删除一个消息、收件人或附件。
Compose方法：构成一条消息。
Fetch方法：由收件箱中选择的消息创建一个消息集合。
三.应用实例
★应用实例一:用VB 5.0的MAPI控件收发邮件。
1. 插入MAPI控件的方法:
在VB 5.0主菜单的“工程”项中选择“部件(0)”，在弹出的控件栏中，双击“Microsoft MAPI Control 5.0”项，按“确定”键返回。那么，在窗体工具箱中就有了上述控件。
2.建立含有如下控件的窗体：
控件 NAME CAPTION
主窗体 frmMail 用VB 5.0的MAPI控件收发邮件
MAPISession控件 MailSess
MAPIMessage控件 MailMess
命令按钮 cmdNewMail 发件箱
命令按钮 cmdGetMail 收件箱
命令按钮 cmdExit 退出
子窗体 frmNewMail 发件箱
标签 label1 收件人:
标签 label2 主题:
文本框 TEXT1 ''输入收件人的电子邮件地址
文本框 TEXT2 ''输入文本的主题
文本框 TEXT3 ''输入文本内容
命令按钮 MailSend 发送邮件
子窗体 frmGetMail 收件箱
标签 label1 发件人:
标签 label2 主题:
文本框 TEXT1 ''发件人的电子邮件地址
文本框 TEXT2 ''发来的文本主题
文本框 TEXT3 ''发来的文本内容
命令按钮 cmdPrevious 向前
命令按钮 cmdNext 向后
输入主窗体“发件箱”按钮的程序代码:
Private Sub cmdNewMail_Click()
frmNewMail.Show
End Sub
输入主窗体“收件箱”按钮的程序代码:
Private Sub cmdGetMail_Click()
frmGetMail.Show
End Sub
输入主窗体“退出”按钮的程序代码:
Private Sub cmdExit_Click()
frmMail.MailSess.SignOff ''断开连接
End
End Sub
输入frmNewMail子窗体“发送邮件”按钮的程序代码:
Private Sub MailSend_Click()
frmMail.MailSess.SignOn ''建立连接
frmMail.MailMess.SessionID = frmMail.MailSess.SessionID
frmMail.MailMess.MsgIndex = -1
frmMail.MailMess.RecipDisplayName = Text1.Text
frmMail.MailMess.MsgSubject = Text2.Text
frmMail.MailMess.MsgNoteText = Text3.Text
frmMail.MailMess.Send (False)
frmMail.MailSess.SignOff
End Sub
输入frmGetMail子窗体装入的程序代码:
Private Sub Form_Load()
Dim mailIndex, mailCounts As Integer
frmMail.MailSess.SignOn
frmMail.MailMess.SessionID = frmMail.MailSess.SessionID
frmMail.MailMess.FetchSorted = True
frmMail.MailMess.FetchUnreadOnly = True
frmMail.MailMess.Action = 1
mailCounts = frmMail.MailMess.MsgCount
If mailCounts = 0 Then
Text3.Text = "收件箱中没有邮件！"
frmGetMail.cmdPrevious.Enabled = False
frmGetMail.cmdNext.Enabled = False
Else
frmGetMail.MailMess.MsgIndex = 0
frmGetMail.Text1.Text = frmMail.MailMess.MsgOrigAddress
frmGetMail.Text2.Text = frmMail.MailMess.MsgSubject
frmGetMail.Text3.Text = frmMail.MailMess.MsgNoteText
End If
End Sub
输入frmGetMa