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

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

编辑:说三道四文库 发布时间:2017-02-28 11:32
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后,调试一切正常。
TOP10优秀微信开发商随后揭晓 2014微信开发者大会开幕在即 8月12日:PC鼻祖IBM 5150迎来33周年 平板创作3D展现:蒙特利尔大学发明Hyve-3D设计系统 Quick Charge技术解析:关于手机快速充电的那些事儿 性能分析十八招,你用哪一招? 流程在企业内的作用及成熟度 Gartner:至2017年Chromebook销量将增2倍 后稀缺时代思考:机器横行下的人类夹缝求生 TIOBE 2014年8月编程语言排行榜:Swift跌出Top 20 精华回顾!历届MDCC大会精彩演讲与议程汇总 《近匠》Fancy3D:亿级游戏背后的轻量级引擎 假如李小龙是程序员…… Docker已扎根新一代PaaS 三星或发布首款头戴式VR设备Project Moonlight 英特尔亚太研发总经理何京翔:数据化时代背后的智慧 云络网络科技CEO Steve Mushero:游戏行业的云运维 腾讯游戏运营管理中心总监刘栖铜:腾讯游戏云的理想与实践 一号专车产品总监曹景辉:LBS应用仍有无限的创新空间 昆仑游戏总裁张益豪:做好中国游戏的海外代理 游族首席运营官陈礼标:重点打造全球化IP 我是怎么利用微信月收入三万以上的! 我的Y Combinator黑客马拉松之感! 最炫HTML5 JavaScript框架Famo.us融资2500万美元 看板先驱David J. Anderson:看板方法拉动互联网时代敏捷变革 《近匠》增强现实开发团队LegendTech:AR技术现已加入15元豪华午餐 微软新技术:简单修改,手机摄像头摇身变3D深度相机 Black Hat USA安全隐患盘点及黑客奥斯卡颁奖 MDCC免费展位报名火热!数量有限,征集进行中 迪游信息科技CEO张晓雷:中日游戏面面观 百余款智能电视创意类应用参赛角逐 Top13 App新鲜出炉! 微信公众平台开发——如何保证access_token长期有效? 请问各位大侠关于COM的问题? 我想用可视化的Java工具VisualCafe,哪里有不限制版?或有正版注册码? 各位,我现在的操作系统是win2k professional 我现在想运行.jsp程序。我应该有什么样的准备。用什么工具做jsp.服务器怎么配置。这些东西都那里去下载。请指点。不胜感激! 急,listbox的columns设置为大于1后,它的这几个列怎样添加字符 一个弱智的问题: 怎样判断实例是否存在?? 再议 在VB中如何创建三层结构的应用程序 紧急问题!Crystal Report是否不支持中文的? 如何得到系统的开关机时间(在WIN2K下)???急 怎么实现这种嵌套的查询结果?(急急求救) 对象的handle,hwnd和指向此对象的指针之间是什么关系??? JavaBean+jsp+Tomcat4.0?把我搞醉了 一个非常棘手的问题,都吃不下,睡不着了,帮忙啊,分不够的话,再开数贴。 高分请问:会跳舞(有音乐)的圣诞老人(玩具,大约有电脑显示屏一般高度)在上海买多少钱,急急急 已有CBitmap m_Bitmap,如何求对应的HDIB 在音乐文件中加入一个代码…… 这种情况下如何用进程条控件? 看了一通sps的sdk,看的我头大的不得了,看来英语还是不过关阿 我要把格林威治平时转换成当地时间用什么函数呢???? 用SQL语句显示记录集中的倒数200条记录,及显示从第几条到第几到的记录?? 问:vb.net采用的是c#,那么在ms.net里面到底有没有visual c#.net??? 高手请进!ADO问题 给我已给在javabean里面使用HttpServletRequest对象的例子好吗?谢谢你了,具体到里面看看可以吗? 在office2000中打印来自matlab53的图形,总是提示word内存不足,word自行关闭。请问为何? 开开关关的窗口 用VC编写操纵数据库方面的COM组件有前途吗? 请问如何将CString中的字符串赋给char* ADODB.Connection问题,急!! 急急! 在javabean里面使用HttpServletRequest对象的例子好吗?谢谢你了,具体到里面看看可以吗? 河南的程序员考试成绩出来了没有?都快把大家急疯了! 一个类的四个问题?this指针等等,欢迎大家的光临。 请大家帮个忙!我的PARADOX数据库有660M,但是在读取的时候出现‘BLOB HAS BEEN MODIFIED‘!! 请问哪里有ado数据库引擎下载,谢谢~! BDE错误$2109 如何得到“我的文档”里的IShellView指针? SOS!各位帮帮我呀!“实现汉诺塔” 幫忙看一下下面這段代碼有什么問題? 改进后的开开关关窗口特别酷 请问在VB6与VB.NET在数据库方面有多大的区别呀?? 关于C语言 寻找将 AUTOCAD 文件格式转换成 PDF 格式的软件 谁有包含开发接口的OCR软件? 求助:没有紧急修复软盘,怎样恢复win2kserver的双启菜单。 请问怎么得到DATAGRID1中记录的总条数! 转发:一粒沙子的爱情故事 公司發過年禮物了 ,哎 ,原來是一塊石英表 ,雖然是情侶表 ,卻只發一塊 ,不是一對 ,你們呢!..... ??有解密高手吗?或者哪里有这样的论坛?? 怎样用多线程显示多个form? VB串口发送大数据量时其他程序没有反应? 这句sql语句怎么写?低手请教! 数据库高手请进,报表问题!!! A.B两城相距320km,甲乙两车同时从两城开出,2小时后相遇,甲乙两车的速度比是3:5,甲乙两车各行多少千米?快,算式都要. 谁能科学的回答下先有鸡还是先有蛋最好拿出数据 这是什么昆虫? 昆虫有多少种类 甲,乙两站相距480km,一列慢车从家站开出,速度为90km/h,一列快车从乙站开出,速度为140km/h,根据这个回答下面的题目, 媒介昆虫种类有哪些?举例说明 昆虫种类请问一下这个虫是什么 甲、乙两车站相距480km,一列慢车从甲站开出,每小时行60km,一列快车从乙站开出,每小时行90km.设两车同时开出,相背而行,xh后相距600km,方程是(90-60)x=480吗? 王大爷在自家墙外围了一个养鸡场.围养鸡场的长是22,其中一条边是22m,求养鸡场的面积 快车以60km/h速度从甲站向乙站开出,1.5h后,慢车以40km/h的速度从乙站向甲站开出.两车相遇时,相遇点距两站的中点70km.甲、乙两站相距多少千米? 甲、乙两车站相距480km,一列慢车从甲站开出,每小时行60km,一列快车从乙站开出,每小时行90km.两车同时开出,同向而行,且慢车在前,xh后快车追上慢车,方程是? 用关联词把两个句子组成一句话.养鸡场主人有事没事.养鸡场主人喜欢散布谣言. 甲乙两地之间的距离为490KM,一列慢车由甲站开出,每小时行驶80KM,一列快车从乙站开出,每小时行驶100KM,急!若慢车先开30分钟,两车相向而行,快车行驶了多少小时后与慢车相遇?用方程解. A.B两地相距480KM,一列慢车从A地出发,每小时行60KM,一列快车从B地出发,每小时行驶90KM,快车提前30分钟出发,两车相向而行,慢车行驶了多长时间后两车相遇. 一个长方形养鸡场,一条长边利用原一墙,其余三条是竹篱笆,已知竹篱笆共长24米,宽是长的2分之一,养鸡场的面积是多少平方米? 例1、甲乙两站相距480公里.一列慢车从甲站开出,每小时行90公里;一列快车从乙站出发,每小时行140公里.(1)慢车先开出1小时,快车再开.两车相向而行.问快车开出多少小时后两车相遇?2)两 甲乙两地相距480km,一列快车从甲地开出,每小时行驶120km,一列慢车从乙地出发,每小行驶80km.若两车同时开出,同向而行,问快车用多少小时追上慢车?用 方 一条关于养鸡场的问题.速求~要建一个面积为150m²的长方形养鸡场,养鸡场的一边靠着原有的一面墙,墙长a米,另三边用竹篱笆围城,篱笆总长为35m.(1)求养鸡场的长与宽(2)当a<15或15≤a 例1、甲乙两站相距480公里.一列慢车从甲站开出,每小时行90公里;一列快车从乙站出发,每小时行140公里.(1)慢车先开出1小时,快车再开.两车相向而行.问快车开出多少小时后两车相遇?2)两 甲乙两地相距480km.一列快车从甲地出发,每小时行驶120km,一列慢车从乙地开出,每小时行驶80km若辆车同时出发,相向而行,快车行驶一小时后,因故障停车20分钟后继续行驶,问慢车出发几小时两车 爷爷在自家墙外围了一个梯形养鸡场,围养鸡场的篱笆总长是25米,其中一条边长8米,求这个养鸡场的面积. 7、甲、乙两站相距480公里,一列慢车从甲站开出,每小时行90公里,一列快车从乙站开出,每小时行140公里.(1)慢车先开出1小时,快车再开.两车相向而行.问快车开出多少小时后两车相遇? (2) 甲乙两地相距480km,一列慢车从甲地开出,速度为80km/h;一列快车从乙地开出,速度为120km/h.1.如果两车相向而行,在他们同时开出xh(未相遇)时,两车相距多少千米?2.如果两车相背而行,在他们同时 养鸡场主要用什么消毒? 甲,乙两站相距480公里,一列慢车从甲站开出,每小时行90公里,一列快车从乙站开出甲、乙两站相距480公里一列慢车从甲站开出每小时行90公里一列快车从乙站开出每小时 甲乙俩地相距200km,快车走120km/h,慢车走80km/h,慢车从甲地出发,快车从乙地出发,(1)如果两车同时出发,相向而行,出发后几时相遇(2)如果俩车同时出发,同向而行,出发后几时相遇 养鸡场如何消毒 甲、乙两站相距480公里,一列慢车从甲站开出,每小时行90公里,一列快车从乙站开出,每小时行140公里.(1)慢车先开出1小时,快车再开.两车相向而行.问快车开出多少小时后两车相遇?(2) 某农场要建一个长方形的养鸡场,鸡场的一边靠墙(墙长25m),另外三边用木栏围成,木栏长40m.鸡场的面积能达到列出式子 养鸡场消毒池多久换一次? 家庭昆虫的种类成年昆虫长1.5至2厘米,宽2至3毫米,黑色,尾部有分叉,六爪,带触角,能快速爬行!我想问,此虫的名称,对人类生活有无影响? 养鸡场投资 建设一个1W羽规模的养鸡场,大概要投资多少?年后养鸡做准备的~· 建一个一W只的养鸡场要多长时间 昆虫分类根据口器,翅膀,触角来分类 王大爷在自家墙外围成一个养鸡场,围鸡场的篱笆的总长是22m,其中一条边是8m,求养鸡场的面积. 养鸡场地如何消毒? 先有鸡还是先有蛋,科学的回答 王大爷在自家墙外围成一个养鸡场,围鸡场的篱笆的总长是22米,其中一条边是8m,求养鸡场的面积 世界上的昆虫种类为什么那么多.让我们查查为什么昆虫种类那么繁多,麻烦大家拜拜忙啊. 先有鸡还是先有蛋?要有科学道理.要清楚. 甲、乙两地相距360km,慢车每小时行80km,快车与慢车的速度比是5:4.两车分别从甲、乙两地同时开出,经过几小时相遇 一辆客车从甲地到乙地要6小时,一辆货车从乙地到甲地要8小时,现在两车相向而行相遇时离乙地60KM两地相距两地相距几千米 请问,是先有鸡还是先有蛋?请给个科学的回答! 两车从相距360km的甲乙两地相向而行,经过4小时相遇,已知快车与慢车的速度比是5:4,慢车每小时行多少千米? 一列客车,从甲地开往乙地,去用每小时60km,返回时每小时90km,往返平均速度是多少?(60+90)/2180*275km 是先有鸡还是先有蛋?要科学的回答! 甲乙两地相距80KM,快车和慢车同时从甲地到乙地,快车比慢车早20分钟到.快慢车速度比4:3,那么慢车速度多快慢车速度比4:3,那么慢车速度多少? 客车从甲地到乙地要6小时;货车从乙地到甲地要8小时.两车同时分别从两地出发相对开出,相遇时货车行了240km.甲乙俩地相距多少千米?算式 要仔细 急 甲乙两地相距480km,一列快车从甲地开出120km/小时,一列慢车从乙地开出80km/小时 1若两车同时出发,相向而行,快车行驶1小时后,因故障停车20分钟后继续行驶,问慢车出发几小时两车相遇.2若两车 快慢两车同时从甲乙两地相向而行,快车速度45km,慢车速度20km,两车三次相遇后快车又行360km相遇,求全程快慢两车同时从甲乙两地相向而行,快车速度45km,慢车速度20km,两车三次相遇后快车又行360 我想知道养鸡场怎么办?需要什么什么条件?具体知道养鸡场的规模怎么确定、平面怎么布置、成本预算、怎么向政府贷款? 昆虫怎么分类 请问有哪些好的养鸡场名 北京和呼和浩特相距660km,一列慢车从呼和浩特开出,每时40km,一列快车从北京开出,每时60km,两车同时开两车同时开出,相向而行.如果快车先出发一小时,慢车才开出,快车出发几分后两车相遇?( 先有鸡还是先有蛋,我要科学,科学, 两列火车从甲乙两地相对开出,4小时后在距终点48千米处相遇,慢车是快车速度的5\7,各车的速度是多少,路程? 甲乙两地相距162km,一列慢车从甲站开出,每小时走48kn,一列快车从乙站开出,每小时走60km,1.两列火车同时相向而行,多长时间可以相遇?2.两车同时反向而行,几小时后两车相距270km?3.两车相向而行, 昆虫分类识别 先有鸡还是先有蛋!从科学的角度解答 这是何种虫类?晚上的时候这只小东西飞到我的电脑屏幕上,让我眼前一亮,它身上的金色闪闪发光,很美,不知这是何种昆虫?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn