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

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

编辑:说三道四文库 发布时间:2017-10-22 09:08
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后,调试一切正常。
小米雷军:我为什么做红米? GitHub上线Trending功能,帮你轻松找到有潜力的开源项目 如私人秘书:谷歌搜索将变得更加个性化 微软将于10月17日正式发布Windows 8.1 Google推出在线教育C2C平台Helpouts 技术人员组团参加SDCC 2013的十个理由 继BAT之后 第四大巨头是谁 如果传统IT部门真的消亡,你该何去何从? 闪存突袭,混合储存是否已步入黄昏 Cloudera发布Hadoop开源组件Sentry:提供细粒度基于角色的安全控制 我从其他Shell脚本中学到了什么? 10个调试和排错的小建议 机器学习的时代来临,人类应该做点什么? 云端测试破1500万 Testin已为开发者省2亿 智能腕表inWatch:已发售近3600台 Bingo!微软证实Windows 8.1将捆绑安装Skype IBM宣布收购以色列网络安全公司Trusteer 约10亿美元 如何才能运作好一个开源项目? 为什么JavaScript有能力成为未来企业级编程语言? Red Hat CEO:拥抱开源 拥抱克隆 小米手机-HAXLR8on硬件黑客马拉松 开团了! 移动周报:雷军做红米的N个理由 Pangea Software CEO:08年App Store游戏降价大战的真相 揭秘MongoDB最新Java驱动:更好的JVM支持,指日可期的异步 不仅只有IE Mozilla将于发布Win8平台Metro版Firefox 360搜索发布新产品“我的搜索” 引入网民评价和网站名片功能 AppScale:Google App Engine的开源实现 近期十大优秀jQuery插件推荐 通过语音识别来编程 速度远超键盘 BrowserStack:多系统跨浏览器兼容性测试工具API发布 更加开放?Path向13家应用开发商开放API CSDN的速度越来越慢了,来这里的高人也越来越少了! 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 小小问题!!! 困扰我多时了。。。 sybase 在程序中连接的问题。急,我咨询Sybas公司也不行。 按钮茶馆开张啦,有闲的进来聊天吧~ 小問題 PhoebusApollo(sunny) 你说要开贴,又没分,我有,给你100分,进来领吧!呵呵,不用谢!:) 关于DBGridEh排序的问题,急急急!!! ora-12224错误,tns no listener错误 !在线等待 ,急~! 求助jb9的破解 报表问题,急呀,救命呀~~~55555~~~~ 500分求解决一个问题 在线等待 解决立即给分 2003下为什么我的声卡不能用? 在程式AAA.PRG中如何修改表的字段的類型,比如字段C類型改為N類型??很急!!! 为什么有时候成员函数或变量显示不出来 救命!我在程序中使用webbrowse控件………… 在线等待。 也许是一个很简单的问题! 连接mysql出错 寻关于工控的中英文对照资料 想在暑假打工(计算机方面的)需要什么条件啊? 关于SQL SERVER的疑难问题!来者有分!(在线等待!分数不够可以再加) MTS与线程——高分相赠!!!! 来看看啊,告诉我再哪里下就给分啊~~ 大对象问题,所有书都是这么说的,可是都作不成功? 如何指定tquery中的某一行? 如何通过API发送翻页按键给控件? 在jbuilder 中 不能通过 创建Ejb Tester对EntityBean进行测试吗?SessionBean都可以的 如何在ie中点右键获得这个ie窗口的window Text以及其主框架的URL。 关于Kdevelop开发 大家讨论一下项目负责人到底该赚多少钱(年薪)? ★★★★★如何在文件下载完毕后自动关闭浏览器??★★★★★ #### 关于CWebBrowser控件 #### 兄弟我要做一个网上银行系统,需要做压力测试,各位有过这样的经验吗??怎么来测试,用什么工具来进行并发访问压力测试? 兄弟我要做一个网上银行系统,需要做压力测试,各位有过这样的经验吗??怎么来测试,用什么工具来进行并发访问压力测试? 菜鸟问题,在线等待,如何让JList显示带gif的文字啊? delphi+access 用ADO连接,为什么在SQL语句中用SUM()时,执行出错?送分 为什么我make时,有错误:'class' or 'interface' expected Dreamweaver mx自带的制作下拉菜单的部题? Interbase字段类型有多少,就这些吗??急呀 Sybase:怎样知道本地的哪些数据库文件已经被连接,和连接的DBN,DBF,ENG。无论是Central还是其他应用打开的,我咨询Sybase公司,还不行 请问如何用ASP.NET或ASP发送会议要求和约会 怎么样在网页上插一个FLASH动画呢 小问题,很快结帖 为什么会出InvocationTargetException ***急购vb6.0控件参考,MFC类库大全(上,下),运行库大全(希望) Applet向Servlet发消息,分别发post和get请求,请问该如何实现 请教,DataGrid实现分页后怎么保存 每一页DataGrid里的checkbox的状态 关于多个radiobuttonlist的选择问题。 Server.CreateObject("LyfUpload.UploadFile") 怎样动态的创建ado.net中的dataadapt和dataconnection? 快看看快,数学平方根题, |a|=-a |b|=-b |c|=c |d|=d |a|>|b|>|c|>|d| |a|=-a |b|=-b |c|=c |d|=d |a|>|b|>|c|>|d| 比较a、b、c、d、-a、 -b、-c、-d的大小 请问 高一生物必修一中 跟着丝点有关的知识点是什么?看上去有很多很复杂的知识点 我不懂 求解答,选ABcD哪一个? a.3 b-3 c-2 d-1 一个多边形的内角和为144,求是几边形 第一个字为黑的成语有哪些 (1+1/2)×(1-1/2)×(1+1/3)×(1-1/3)×……×(1+1/100)×(1-1/100) 某国领土1平方千米,岛屿1平方千米,滩涂1平方千米,内海1平方千米,领海1平方千米,我国领土面积是对少平方千米(只是一样类型,数字改了,好算) 答案是0.4,求过程. 肚子与腹部的区别肚胀与腹胀 已知a²b=4,求ab(a^5b^2-a^3b-a)的值 600字作文音乐的魅力及赏析必须有赏析 肚子跟腹部有什么区别 初三化学酸碱盐练习 答案帮帮忙啊! 1.6乘0.5的积除1,得多 少 仰卧起坐和卷腹的区别急 碳是各种生物大分子中含量最多的元素吗?RT 小明骑自行车1.5小时可骑21.3千米,如果要骑50千米大约需多少小时?急,我会给分数的 若单项式—x的m次y的8次方与2x的2次方y的3n+2次方的和仍是单项式,则这个和是多少? 当a=178,b=53时,求48a-48b的值 请数学大师回答写列说法中,正确的是( )A.近似数6.30*10的四次方精确到百位,有效数字是6、3、0三个B.近似数85.90精确到十分位,有4个有效数字 什么是遗传标志? 乱了夏天蓝了海是什么意思?急那要是把这句话用于恋爱方面是什么意思? 求数学大师回答 已知AB=AC,D是AB上一点,DE垂直BC于点E,ED的延长线交CA的延长线于点F,试说明三角形ADF是等腰三角形 想一个乱了夏末蓝了海的情侣网名 (-4)*(-5)*0. 白居易的生平事迹 乱了夏天蓝了海什么意思? 初一数学选择:a+(-a)=0,根据的是( )a+(-a)=0,根据的是( )A 相反数概念B 有理数加法法则C 有理数减法法则D 数轴表示有理数的显示结果 已知AB=AC,D是AB上一点,DE垂直BC于E,ED的延长线交CA的延长线于F,试说明三角形ADF是等腰三角形的理由 乱了夏末蓝了海 负六加括号负0.25括号乘二十四分之十一, 共显性遗传标记是什么? 一个女字旁加上温的右边,这个字怎么念? 18题为什么选a,初一数学 SNP是怎么作为遗传标记发挥作用的? 白的韩国字怎么写 现在南昌市初中物理教科书用的是什么版本的啊? 遗传题:选择性标记,反选择性标记Hfr:thr+ leu+ Azs T1s lac+ gal+ strs(供体)F-:thr- leu- Azr T1r lac- gal- strr (受体)选择性标记( thr+ leu+)与反选择性标记( strr )为什么是这样呢? 说一下主板内存槽坏了怎么办 晓得的人说下哈,本人先在此感谢大家店0 什么是非典(80字) 3n分之一是单项式吗? 说一下主板内存槽坏了怎么办 晓得的人说下哈,本人先在此感谢大家延6 非典是什么?《我只看见你的眼睛》里的病毒是非典吗 3n/π是单项式吗快我在线等! 问下大家主板内存槽坏了怎么办 晓得的人说下哈,本人先在此感谢大家雇9 分子遗传标记作图是什么 ? 此图 有什么功能?~~~~ m-3n/2是整式吗?如果是请说明原因并说明是单项式还是多项式.-5a,-ab-xy/3,a的2次方减去2ab,m-3n/2,1-x的2次方/2,m/3+1 问下大家主板内存槽坏了怎么办 晓得的人说下哈,本人先在此感谢大家菌1 遗传标记类型? 海峡出版福州市的,2013用书初中语文双基优化训练 文言文部分答案 自然数除以7的规律是什么自然数除以7后的商是一个循环小数,这个小数的规律是什么? a-b=2 求(c-b)^2×4(b-a)(c-a)的值 多边形每个内角等于150度,求是什么多边形 一个自然数除以7的规律1除以7=0.142857142857. 1+1+2+3+******+100=? 高一生物必修一中的生物大分子有哪些及其基本单位 自然数除以13的规律是什么 浙商大会马云成热词 专家论创新力挺淘第二届世界浙商大会 杰出浙商获得者热国际财经一周大事预报美被曝曾就监听亚太寻日本协助尼日利亚多地暴发霍乱疫情 已造成百余杭州绕道上海直飞高雄迎“低票价时代”男子辞公务员被认“异类”:压力大不如伊拉克首都系列爆炸致29死88伤美国记者出书曝卡斯特罗曾否认涉肯尼迪伊拉克首都发生多起汽车炸弹爆炸 至少近年典型捂堵拖事件盘点:山西2起事故第九届两岸经贸文化论坛提出19条共同河南连霍高速大桥炸塌事件至今未公布处纽约华裔社区发生命案5人被杀 死者包伊拉克首都发生多起汽车炸弹爆炸 至少纽约华裔社区发生命案5人被杀 死者包世界主要城市10月28日天气预报最高层着手“顶层设计” 中国周边外交“舞动浙江”华丽登场 我省万人排舞大杭州今晨创“入秋”后最低气温 下周全中共代表团访问澳大利亚印超“印钞”房顶漏雨四年修不好讲座义诊那些过气球星的乐园坚持聚会45年精装 眷侣“僵尸车”男子离婚发现子非亲生 获3万元精神损新疆喀什市爱国宗教人士被害案告破海军第十八批护航编队起航 长白山舰首何为美裳别把科学节办成玩具展莫让七夕节变成“七夕劫”从2比0到2比2 鲁能习惯性“断电”高雄连环爆炸 已有24人遇难比长短“七夕”传说的民俗学真相这些账怎么算为何血糖控制指标不相同从2比0到2比2 鲁能习惯性“断电”“美时洁”牙刷谨慎购买
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘