说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

我用MAPI控件写了一个收发E-Mail的小程序,一运行就失去响应,请各位高手指点,不胜感激!

编辑:说三道四文库 发布时间:2017-12-16 09:05
HTML文档下载 WORD文档下载 PDF文档下载
该程序包含三个窗体,frmMsg,frmGetMsg,frmNewMsg。代码如下:

frmGetMsg:
Option Explicit

Private Sub cmdCancel_Click()
    Unload Me
    
End Sub

Private Sub cmdNext_Click()
    mailCounts = frmMsg.MAPIMessages1.MsgCount - 1
    mailIndex = frmMsg.MAPIMessages1.MsgIndex
    frmMsg.MAPIMessages1.MsgIndex = mailIndex + 1
    frmGetMsg.Text1.Text = frmMsg.MAPIMessages1.MsgOrigAddress
    frmGetMsg.Text2.Text = frmMsg.MAPIMessages1.MsgSubject
    frmGetMsg.Text3.Text = frmMsg.MAPIMessages1.MsgNoteText
    If mailIndex = mailCounts Then
        frmGetMsg.cmdNext = False
    End If
    
End Sub

Private Sub cmdPrev_Click()
    mainIndex = frmMsg.MAPIMessages1.MsgIndex
    frmMsg.MAPIMessages1.MsgIndex = mailIndex - 1
    frmGetMsg.Text1.Text = frmMsg.MAPIMessages1.MsgOrigAddress
    frmGetMsg.Text2.Text = frmMsg.MAPIMessages1.MsgSubject
    frmGetMsg.Text3.Text = frmMsg.MAPIMessages1.MsgNoteText
    If mailIndex = 0 Then
        frmGetMsg.cmdPrev.Enabled = False
    End If
    
End Sub

Private Sub Form_Load()
    Dim mainIndex, mailCounts As Integer
    frmMsg.MAPISession1.SignOn
    frmMsg.MAPIMessages1.SessionID = frmMsg.MAPISession1.SessionID
    frmMsg.MAPIMessages1.FetchSorted = True
    frmMsg.MAPIMessages1.FetchUnreadOnly = True
    frmMsg.MAPIMessages1.Action = 1
    mailCounts = frmMsg.MAPIMessages1.MsgCount
    If mailCounts = 0 Then
        Text3.Text = "收件箱中没有邮件!"
        frmGetMsg.cmdPrev = False
        frmGetMsg.cmdNext = False
    Else
        frmMsg.MAPIMessages1.MsgIndex = 0
        frmGetMsg.Text1.Text = frmMsg.MAPIMessages1.MsgOrigAddress
        frmGetMsg.Text2.Text = frmMsg.MAPIMessages1.MsgSubject
        frmGetMsg.Text3.Text = frmMsg.MAPIMessages1.MsgNoteText
    End If
    
End Sub


frmMsg:
Option Explicit

Private Sub cmdGet_Click()
    frmGetMsg.Show
    
End Sub

Private Sub cmdQuit_Click()
    frmMsg.MAPISession1.SignOff
    End
End Sub

Private Sub cmdSend_Click()
    frmNewMsg.Show
End Sub



Private Sub Form_Load()
    frmMsg.MAPISession1.SignOn
    
End Sub


frmNewMsg:
Option Explicit

Private Sub cmdSend_Click()
    frmMsg.MAPISession1.SignOn
    frmMsg.MAPIMessages1.SessionID = frmMsg.MAPISession1.SessionID
    frmMsg.MAPIMessages1.MsgIndex = -1
    frmMsg.MAPIMessages1.RecipDisplayName = Text1.Text
    frmMsg.MAPIMessages1.MsgSubject = Text2.Text
    frmMsg.MAPIMessages1.MsgNoteText = Text3.Text
    frmMsg.MAPIMessages1.Send (False)
    frmMsg.MAPISession1.SignOff
    
End Sub

难道没有人回答吗?
难道没有人回答吗?
难道没有人回答吗?
原来是VB有问题,在重装VB后,调试一切正常。
关于微软开源WinJS,开发者必须知道的5件事 告别丑陋banner条,InMobi联合开发者尝试原生广告 免费游戏开发经验谈:第一印象很重要 《近匠》小旭音乐:游戏音乐金牌匠人的练级之路 日600亿消息,月4.65亿用户——WhatsApp的Erlang世界 一周热点:Cloudera新一轮融资总额已达9亿美元 【走近院士】李未:实现云服务的有效方法是群体软件工程 大神云集 大型创客聚会2014深圳Maker Faire盛大开幕 直击Maker Faire,将精彩“一网打尽”! 电池革命:超级充电器来袭,30秒为手机充满电 风雨13载,Windows XP今起正式退役 向Facebook看齐,Twitter收购Android屏幕待机应用开发商Cover 绝对的超现实!Jaunt打造360°全景VR电影 Unite China 2014课程解析:行业解决方案专场免费开放 Manhattan,Twitter规模的实时、多租户分布式数据库 Ceph浅析(中):结构、工作原理及流程 孙元浩:基于Spark引擎的高速内存分析和挖掘工具应用 腾讯私有云背后的团队,品高要做企业云计算的产品经理 撼动企业应用架构的十大技术趋势 Airbnb的管理之道:产品设计的点评策略与技巧 Windows 8.1 Update 1的下载地址和八点须知 《近匠》棱镜:手游渠道SDK平台的技术历程 OpenSSL究竟为何物,为何它的影响力如此之大? Redis大冒险:如何跳出SQL这个坑 【走近院士】张尧学:基于透明计算的云操作系统 微软转型之路:从Build 2014开始 大势所趋 HTML5成Web开发者最关心的技术 从火种到核心,浅析Hadoop大数据用户的演变 搭建高可用的MongoDB集群(上):MongoDB的配置与副本集 软硬件协同创新,共建未来数据中心 优秀Unix管理员的七个习惯 如何使得下载的excel文件在新页面中打开? datalist问题 帮帮这个菜鸟!!! 新手求助?谁有较好的打印控件,或较好的解次方案? 如何在程序部署时授予某文件夹对文件的写访问权? 不能重定向是什么原因? 想用Mediaplaer控件播放某个声音文件若干次,怎么控制? 如何通过窗口句柄来获得窗口所在进程的ID 怎么找到DataGrid中的Table呢? 请问用VB怎么才能把1个数据库里的表全部读入LISTBOX里? JmaiL 发邮件的问题?? 备份还原问题 如何用钩子得到中文啊? interbase的存储过程中如果想返回多条结果应该怎么办? 请问!谁能提供算命、测字等原代码和后台库!!500分相送!!!! 我的用客户端连上ORACLE,怎么我的SQLPULS打开中文全是乱码,执行语句后看不到结果是什么 方案讨论:如何自定义并实现错误与例外Exception处理对象,并建立里统一的ErrorMsg 读数据库错误??急急急,在线等(马上给分) 缓存 到的 是什么定义啊 (斑竹来 告诉我吧) 系统分析师、系统设计师有什么区别? DB2技术讨论(1)如何简单理解表空间的定义 vc的ado数据库连接问题 请问linux的个人版和服务器版到底有什么区别?? DB2技术讨论(2)如何简单理解表模式的定义 int& operator[] (unsigned i); 存储过程问题 DB2技术讨论(3)如何处理索引 马上结:我用ASP和JSP分别写了一个人主页,可是服务器只支持PHP,所以我要写PHP.. 我要构建一个网吧?回答问题者都有分 DB2技术讨论(4)如何处理大量数据的增删 郁闷,没有理由,再散分一百,随便进来聊聊 昨天真的真的受了刺激 怎樣將dbedit控件的事件和它所在的form方法相關起來? 如何实现DOS工作站连接到LINUX服务器 DB2技术讨论(5)如何在建好的数据库中设定数据库和表的维护信息 feeboby(诺曼之路) 请进,刚才IE出现js的问题,帖子结了,但分没加上去,另开新帖,100分送上 如何把两个系统合并为一个系统(两个独立的系统) 如何实现集成?? 请教一个apache2.0加tomcat4.3.x时访问目录控制问题 那里有Zend的反编译软件下啊? 大家给我提建议拉,java项目该如何做?交友 这样的asp.net程序消耗是不是太高? 满分求救: 通过 scope="session" 定义的bean 我想继续在包含页中使用。。 大家给个名字建议吧 BDE问题 那个说我骗你手提电脑的进来!!!!!!! 谁知道啊? 直接写内存的Win32 API? 向高手请教.NET下怎样实现聊天室功能? 请教一个apache2.0加tomcat4.3.x时访问目录控制问题 关于JFC的问题 如何鼠标指到单元格中,把单元格中的文字颜色改变 两个受力分析物体A放在物体B上,A受拉力F作用,两个物体一起做匀速直线运动.分别对A\B受力分析.问下与B受拉力F作用,两个物体一起做匀速直线运动有无差别? 柳下惠为什么被称作“和圣” 请问大家哪些蜂是有毒的?被蜂蜇了该怎么处理?我妈妈被蜂蜇了,手肿了一大块.我很担心她.可是我不知道这是哪种蜂,它的毒性有多大.想到报纸上登的杀人蜂,我真是不寒而栗. 被有毒的蜂子蜇了最适合吃什么? 站在白鳍豚的角度形容水清的成语 清水湾()()()(),当然是水清了 成语填空小弟写作文 要填的恰当 必有重谢 看起来很好看很清新的成语,不是形容,是指成语.比如洛水清泓.3-5个,急用. 为什么一种生物为什么会不断地进化 今天就要!多一些 无产阶级是不是工人阶级不要长篇大论. 无产阶级=工人阶级 工人阶级就是无产阶级吗 公司注册制度改革全球镜鉴——聚焦激发涉案金额240亿 “万家购物”网络传QE3“瘦身”延期 新兴市场仍需未雨背景资料:欧盟20年大事记公安部要求公安机关对暴力伤医行为坚决吉林松原10分钟内连发两次地震 东北世界勤俭日 请从身边小事做起浦发银行设立伦敦代表处巴西“张开双臂”欢迎中国企业投资卫计委:将逐步探索新农合跨省就医结报吉林松原前郭尔罗斯蒙古族自治县发生5正当讨账变成非法拘禁 要账一行人触犯兵团医生热心帮扶哈萨克族患者传佳话2016新疆冬季冰雪马拉松赛月底举行【全市区县乡镇人大换届选举进行时】 外交部:坚决反对有关国家借人权问题干中方敦促美国新一届政府和领导人慎重妥外交部:中方强烈谴责发生在土耳其和埃今年前11月北京PM2.5平均浓度同南水北调东中线一期工程平稳运行两周年广西面向东盟干部学院启用 将为越南老2017年新疆铁路春运首趟临客列车1圣女日记重生未来种田记外滩十八号一元新娘VS全球首席猎日1931校园超能小子召唤恶魔大人缴枪不杀秧苗仙路带着外挂去修仙玄月飞雪昭陵旅游永陵旅游裕陵旅游献陵旅游虎峪旅游黄兴路步行街旅游丹霞地貌旅游观澜山水田园农庄旅游富春茶社旅游巨石山旅游茱萸峰旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘