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

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

编辑:说三道四文库 发布时间:2017-03-26 01:44
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后,调试一切正常。
皮皮网陈超:易用与性能兼备,Spark蓬勃发展! Sahara顺利毕业,将加速OpenStack与Hadoop的融合 十大将拯救地球的开源硬件项目 Android应用程序开发者需要了解的五个内容 百度轻应用插件CloudaMySQL诞生记 盘点Github所用的开源项目 开源不只是面对开发者 见证新一代全能大数据计算平台崛起 ——中国Spark技术峰会将于4月19日在北京召开 大佬放猛料的节奏 阿里云聚无线为开发者提供一站式服务 智能硬件又添新选手 汉王推出便携PM2.5检测仪 2014年首场百度轻应用高级训练营落幕 现场展示云端结合能力 销售易史彦泽:企业应用,自上而下的革命 专访寻医问药网创始人:轻应用背后的长尾效应 轻松打造品牌轻应用:实时Web App开发框架Clouda Intel强势入驻,Cloudera新一轮融资总额已达9亿美元 每个Web开发者必备的9个软技能 4月1日:闻名世界的苹果公司正式成立 AMD正在探索一种新颖的Linux开源驱动模式 QQ手机浏览器推出5.1播霸版 内置强解码引擎支持22种视频格式 Ceph浅析(上):概况与设计思想 IBM:你好,互联网 光网络SDN化的四大驱动力及两条路径 《近匠》酷传:解除App发布和监控痛苦 有道heX正式开源:用HTML5和NodeJS开发桌面应用 在3D空间创作:英大学生发明增强现实设计产品 2014年3月浏览器份额:Chrome终超Firefox 成市场第二大浏览器 2014年3月操作系统份额:Windows 7大涨,Windows XP仍未跌破27%大关 路透社:iPhone 6仅有4.7寸版本,将于5月量产,5.5寸遭冷冻 高端实战技术培训:OpenStack企业应用之路 据统计,Oracle已击败IBM跃居软件行业第二 【技术博客推荐】2014年值得关注的10个开源项目 打算用PB做个Oracle管理器,请给点意见参考参考 如何在APPLET中读入 HTTP中将其他网页的内容 小女子求教!对您可能非常easy的问题! pb6.5做b/s!求救!送分! 这个问题,我都不好意思问,pb70如何编译成exe文件啊? 集成主板的声、显、网卡的问题。(内详) 怎么连sybase 数据库! 怎样用vb实现ctrl + alt + delete键的功能 求超级兔子魔法设置4.2的注册码,一定高分相送 如何调用数据库中带输入、输出参数的存储过程 ASP页面里用下拉框控制日期显示时,没有31号的月份怎么控制不显示31号呢? 寻EPOC高手。 刚学VC要注意点什么哈 如何将BMP图形转成JPEG后,存入数据呢?请教! 脸红请教! 先装好了linux还能加装windows吗? 请问高手:怎样在interDev6.0中调试ASP?? 高手请教,在线等待 一段代码整体一定的快捷方式 MSHFlexGrid的数据显示问题!(40) 使用ADO时,说interface not supported是怎么回事? 请教! 谁知哪儿有flash控制影片的源文件? 怎样把SQL Server中的数据库导出成*.sql文件? 2000SERVER 奇怪:0x80004005 错误,但是在以前的帖子里没有提到 建议:加入精华区的帖子可以改名。有的帖子内容很好,但标题说得不清楚。这样也方便于分类。 有谁知道那里有漂亮的图标下载? 请问如何注册 关于文章“上一篇”“下一篇”的问题 如何在程序中打开一个对话框让用户选择一个目录(别的程序中非常的普遍使用,谢谢) 在同一个系统里,可以同时装2个office吗,一个英文版的和一个中文版的可以吗,? 请问怎样在PB应用程序中的工具栏使用大于16×16的在图标? 如何设置单元格 一个关于高位低位的问题。谢谢。 怎么能知道自己的主板的性能、好坏?比如.... 不知道有谁对ISDN比较了解有这方面的资料吗? 这样的爱是维持多久? 我尝试通过网络免费提供关于如下方面的技术支持服务,并欢迎有兴趣者一起进行讨论。各类问题可以发mail: stevewh@ynmail.com 数据访问ADO与DAO、RDO各用在什么场合下? 在存储过程中的问题,看大家能者见能,智者见智,帮帮手! 如何在在桌面上单击右键弹出的快捷菜单中加入一个项目"启动我的电脑"? 想买一款显示器,不知道是三星好还是PHILIPS好!请大家帮我选择选择!(低档纯屏,<1600元(50分) 在win98下配置tomcat的问题? 什么样的主板需要安VIA 4 IN 1?? gicq玩家的间题 请taglis2002来借分。 急!Edit中输入日期的问题 急!DBGrid的栅格问题 为啥Oracle中还有近5G的表空间,当插入某表时却提示要增加数据文件,而别插入别的表却没问题(送分的) 有关中文显示的问题 谁来给我解释一下魔方的公式RUR'U'MUMUMU2M'UM'UM'U2URU'R' 城市化的定义我们的一个辩论题,城市化是否有利于人类发展,我们辨反方,不利于人类发展,我是一辨,第一次参加辩论,不太会写立论稿,谁能帮我?后天就要辨了. 全部都滚远点用英语怎么说急 谁帮我解释一下这个魔方公式R'U'R'U'R'URURFRUR'U'F'FUFUFU'F'U'F' 新型城市化的定义什么是新型城市化?它的准确定义是什么?我国为什么要推行新型城市化? "去死”用英语怎么说?还有”滚”注意是骂人的 魔方公式解读R2 y(R U R'U')y'(R'U R') 这公式里的括号是什么意识呀?还有y'魔方要怎么转呀~请详细点呵呵 还有这样的;如:R2 y(R U R'U')2y'(R'U R') 这里的2y'是什么意识呀? 再城市化的定义 给417换一下床单被罩用英语怎么说 将带电荷量为1×10-8 C的电荷,从无限远处移到电场中的A点,要克服静电力做功1×10-将带电荷量为1×10-8 C的电荷,从无限远处移到电场中的A点,要克服静电力做功1×10-6 J,问:(1)电荷的电势能是 城市化是什么意思 把一根长20cm,宽10cm,高10cm的长方体木料加工成一个最大的圆柱体木块,求圆柱体的表面积. 什么是朦胧诗?怎样写朦胧诗? 城市化的概念? 把一个长10cm,宽和高都是6cm的长方形,削成一个最大的圆柱体,这个圆柱体的表面积和体积是多少如题是长方体 朦胧诗、「一代人」的含义含义及其意象是什么? 什么是晶格取代 请问什么是晶格?本人对理论物理一壳不通, 谈谈对朦胧诗的理解 化9.金属的下列性质中,不能用金属的电子气理论加以解释的是 什么是次晶格? 两条互相平行的直导线,通有相同方向的电流两条互相平行的直导线,通有相同方向(向上)的电流,有导体a.b,求他们的安培力方向I I a b图形大概就是这样,方向都是向上谁给出“超级详细”的 关于一元一次方程的追及问题“甲、乙两车站相距400千米,慢车每小时行驶100千米,快车每小时行驶140千米.两成同时开出,同向而行,慢车在前,两车出发多少小时后,快车于慢车相距40千米?”类似 F是检验电荷所受到的力,Q是产生电场的电荷的电荷量1\F是检验电荷所受到的力,q是产生电场的电荷的电荷量E=F/q2\上面那句话错在哪?公式E=kQ/r^2,以点电荷Q为中心.r为半径的球面上,各处的电场 导线中若有恒定电流,场强方向平行于导线,各处大小是否相等?导线的若不是柱体,其场强分布又会怎样? 计算机网络的几个名词解释计算机网络,拓朴结构,局域网,OSI/RM,计算机网络体系结构,实体,对等实体,协议,协议数据单元,服务,服务访问点,服务原语,DTE,DCE,TCP/IP一共15个, 静电平衡状态下导体表面的场强也为0吗 为什么 做奥斯特实验时,导线为什么要沿南北方向平行地放在小磁针的上方? 在计算机网络中,帧的具体概念(即名词解释) 电场中场强与检验电荷无关? 置换固溶体,间隙固溶体以及金属化合物的形成条件有什么差别? 计算机网络名词解释 把一检验电荷q=10-10C放在某一电场的A点,具有的电势能为10-8J,该点电势为__V;若在该点放入另一电荷q=-10-10C,则该点电势为___V. 根据合金相的晶体结构特点可以将其分为( ).A、间隙相 B、固溶体 C、非金属 D、金属化合物 E、金属 计算机网络名词解释1.ISO OSI/RM 2.TCP/IP 3.VLAN 4.PPPOE 5.ADSL 1.UDP 2.TCP3.IGMP4.IPTV5.VOIP 处于静电平衡的导体,场强与表面垂直的问题书上有这样一段话:“处于静电平衡状态的导体,其外部表面附近任何一点的场强方向必定与这点的表面垂直.假如不是这样,场强就会有一个沿导体 什么是晶格 求计算机网络名词解释1通讯子网 2半双工方式 3数据链路协议数据单元 4介质争用 5链路加密 静电平衡时,导体表面场强垂直于表面?那圆的是个球,首先确认下电荷是不是这么分布.然后帮忙分析下最上面的红点的场强方向. 晶格能是什么 麻烦把这题目的公式列下,详细解释.某小规模纳税企业本期购进材料一批,支付的增值税款为30000元,本期销售产品销售价格总额(含税)为800000元,增值税征收率为6%,则该企业应缴增值税为() 静电平衡时场强方向一定垂直于导体表面?“假设导体表面上一点的场强方向跟该点方向不垂直,则场强在沿导体表面的方向有分量,则带电的电子会在场强作用下移动,这与已知的达到平衡矛盾 “拟作者”的含义是什么 谁能来帮我解释和整理一下这些公式和题目?an-(an-1)=3=d qsn-sn=a1qn-a 1/n - 1/n+1 = n+1/n(n+1) - n/n(n+1) = n+1-n/n(n+1) = 1/n(n+1)这好像是等差数列还是等比数列的,听不懂啊,不要太官方,要很容易 静电平衡的导体表面为何还有场强? 麻疹暴发定义(名词解释) 初二上册物理第二章光现象的练习题 要多一点的 如图所示中,AB是一个点电荷形成的电场中的一条电场线,图乙则是放在电场线上a,b处的检验电荷电荷量与所受电场力大小间的函数图象,电场方向由A指向B规定为正方向,由此可以判定A.场源可能 实际金属中的晶体缺陷有哪些?对金属性能有何影响? 留心观察你会发现,小汽车前挡风玻璃并不是竖直安装的.这是为什么? S如图所示,(a)图中AB是一个点电荷电场中的电场线,(b)图则是放在电场线上a、b处的检验电荷的电量与所受电场力数量间的函数图线,由此可以判断 何为晶体的线缺陷和面缺陷,它们对金属力学性能有何影响 如图所示,实线是一个电场中的电场线,虚线是一个负试探电荷在这个电场中的轨迹,若电荷从a运动到b处.以下判断正确的是 :A电荷从a到b加速度减小B b处电势能大C b处电势高D电荷在b处速度小 图甲中AB是某电荷电场中的一条电厂线乙是放在电场线上a,b处检验电荷的电荷量与所受电场力F的函数关系图象图甲中AB是某电荷电场中的一条电场线,图乙是放在电场线上a,b两点的点电荷的电 金属在加热过程中会产生哪些缺陷?它们对金属有何影响? 【化学】晶格能的计算问题Li的升华焓为540kJ/mol,LiF固体的生成热为-612kJ/mol,求LiF的晶格能为多少?--------------------------------------------------------------这道题是不是缺少数据?应该怎么算? 【高二物理】图1中实线条是一个电场中的电场线,虚线是一个负试验电荷在这个电场中运动的轨迹 图1中实线条是一个电场中的电场线,虚线是一个负试验电荷在这个电场中运动的轨迹.如果电 4) 实际的金属当中存在哪些缺陷,它们的特点是什么?这些特点对钢的性能产生了什么样的影响?人们怎样利用材料科学导论的习题~ 是不是所有化学键都有晶格? 某同学在研究电子在电场中的运动时,得到了电子由a点运动到b点的轨迹(图中实线所示),图中未标某同学在研究电子在电场中的运动时,得到了电子由a点运动到b点的轨迹(图中实线所示),图中
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘