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

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

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后,调试一切正常。
搞趣网创始人:做不了阳春白雪 就做下里巴人 CMDN Club 28期:创业公司一定不要浪费资源 浅谈Lean UX:我们到底该怎么设计? 张艺谋今日正式加盟乐视 作品专区落户超级电视 WebKit华丽转身:欧朋浏览器8.0新鲜出炉 分析师称应出售Bing?除非微软倒闭,否则不可能卖Bing Go Mobile沙龙第二期:软硬整合与创客精神 专访西电黄宝林:《基于GPU的并行NMF网络聚类算法》获奖背后故事 友友姚宏宇:用C,C++和Java实现自主研发之后,放开心态迎“高朋” 新技术对传统学科的颠覆:系谱网使用大数据寻亲问祖 IDC:2015年全球平板电脑出货量将超PC Web开发者的福利 30段超实用CSS代码 库克出席D11科技大会:苹果公司没有陷入麻烦 千兆的带宽是不够的,最新研究将我们带入400G时代! 告诉你一个事实:移动互联网依然不大 一切才刚刚开始 戴尔的10亿美元云扩建计划到底是什么? iOS vs. Android,应用设计该如何对症下药? 扁平化设计五大原则 16种折磨开发者的方式 2013年度中国优秀开源项目征集活动正式启动 技术趋势:产品设计向“钱”看 服务器领域:旧时代已过 新时代正在降临 速度与金钱的碰撞:F1赛车将搭上大数据的东风 中国·北京第一届开源大会Hadoop专场侧记:Hadoop已经成为大数据分析平台的标配 Marissa Mayer为何带雅虎重回门户时代? 开发者最爱的三款开发工具 Facebook开源JavaScript库:React 硬件天堂深圳行:从Seeed Studio、Knewone到柴火创客空间 消费应用开发难赚钱?做个企业app store吧 开发开源软件的智慧:够简单,很好用 历届中国云计算大会PPT集萃(终章):架构到实践的全面解析 关于IE浏览 请问vb如何访问foxpro 6.0的数据库,最好有源程序,谢谢. he_cti@163.net 算了,散分 我散,我散,我散散散 散3 发分!!!! 发分!!!!! 发分!!!!!!!! 发分!!!!!!!!!!!! 发分!!!!!!!!!!!!!!!!!!! 请问如何去掉测试版软件的“购买”提示框???急急急急!!! 有关获取HTML中Frames的问题? 给分!!!!!啊 给分!!!!!啊!! 给分!!!!!啊!!!!!! 给分!!!!!啊!!!!!!!!!!!!! 给啊!!!!!!!!!!!!! 不是俺蓄意谋两位帮主的反,实在是 ... APPLET连接数据库。。。(我已经每粉了) 千分散尽不复来!!! 千分散尽不复来!!!! 千分散尽不复来!!!!! 千分散尽不复来!! 千分散尽不复来!!!!!!!! 千分散尽不复来!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!! 用分把灌水乐园咽死!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!!!!! 千分散尽不复来~ 千分散尽不复来~! 请教数据窗口的问题 千分散尽不复来? 千分散尽不复来?! 有LVS_OWNDATA属性的CListCtrl 加图标的问题,25分 在做会员注册时,在添加新数据页,程序一运行就在RS.updata出错,为什么(原程序) 高手请你回答我啦!!!! 我要回家了,第一个给300 哪有msproxy下载????? 请问要怎么样才能在自己写的程序运行时让用户无法使用开始菜单? jdbc的版本 发分!!!!!!!!! 对于初学者,应该学些什么样的数据库? Java的优点 化功大法第一章--散分。 吸星大发第一章--散分 i need help 葵花宝典第一章--散分 求哈密而顿路的算法 一个数的百分之60是120,这个数是多少 有10-80八个数,把它们分别入两个大圆上的五个圆圈内,使五个数的和为200,应该怎么填 问写“Saving the Earth”的英语作文人类的不明智之举:1,乱伐树木 2,乱扔垃圾 3,不加处理排放废物导致的问题:l,土地沙化 2,河水变脏 3,空气质量差 4,全球气温升高建议;合理化建议至少三条 一个工人要加工120个零件,已经加工了百分之八十,还要加工多少个 地球表面约70%被海洋覆盖,人类为什么还缺水?请说出三个理由. 以saving the earth为题,写一篇80词的英语作文, 一个数的百分之60是120,这个数的10分之3是多少? 地球表面约百分之七十被海洋覆盖 人类为什么还缺水 帮忙写英语作文 Saving the Earth 80词左右提示:1 如何保护环境成为世界最大难题之一2 各种污染破坏环境 损害健康 3 不要乱倒垃圾 乱排污水4 我们应该保护环境 使我们的家园更加健康 4.5乘80%等于多少 地球严重缺水的原因是什么 求作文:saving the earth 3+3乘5等于 地球上有4/5的面积是海洋,那为什么还一直说缺水呢?我知道海洋是不能喝的,可是现在科技这么发达,就没有机器可以过滤这些海水吗?那样的话不就是不存在缺水问题了? 将20、30、40、50、60、70、80、90这八个数填入下面的圆中,使毎个大圆上的五个小圆里的数和都等于300等于300 3乘5等于几 为什么地球会缺水地区降水降是否和蒸发量有关?我们日常用掉的水流入江河,经过蒸发后下雨水流入地表,那为什么还会缺水?水循环中哪里丢失了淡水?寻求专业大虾我们提倡节约用水是节约 将20、30、40、50、60、70、80、90这八个数填入下面的圆中,使毎个大圆上的五个小圆里的数和都等于250. 1-三分之二-九分之二-二十七分之二-八十一分之二-二百四十三分之二-七百二十九分之二 简算 80万年后地球会怎样 大小两个圆,大圆半径等于小圆直径,那么大圆面积是小圆面积的() 70人相当于80人的几分之几?谁知道啊 三分之一,负九分之二,二十七分之三,负八十一分之四,( ),( )按规律括号里填什么? 最近有什么大事件```急用```80分``越新越重大的越好..最好好最分析.. 1200乘以百分之108.8等于多少 三分之二加九份之二家二十七分之二加八十一分之二加二百四十三分之二用简便方法计算 100万年以后地球是什么样子?人穿着 家用电器 军队 科技等等是什么样子的 38乘以1200等于多少 九分之二除与27分之八等于多少 80-90年代中发生的大事件! 多少的百分之八十是六十 (1又三分之二+九分之八-1二十七分之二)×27 找一部外星人入侵地球的科幻电影在海上外星人发射了两个想轮子一样的东西、撞坏了高架桥 80增加到90,增加了百分之多少 九分之二加二十七分之四等于几? 美国外星人入侵地球的电影貌似就是外星人入侵地球,外星机器长着三只脚,非常高大,他们所到之处血染江河,将人绞成血丝,供外星人食用,他们的武器,飞船有防御系统,任何战机,坦克,大炮,甚 一百分之八十和百分之八十有什么不同和相同? 方是多少?三分之一+九分之二+二十七分之四+八十一分之八+三的n次方分之二的n-1次方等于多少? 外星人入侵地球的科幻片,最后通过鲸鱼和外星人对话挽救了地球的是哪部影片外星人的宇宙飞船就象一截粗木头这个影片我看过,科学家发现外星人对鲸鱼的叫声很亲切,知道鲸鱼能和外星人 1.200吨相当于320吨的百分之几 2.60千米比80千米少百分之几 若两百四十三分之三十二的n次方除以九分之四的n次方等于八分之二十七,求n的值 求美国外星人入侵地球以前看过的,很多飞碟入侵地球,外星人象八爪鱼似的,美国很久以前还抓到过,一直研究,在最后有个老头开飞机打飞碟没弹药了,直接飞进飞碟下边同归于尽了,请问这个片 0.8%等于一百分之几?80.8%等于百分之几? X乘以X等于40 ---------------------X=? 氯化钠在海水盐类物质中的比例?60%?70%?80%?90? 一件上衣原价120元,换季打折时降到80元,比原价降低了百分之几?相当于打了几折? 60乘以(x减1)等于40乘以(x加1)怎么做 为什么海水中的盐类主要是氯化钠?海水盐分组成表 盐 类 克 / 升 占盐类的 % 氯化钠 27.213 77.75 氯化镁 3.807 10.87 硫酸镁 1.658 4.73 硫酸钙 1.26 3.6 硫酸钾 0.863 2.50 碳酸钙 0.123 0.30 溴化镁 0.076 0.20 数学题:一件上衣原价240元,换季打折降到了80元,这件上衣的售价比原价降低了百分之几?要过程!在线等再问一个:某校四、五、六年级共有18个班,平均每班有48人,三个年级的人数比是4:2 多少?乘以百分之四十等于 0.125 为什么氯化钠占海水的盐类成分88.64%,在河水所占的比例却很低? 一件上衣原价120元,换季打折时降到8O元,比原价降低了百分之几?相当于打了几折? 把100,200,300,...,700,800这八个数,分别填入小圆圈里,使每个大圈上五个数的和是2100.一共八个小圆圈,五个小圆圈用绳子连在一起是一个大圆圈,两个大圆圈连在一起,有共同的两个小圆圈.不知道说 海水中氯化钠有80%吗? 一件上衣原价80元,换季打折时降到60元,这件上衣的价格比原来降了百分之几? 把10.20.30.40.50.60.70.80这八位数填入圆圈内,使每个大圆上的五个数的和是200有两组,每组有五个圆,其中有两个圆是套在一起共用的 每一千克海水中含有氯化钠等盐类约35克,所以海水是咸水,但可能变成淡水跑到地球上来海水到陆地上变成淡 形成天然水循环,这个过程包含了水的 和 两种物态变化 为什么 一件上衣原价240元,换季打折降到了80元,这件上衣的售价比原价降低了百分之几? 把10到80这八个数填入圆圈内,使每个大圆的五个数的和是200 图是一个3个圆的和一个5个圆的合在一起 以Saving the Earth为题目写篇作文人类的不明知之举:1.乱伐树木2.乱扔垃圾3.不加处理排放污水导致的问题:1.土地沙化2.河水变脏3.空气质量差4.全球气温升高建议:合理化建议至少3条开头:As time goe
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn