三.应用实例
　　★应用实例一:用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

上一页1234下一页