- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2Adobe Illustrator CS5 序列号大全
- 3picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5苹果iphone自动时间不准确的多种校正方法
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7眼萌app怎么色弱测试 眼萌app色弱测试图文说明教程
- 8百度安全卫士好用么_百度安全卫士技巧说明
- 9Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 10Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 11ipad版office如何激活? office365激活的图文说明教程
- 12最新的Adobe Illustrator CS4序列号大全
[摘要]在VB 6菜单上点击“工程/部件...”，弹出“部件”对话框，在对话框的控件卡中选中Microsoft MAPI Controls 6.0控件，点击“确定”按钮后，工具箱上增加了MAPIMessage和MAPISession两个图标。 在Form上加入一个MAPIMessage控件，取名为MAPI...
在VB 6菜单上点击“工程/部件...”，弹出“部件”对话框，在对话框的控件卡中选中Microsoft MAPI Controls 6.0控件，点击“确定”按钮后，工具箱上增加了MAPIMessage和MAPISession两个图标。 在Form上加入一个MAPIMessage控件，取名为MAPIMessage1；再加入一个MAPISession控件，取名为MAPISession1；再加入三个TextBox控件，分别取名为Subject、Content和Indexno， 将它们的Caption分别改为邮件标题、邮件内容和邮件索引号；在TextBox前各加入一个Label控件，将Caption分别改为标题、内容和索引号。
将MAPIMessage1的各项属性设置如下：
●DownLoadMail=TRUE；
●LogonUI=TRUE；
●NewSession=FALSE；
●UserName=“接收Email”。
在Form上加入一个按钮（Getmail），将其Caption改为取邮件。
在 Getmail_Click()事件中加入以下程序代码，程序的功能是使我们接收Email。
MAPIMessage1.Fetch
Form1.Caption=MAPIMessage1.MsgCount
MAPIMessage1.MsgIndex=CINT(Indexno.text)
Subject.Text = MAPIMessage1.MsgNoteText
Content.Text = MAPIMessage1.MsgSubject
其中Fetch命令用来将信件抓到系统存储器的inbuffer中。我们将信件抓回来后，可以通过MsgCount属性知道信件数量,接着可以用MsgIndex设置要看哪一封信件的内容、标题等。
设计E-mail的发送部分
1．参数设置
进入Exchange系统，选择新增设置文件后屏幕上会显示所需要的信息服务，选择Internet Mail。
把设置文件的名称设为test。屏幕会显示两个选项，您可以选择以Modem方式或以Network 方式连接。笔者所用的是Modem方式；假若您是使Internet专线，就要选择Network 方式。
选择Modem方式后，Exchange会要求我们输入邮件服务器的IP地址。接着将Transform Message的模式设置为Automatic，这样当我们连接到邮件服务器时，新的信息会自动下载到本地端。接下来，将您所使用的Email地址、全名、口令和下载路径等一一设置好。
2．程序设计
在Form上加入一个MAPIMessage控件，取名为MAPIMessage1；加入一个MAPISession控件，取名为MAPISession1；并加入三个TextBox控件，取名为Subject、Content和Addr。并在三个TextBox前各加入一个Label，将Caption分别改为标题、内容和地址。
将MAPIMessage1的各项属性设置如下：
●DownLoadMail=TRUE；
●LogonUI=TRUE；
●NewSession=FALSE；
●UserName=“发送Email”。
这里将DownLoadMail设置为TRUE，当程序和邮件服务器第一次连接时，会将新的邮件下载到本地端。将LogonUI设置为TRUE，则当您程序中Logon名称输入错误时，系统会显示一个Message Box来让您输入正确的名称。
由于这个程序仅使用一个Session，所以可将NewSession设置成FALSE。如果您有许多Session要建立的话，则将它设置成TRUE。UserName中所填的，是我们在Exchange中所新增的设置文件名称，如果没有填内容的话，系统将会显示一些Message Box请您输入文件。
在Form上加入三个按钮，Logon、Logoff和Send，并分别将它们的Caption改为登录、离网和发送。
在 Logon_Click()事件中加入以下程序代码，程序的功能是使我们登录到邮件服务器：
MAPISession1.SignOn
MAPIMessage1.SessionID=MAPISession1.SessionID
sgBox “Your ID is” ＋ Str
(MAPISession1.SessionID)
其中MAPISession1.SignOn是作登录的动作。在登录时，因为已经将MAPIMessage1控件的DownLoadMail属性设置为TRUE，所以可以在屏幕上看到Message Box，显示系统正在下载邮件。登录成功后，系统会传回一个SessionID，将该ID填入MAPIMessage1的SessionID中，这样就可以利用该Session来传送Email，同时用Message Box通知用户发送成功。
在Logoff_Click()事件中加入以下程序代码，程序的功能是使我们离开邮件服务器：
MAPIS1.SignOff
在Send_Click()事件中加入以下程序代码，程序的功能是使我们发送Email：
MAPIMessage1.Compose
MAPIMessage1.RecipDisplayName = Addr.text
MAPIMessage1.AddressResolveUI = TRUE
MAPIMessage1.MsgSubject = Subject.text
MAPIMessage1.MsgNoteText = Content.text
MAPIMessage1.Send
MsgBox “您发送成功啦！”
其中Compose命令的主要目的是使您可以改变RecipDisplayName的内容，将所需传送的Email地址、主题和文章内容分别填入RecipDisplayName、MsgSubject和MsgNoteText，接着用Send命令发送出去。
推荐资讯 总人气榜
最新教程 本月人气
- 1微卖绑定银行卡图文说明教程 新浪微卖如何绑定银行卡步骤
- 2手机yy没声音如何办？手机yy说话没声音处理方法
- 3搜狐视频免流量看世界杯方法 搜狐视频客户端免流量看世界杯详情
- 4360电视助手如何用？360电视助手tv版/手机版使用图文说明教程
- 5手机百度云如何看片？手机百度云看电影/电视剧视频图文说明教程
- 6安卓模拟器分辨率更改设置图文说明教程 bluestacks分辨率更改器使用图文说明教程
- 7游戏优化大师游戏桌面如何用？游戏桌面工具使用图文说明教程
- 8腾讯实时公交如何？好用吗？腾讯实时公交技巧评测
- 9安卓模拟器窗口大小设置方法 bluestacks屏幕大小调整步骤
- 10明星衣橱PC版下载安装图文说明教程(附明星衣橱PC版下载)
- 11西瓜影音如何？好用吗？西瓜影音技巧评测(附下载)
- 12乌鸦app如何用？乌鸦app使用方法(附下载)
- 1防范PPTV网络电视偷跑P2P流量的方法_pptv网络电视_下载之家
- 217app如何注册 17app注册方法流程
- 3Cool Edit提示：resample.xfm文件失去怎么办？
- 4爱奇艺会员号共享（更新日期：2016年9月28日）
- 5用XML与ASP完成购物车
- 6remoteview如何用？remoteview使用方法
- 7百度抢票宝验证码不显示如何办？百度抢票不显示验证码处理方法
- 8人生日历抢票如何用？人生日历抢票插件使用图文说明教程
- 9柚子相机如何用？柚子相机使用方法
- 10搜狗输入法如何设置快捷键？搜狗输入法设置快捷键图文说明教程
- 11随星播如何直播？随星播直播图文说明教程
- 12随星播如何设置？腾讯随星播设置图文说明教程
相关文章
