★应用实例二:用VFP 5.0的MAPI控件收发邮件。
　　1. 插入MAPI控件的方法:
　　在VFP 5.0主菜单的“工具”项中选择“选项”,在弹出的控件栏中,双击“Microsoft MAPI Control 5.0”项，那么，在窗体工具箱中就有了上述控件。
　　2.建立含有如下控件的窗体：
　　控件 NAME CAPTION
　　窗体 frmMail 用VFP 5.0的MAPI控件收发邮件
　　MAPISession控件 MailSess
　　MAPIMessage控件 MailMess
　　命令按钮 command1 发件箱
　　命令按钮 command2 收件箱
　　命令按钮 command3 退出
　　输入“发件箱”按钮单击事件的程序代码:
　　thisform.MailSess.SignOn
　　thisform.MailMess.SessionID = thisform.MailSess.SessionID
　　thisform.MailMess.MsgIndex = -1
　　thisform.MailMess.RecipDisplayName = "zjport@public.jsinfo.com.cn"
　　thisform.MailMess.MsgSubject = "信件"
　　thisform.MailMess.MsgNoteText = "请给我发邮件!"
　　thisform.MailMess.Send (.F.)
　　thisform.MailSess.SignOff
　　输入“收件箱”按钮单击事件的程序代码:
　　thisform.MailSess.SignOn
　　thisform.MailMess.SessionID = thisform.MailSess.SessionID
　　thisform.MailMess.FetchSorted = .T.
　　thisform.MailMess.FetchUnreadOnly = .T.
　　thisform.MailMess.Action = 1
　　xx='
　　for mm=0 to thisform.MailMess.MsgCount-1
　　thisform.MailMess.MsgIndex = mm
　　xx=xx+thisform.MailMess.MsgNoteText+chr(13)+chr(10)
　　endf
　　thisform.MailSess.SignOff
　　输入“退出”按钮的程序代码:
　　thisform.MailSess.SignOff
　　release thisform
　　上述程序只是给出用VB 5.0和VFP 5.0开发E-mail程序的简单案例，用户可以结合自己的实际情况，将上述程序修改、完善后，加入到自己的应用系统中去，使应用系统的功能更强大。
　　以上程序在同创P/200、中文WINDOWS 95、WINDOWS NT 4.0、Visual Foxpro 5.0、Visual Basic 5.0软、硬件环境中运行并通过。

上一页234下一页