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

VB用 MAPI 控件实现发送邮件

HTML文档下载 WORD文档下载 PDF文档下载
VB用 MAPI 控件实现发送邮件
作者:影子
1.所需控件 MAPI 控件(两个都要,默认Name),CommandButton 控件(默认Name,Caption为“发送邮件”)。
2.声明变量如下:
Dim strMailAdd As String '收信人地址 如:yingzi007@21cn.com
Dim strAddName As String '收信人姓名 如:影子
Dim strSubject As String '发信的主题 如:VB爱好者乐园欢迎您
Dim strNoteText As String '发信的内容
Dim strMailToo As String '发信人地址
DIm strTooName As String '发信人姓名

3.程序开始
Private Sub Form_Load()
strMailAdd = "yingzi007@21cn.com" '收信人地址
strAddName = "影子" '收信人姓名
strSubject = "VB爱好者乐园" '发信的主题
strNoteText = "中华人民共和国万岁" '发信的内容
End Sub

Private Sub Command1_Click()
MAPISession1.DownLoadMail = False '不立即进入用户的收信箱(非常有用的,不信你设为 True试一下)
MAPISession1.LogonUI = True '显示一个启动动话框
MAPISession1.SignOn '这因该算激活吧,注意:不要把FoxMail在IE中设置为默认电子邮件,否则会出现错误
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose '构成一条消息
MAPIMessages1.RecipAddress = strMailAdd '收信人地址
MAPIMessages1.ResolveName
MAPIMessages1.RecipDisplayName = strAddName '收信人姓名

MAPIMessages1.MsgSubject = strSubject '发信的主题
MAPIMessages1.MsgNoteText = strNoteText '发信的内容
MAPIMessages1.AttachmentIndex = 0 '当前附件的索引位置
MAPIMessages1.AttachmentPathName = "d:\1.mdb" '附件的路径

MAPIMessages1.Send '开始发送
MAPISession1.SignOff '可以算成关闭吧
End Sub
4.大功告成,你可要试一下其实要编写一个发信的程序,不需要懂什么TCP的,VB 里有许多好的控件可以帮助咱们这些初学都的忙!!
5.补充:如果你还要加其他的功能,就看一看 Mapi98.CHM 里面有详细的帮助。
保益互动创始人曹军:听到的世界更精彩,盲人应用背后的故事 Gumi公司CEO国光宏尚: 大公开!日本手游市场攻克方法! Great Hill Partners高管Chuck Goldman & 南京创毅CEO William Wei:超越黑莓——下一代企业移动 高通业务拓展副总裁沈劲:智能手机2.0——以体验为中心 百度副总裁李明远:百度轻应用——长尾APP的最佳选择 中国工程院院士李德毅:大数据时代的认知计算 创新工场联合创始人汪华:2013年中国移动互联网进入深入区 百度副总裁李明远:解答关于百度轻应用的八大疑问 谷歌推出PNaCl,帮助开发者在任何硬件和网站上运行代码 阿里云:双十一350亿交易额的幕后英雄 索尼移动智能设备全球技术总监Goran Andersson:索尼移动可穿戴设备解决方案 腾讯社交网络事业部副总裁陈磊:腾讯移动开发者服务体系 基调网络副总裁陈靖华:全面掌握移动应用性能 蓝港在线创始人王峰:手游新时代下的机会与挑战! Couchbase CEO Bob Wiederhold:数据库云端同步,移动应用开发的未来 三星电子大中华区副总裁黄伽卫:构建移动互联生态,解读内容服务新方向 MDCC 2013移动开发者大会:新浪潮,新硬件! 网站建设,如何平衡产品特性和利益需求? 开发者是如何提升技能水平的 Databricks核心成员专访:大数据时代“智能手机”Spark 数据密集、快速启动、核心应用,IBM存储重兵布阵 企业移动应用与BYOD:移动互联大势所趋 “首届智能硬件峰会”上午会议亮点汇总 代价究竟高不高,苹果为什么要在Android专利诉讼上花费2亿美元? 产品与设计专题论坛(下):App之美 产品与设计专题论坛(上):扁平还是拟物?产品说了算! 首届移动娱乐游戏峰会:中外手游的交锋与对抗(下) 研发人员超过500,基金会金牌会员,华为豪赌OpenStack New way of thinking:索尼SmartWatch 2应用开发马拉松大赛圆满结束 离了你地球照样转,谷歌地图并非苹果的必需品 面试必备的9大成功秘诀 有关ASP+ACCESS的查询数据出错,报错 “超出系统资源。 ” java界面控制 求一用php实现压缩/解压缩的程序. 请问在WORD200中有什么好的方法在下划线中输入文字,而下划线不随字体而改动? Excel中保护工作表? 请问使用16倍速的刻录机能刻32倍速的盘吗 MYSQL如何实现自动删除数据库中的记录 紧急提问:CB中那些类用.操作符 请问一个概念的问题:??????????????????????? 如何生成报表文件啊? 装了oracle8i以后怎么登陆不了? 如何按照记录号转到指定的记录?不用SQL 用过magicskin的请进。 无法于数据库建立信任连接的问题_高分有送! 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? 手机掉到马桶里你会怎么办? 各位前辈帮忙看一下这个语句怎么解决(这是一个关于SQL语句的问题) 请教 java 命令的用法 用session跟踪用户的问题。 Xml中查找最大值! 请PHP高手推荐几本高阶的PHP书籍 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? Unicode问题 str:=#0+'9'+#0+'5'+#0+'8'+'~'+#207+'m'+'N' 在线等待。。 定位文件指针? 如何用ADO动态建SQL数据库 哪有 《Visual C++ 实践与提高——COM和COM+篇》下载 iis 为啥总出现 "the special module not found" 学习powerbuilder8.0 看哪些书比较好? 200相送,问题简单 一个使用用户空间控制流程的问题,望各位帮忙解答,小弟感谢不尽,在线等待 iis 为啥总出现 "the special module not found"(补充) 菜鸟问题---applet中的Runable方法, 紧急求助 装机:双敏的UKT400N主板性能怎么样?有啥缺点?适合超频吗? 请问vc编制数据库问题:如何读写binary字段 Chinajiji,看过来!多谢惠寄ISO/IEC 14882 请教各位高手用replace函数替换字符串时如何将颜色也变掉 SQL7.0备份的数据库如何在SQL2K中恢复? 如何改变编译出来的.exe文件的名称 谁有这样的矢量图设计系统例程可以参考参考? 谁有AVL树的代码呀。大家来讨论AVL树呀。呵呵 Maya 新手 哪位大侠能提供矢量图设计的例程! 请高人指点这个题目该怎么解决? 打包打包~~~~~什么是打包?? 多文件上传,一个很奇怪的现象! revalidate();怎样用? 怎樣得到系統的所有根目錄(如 C:,D:,E:),及根目錄下的所有子目錄. 求将excel文件导入notes数据库的方法(最好有例子),分不够可以再给! 小弟欲购编程器,各位大侠给点意见,大分相送,绝不亏待! 100分求教 荒漠中生活的骆驼刺,它的根扎的很深,这是对什么环境条件的适应( )我很急啊``````````````` 京瓷复印机8030这款机器怎么样? 在Rt△ABC中,∠C=90°,AC=5,BC=12,○O的半径为3(1)当圆心O与点C重合时,○O与AB的位置关系怎么样谢 用一根铁丝,可以围成一个边长为六分米的正方形,如果用这根铁丝围成一个长方形(长和宽都是整分米数),那么有多少种围法?每种违法的面积是多少 有时听到中东地区,亚太地区,这些地区是怎样划分的?地球上还划分有哪些地区?您有划分的图片吗? 三角形+三角形+三角形—圆形—圆形=75 圆形+圆形+圆形—三角形—三角形=5 三角形=?圆形=? 在干旱的沙漠中,骆驼刺地下的根比地上的茎长很多,造成这种现象的主要非生物因素是? 室温25度时,1千克水,水温从室温下降到0度,所需能量是多少?最好提供计算公式 在Rt△ABC中,∠C=90°,AC=5,BC=12,○O的半径为3(1)当圆心O与点C重合时,○O与AB的位置关系怎么样拜 工作中写请假条该怎么写? 建筑电气中NHW-4*150-CT/SC150 已知三角形与圆形的重合部分占三角形面积的5分之1,占圆面积的9分之2求三角形与圆的面积比.热求 快 在录制一段音频时,仅提高量化位数将怎么样在录制一段音频时,仅提高量化位数将( )(A)降低该音频的音质,减少存储容量(B)降低该音频的音量,对存储容量不产生影响(C)提升该音频 问一下建筑电气设计中ZR-YJV-4*185+1*95-SC150-FC是什么意思啊?还有Vigi NSE 400N 4P/350 EL ,Vigi 500mA,0. My parents are b____English teachers 乐在其中 作文 600字以上 一个球场长50米,宽20米.把它画比例尺是1:500的图纸上,长和宽应该画多长? 翻译 地震使整个城市成为一片废墟.(用in ruin) 关于音频保真度与量化位数的问题某用户要录制一段音频,采用下列采样频率和量化位数,能使该音频保真度最高的是(A)44.1kHz,8bit (B)44.1kHz,16bit(C)44.1kHz,24bit (D)44.1kHz,32bit求详解.知道 一个球场长50米,宽20米,把它画在比例尺是1/500的图纸上,长和宽各画多长? 英语翻译十万火急!一小时内... 音频中的量化比特数的含义视频中的量化比特数是决定每个像素颜色的种类但是音频中音色是由频率决定的啊?那量化比特数决定什么? 以《我乐在其中》为题写600字的作文!(最好写关于过年的) 辛亥革命征文比赛 800字 乐在其中作文600字 二次函数配方y=-x2+x+1如何配方? “几乎一片废墟”用英语怎么说? 请假条回家本人请假回家几天写仿请假条 BLOOD-C文人为什么要和小夜打赌 玉树地震发生后,许多人被困在废墟下面.翻译成英语怎么说. 想回家请假条怎么写 运动会加油词咋写 ? 自己丰富才能感知世界的丰富,自己善良才能感知世界的美好,自己坦荡才能逍遥地生活 请假条的写法奶奶去世 运动会的加油词怎么写 英语翻译谢谢聪明的人帮我翻译下,不要啰嗦的, 延字共有几画,第四笔是什么,用音序查字法先查什么 关于勤奋的话题作文 【歪批译吧】自己丰富才能感知世界的丰富英文 如何算量化分辨率计算机要对声音信号进行处理时,必须将它转换成为数字声音信号.最基本的声音信号数字化方法是取样——量化法.若量化后的每个声音样本用2个字节表示,则量化分辨率是 “戈”下面一个“鸟”怎么念? 哪个洲的国家最多,哪个洲国家最少,哪个州没有国家 请问一般的量化软件都能直接得出什么结果?比如高斯可以直接得出分子电子态的能量值,还可以得出什么? 不计热量损失,将80千克的水从30度加热至90度,需要多少度电?为什么加热到60度和90度的水用的电一样? 在100件产品中,有98件合格品,2件次品,从这100件产品中任意抽取3件,恰好有1件是次品的抽法有多少种?要求有过程.快! 100字左右的英语自我介绍六年级水平 中东是属于哪个州的啊? 在100件产品中,有98件合格品,2件次品,从这100件产品中任意抽取3件恰好有1件是次品的抽法有多少种 一段路程为s,一辆车在通过前2/3s的速度为v1,通过后1/3s的速度为v2,则汽车在全程的平均速度是( ) 二次函数怎么配方 东周的都城是? 第九届全国创新英语大赛怎么翻译 养龟所必备的仪器,什么加温棒什么的? 初三几何圆与三角形AD是ΔABC的角平分线,以D为圆心,AD为半径作⊙D交AB于E,交AC于F,AD=AE=2,BE=1,求AC的长 1:2000的平面图怎么换算,图上距离是15厘米,换算出来是多少米. 加热棒100W一个小时耗电是多少度或者是一天耗电多少度 问三角形是多少,圆形是多少 什么歇后语形容身在危险中却毫不知情 女同学的力气比男同学小,用数学上可能性的观点回答:是一定还是可能 三角形的个数是圆形的4分之5三角行有多少个? 俄罗斯严防“黑寡妇”袭击 确保冬奥会德国政府代表批评日本:对东亚紧张局势日本未从日俄会谈获实质成果 牵制中国教育经费管理存在多项问题 回应质疑制日本未从日俄会谈获实质成果 牵制中国多地汽车限行 分析称重污染后实行不会德国政府代表批评日本:对东亚紧张局势北京雾霾刚去 寒衣节不少市民当街焚烧樊纲:中国经济软着陆基本完成 最低谷跨界污染仍存争议 外媒称中国正努力解人民日报批部分地方干部:不要再为GD新领导层上任一年盘点 具梦想家气质与联合国报告称逃至黎巴嫩的叙利亚难民超跨境人民币结算业务范围覆盖全球98%欧盟规范产地国标签 德国制造或变中国德或成“五只眼”新成员国 美德协议分缅甸穆斯林赴邻国避难遇海难 或死伤惨美机场枪手行凶细节被曝光 短信透出厌泰国一艘双层渡船沉没 一中国游客丧生公募基金会陷转型困局:筹资难 执行效孙杨被曝年初就已无证驾驶 曾承认会开服气!剪了短发的徐璐随便P个滤镜都能高散如何定制自己的近视镜?据说,这5种怎么都吃不够的美食,过了这才是苹果的第一款手机 百分之九十九建筑钢材借势互联网 实现移动营销《七种武器》之霸王枪——G.SKIL没有捷径,一定要好玩.经济大萧条前最后的狂欢!存在了101年的地下小镇,也许是澳大明日注意把握一类股低吸机会荷兰旅行热门小渔村为何立起中文标识“民航局:旅客买票后航空公司应及时推送习近平总书记引经据典谈反腐:将教天下南京一高层外墙起火 5个消防队联合扑对待明日盘面走势的两种方式八部门重拳出击 斩断“号贩子”利益链台媒:台税务部门网站涉嫌抄袭《疯狂动赵薇晒黑白自拍略显憔悴 称自己自拍上EIA撞上小非农 谁是赢家:油价?美招行信用卡利息怎么算?5月5日股市大盘走势预测:明日行情三
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘