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

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 里面有详细的帮助。
百度开发者俱乐部第六期:BAE3.0开放内测 云编程马拉松启动 微软宣布将于今年9月30日正式关闭MSN TV服务 程序员不应该再犯的五大编程错误 中国开源事业,路在何方? StackOverflow上的编程趋势 Oracle悄然将Berkeley DB许可证更改为AGPL 简单易用,保护隐私:麻省理工的邮件数据挖掘分析工具Immersion Microsoft Ventures进入中国,为云生态系统构建提供加速度! 这是场战争:盘点那些参与智能手表竞争的厂商 三星豪掷80万美元奖金 第二届全球开发者挑战赛开幕 MongoDB Map Reduce速度提升20倍的优化宝典 腾讯云总经理陈磊:可信任云服务背后的技术支撑力 “叫好不叫座”的石墨烯也许会给我们带来更清凉、更长寿的计算机 微软WPC 2013:Windows 8.1将于8月底提供给OEM合作伙伴 TIOBE 2013年7月编程语言排行榜:PHP强势回归 扁平化设计或成下一个流行趋势吗? 永生、登天、出唱片、开托儿所,IT大佬业余还玩什么? 终于盼来了:苹果iOS7 Beta 3、Xcode5预览版 可堆叠的创意 开源硬件Microduino开发团队专访 致任天堂的公开信:我想在iPhone上玩超级玛丽 为什么OpenStack被视为新的Linux? Netflix开源Pig可视化框架:Lipstick Tangle:一个开源的数据交互式JS库 云储存服务Dropbox用户达1.75亿 旨在同步而非保存 Windows Server 2012 R2里十个极好的新功能 走向台前的地图服务 彰显LBS应用的创新力量 调查显示:1/5的企业采用SDN技术 Chrome 28正式登陆Windows及Mac 成首个使用Blink内核的浏览器版本 不只是Chrome,Firefox也开始支持Web Audio API 验证HTML的5个原因和5个资源 微软WPC 2013:Office 365融合BI,Cloud OS加速,Intune折扣,SQL高版本数据库等 请问会delphi,c++builder,Vc 现在去北京好找工作吗,工资应该会是多少阿,谢谢 RPC服务选项变灰色,与注册表的哪项有关? 想学LINUX,请推荐好书 能不能捕获某个窗口的图像,即使在这个窗口被其他窗口挡住的情况下? 找mp3 test 程式,出測試方案(請相關高人指點) 我来搬救兵的:导出数据窗口数据,然后图片(工具栏)不可以显示。 win2000安装问题 c在c++中出现的奇怪问题,请高手帮忙解答 MSMQ如何在从远程外网取消息队列的消息?? 用sql语句来对数据的随机读取(在线等.......) 使用ICS共享上网,ICS会自动给客户机分配IP,如何知道这个IP是多少? 一个控制窗体不能通过鼠标改变大小的问题 这是什么 wrox 的书的源码下载怎没有-up有分 求助,JSP+Crystal Report9.22问题。怎么导出EXCEL格式 CSDN的朋友,您如果有时间,给我写一个,快速傅立叶变换的程序把。 二叉树问题 谁对zope,cmf 有研究,谈谈设计思路? 问一下用过VB的人几个问题,谢谢先 关于显示千分位的问题 win98拨号服务器问题 你竟然不回我的短信! 如何在Datagrid的最后追加一行,这一行放多个文本框,用来添加新数据 谁有可垂直居中的QRLabel? 怎样通过程序模拟网页post数据到一个servlet? wrox 的书的源码下载怎没有-up有分 《我们共同的容闳》专辑明天在央视国际频道播出 程序发布问题,大哥大姐来帮忙呀 在线咨询:用ATL做ActiveX控件,能不能让控件是个多文档界面程序。 谁记得这道题是怎么解答的? 申请www开头的域名都是收费的吗 苦恼!考研还是工作! 短信产品:CMPP接口、SGIP接口、CMPP代理网关、计算机与手机连接的短信群发 你是不会知道的!! acrobat pdf 不能打印 怎样使程序发生异常时不弹出带红叉的窗口,异常可采用日志文件记录? 我下载了mysql-3.23.57-win.zip 安装在win2k server下为何不能用? 妹妹求救:用什么软件可以编辑.dll文件! 帮帮忙 高分求VS.NET2003正版中文版下载 XML数据导入到SQL Sever数据库 IIS运行不了ASP.NET文件,怎样做呢? oracle8i安装问-在线等待-急 怎么开启dbms_output的功能。 如何批量运行插入语句??? 数据库输出的问题 关于DELPHI 与 .NET 怎么样可以使CStatic类定义的对象变成灰白的,即disabled掉,不准在资源中改。 请教一个关于文件的问题~~ 如何将UTF-8的编码变成gb2312的编码 为什么用ADOQUERy进行查询,时间超过40秒时便出现超时连接 我发现了一个很奇怪的事情为什么人们总是在夸完自己多么好以后,才说“好汉不提当年勇”这句话 貌似这句话也是在夸自己 奇怪的事情?商店里 的 宝宝 变掉了……? 弄到几只嘎牙子,学名黄颡鱼,请问如何养活. 这好像是一个方言! 做什么样牙子最好?我挨两颗蛀牙两颗都挨拔,现在不知道该补什么样的牙,听说烤瓷牙不好,可是经济能力不好,不有什么便宜又好的牙子?是后面两边的蛀牙 北大ACM第1006,我用C语言写的,调试时都是成功的为什么提交时出现Wrong Answer;请各位C语言大虾们看看人生来就有三个生理周期,分别为体力、感情和智力周期,它们的周期长度为23天、28天和33天. 小明准备了30道数学智力题,第一周做了总量的5分之1,第二周做了总量的3分之1,两周共做了多少题? 一本书共有150页,小明第一周看了全书的2分之1,第二周看了第一周的5分之4.小明第二周看了多少页? 皮牙子能和鸡蛋炒么? 洋葱(俗称“皮牙子)对身体有什么好处? 伯牙绝弦的意思和伯牙子期的朝代 近54000人次登陆本网答题 打击传全球“闹鬼”欢庆万圣节(图)36岁辣妈安室写真似芭比 甜美红唇诱日本超2成年轻职员认为就职于黑心企业美国一名女子因戴谷歌眼镜开车遭警察处民调显示日本近1/4年轻人称自己在“美国一名女子因戴谷歌眼镜开车遭警察处F35中距离导弹试射成功 日本自卫队俄罗斯警方逮捕一名系自杀式炸弹腰带男F35中距离导弹试射成功 日本自卫队美国一航天飞机“追梦者”试飞降落时滑90后纯情少妇居然出轨!只因隔壁老王素炒鲜茹泪目!单身很久的10个感觉年末聚会倒计时 亮白美肌秀出来如何才能迷倒五大洲和四大洋的白人妹纸新生宝宝腹泻时都有什么症状?羡慕“长腿欧巴”?让Wonkiso帮开瑞K50S正式上市 售5.58-7幻术专家 火影忍者手游夕日红技能属性炉石传说冬幕节来啦!特别活动内容大放随朴宝英雪贤李侑菲 打造聚光灯下的光百炼神工救赎之本草记黑暗世界夺取信仰日风流大明游戏领主要革命末日行尸之浩劫大宋桃花使辰迷穿越记魔物娘养成计划都市仙猎恩阳旅游霍山旅游广昌旅游浪卡子旅游建阳旅游白玉旅游屯昌旅游闽清旅游龙兴旅游广丰旅游富平旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘