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

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 里面有详细的帮助。
2013中国云计算榜单之一:15云平台,谁主沉浮? 移动周报:百万壁纸、85后程序媛,我为梦想代言! 电信天翼开放平台:为App开发者免费提供云存储和云主机服务 Google新的Web UI库:Ploymer 研发周报:让开发者高效编程的10个新框架 拯救行将就木的PHP:谷歌为GAE添加PHP支持 PPT集萃(一):10位业内高管分享云计算技术理念与行业趋势 得益于苹果谷歌,未来可穿戴技术市场规模可达500亿美元 雅虎11亿美元押注Tumblr三大因素:用户、社交、内容 Perceptual:英特尔感知计算挑战赛 正式启动 吴义坚:创业去!我用深度神经网络,处理语音识别 浅谈用户体验的“反面模式 可穿戴设备又一站:增强现实眼镜CastAR 数字医疗投资将破纪录 投资人看好这些细分领域 Mayer又下一城:雅虎收购Tumblr推进移动化? 前端开发利器:代码预处理工具Prepros 一个轻量级的JavaScript库:Reactor.js [探讨] 用户体验设计师现在面临怎样的机遇和挑战? PPT集萃(二):淘宝、CloudStack等分享的架构经验与最佳实践 2013中国云计算榜单之二:64家云主机+云存储,错综复杂! 看Java技术基础的eBay如何评价他们的Node.js首次尝鲜 Jolla发布首款Sailfish系统手机 无缝兼容Android应用 NPD:全球智能手机出货量2013年将首次超过功能手机 聚合数据左磊:不走寻常路 做国内最好的数据聚合平台 从程序员到软件商 需要注意些什么? 共享软件海外营销策略与实战(上海站) 直接拿来用!最火的Android开源项目(完结篇) 一步加入云生态系统 参加第五届中国云计算大会的十大理由 传苹果iOS7将深度整合Flickr 用户受益最大 Chrome 27来了:页面加载快5% 可同步数据到Google Drive 微软发布新一代游戏主机Xbox One 搭配全新Kinect 2.0体感系统 从windows进入unix Oracle 中文输入 是否onkeypress和onkeydown不能同时使用呀? Delphi 5下要做一个多 Y 轴的曲线图形,如何实现? 哪有xteamlindows下载?? 万分感谢!!!!! borland 会不会出一个 C# Builder? 乱码,头大了,不知道为什么pb导入excel怎么办 数据统计问题,请大侠门帮忙!急急急!!! 求解ZModem通讯协议源程序----有谁用过CZModemCore 我也不知道对不对! 最高级的问题?搞一个专业的VC程序员基地~~~~~~ 在研究directshow filter的push模式的兄弟请进 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了 有两个问题,每题40分,马上给分!!!! 如何使用打印机? 在爱情方面谁能做到这一点? 谁有 file cutter v1.4的注册码? 有急用! 搞一个专业的VC程序员基地~~~~~~谁愿意加入????? 最新发现:原来C++Bilder的项目文件(.bpr)是XML格式的! 关于FAT32和NTSF的问题 如何用VC实现Email的发送? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了! 搞一个专业的VC程序员基地~~~~~~需要网页制作高手!! ADO 的用法 m_pRecordset->Fields->GetItem(index)->GetName() 关于CRichEditCtrl的问题之二,取的当前可见行数? 请问在哪里下载IMAIL SERVER???各位帮帮忙!!! 高手请回答,ADO和BDE到底有什么区别,你选择谁?为什么? 高分求教!!!!!!!!!!!!!!!!怎样得到局域网上所有的机器名?(普通WINDOWS网络,用VB?,好象用WNET API可以的) 如何安装com.ibm.bridge2java.*这个包阿? 有人吗???求救! 你也许也会遇到这样的问题? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题!!! 大虾看过来. 一个access表一万条记录,想转到Mysql下(Mysql在Linux下)用什么方法和什么语言来做好? rs.CursorLocation=aduseclient是什么东西? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题! 简单SQL,免费送分! 用ASP如何上传文件,可以用组件。 谁知道怎么改运行中的程序的托盘图标???我用SysTray.ocx不能改? 新手提问,简单题目,大量给分~~~~~~~~~~ 如何使用getdispatch(), 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题!! 关于在一个窗口中的多个数据窗口的问题 扔块砖头, 开个场子 。 ( yeti_lee ) 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了? To: baicolt(五岁的小新是我师傅) 有没有人用过Jcreator 如何在sql server 的查询分析器中用sql语句转到另一台机器上的数据库,同样了sql server的 是不是MSHFlexGrid的bug? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了?? 一张地图的比例尺1比200表示图上的什么表示实际距离的 6吨等于多少克 在比例尺是1:5000000的地图,上量的甲、乙两地的图上距离是6厘米,把它画在比例尺是1:3000000的地图上,应画多少厘米 一幅地图的比例尺是200:1,图上120厘米表示实际距离是()米一幅地图的比例尺是200:1,图上120厘米表示实际距离是( )米 一根绳子第一次用了全长的1/4,又用了5/2米,这时已用的/剩下的=2/3,绳子长多少米 1根绳子,用去5米后,剩下的长度是用去的百分之八10,这根绳子原长多少米? 华北平原种植的粮食作物以什么为主 一根绳子第一次用去全长的1/5,第2次用去3/5米,两次共用去这根绳子的1/2.这根绳子长多少米? 在1:5000000的地图上,量得甲,乙两地的图上距离是6厘米,把它画在比例尺是1:3000000的地图上 应画多少 华北平原的主要粮食作物是什么?1.水稻 2.大豆 3.高粱 4.小麦 上海到杭州的实际距离大约是150千米,在一副比例尺是1:3000000的地图上,两地之间的距离是多少厘米?随便帮我把答案算出 在1:5000000的地图上,量得甲、乙两地的图上距离是6cm,把它画在比例尺是1:3000000的地图上,应画多少厘米? 华北平原的主要粮食作物是? 在一幅比例尺为1:3000000的地图上量得上海到杭州的距离为5cm,把它改画在比例尺为1:5000000的地图上,上海到杭州的图上距离是多少厘米?(如果不会,不妨用方程试试!) 小学换算公式0.4千米=( )米1200米=( )千米284克=( )千克532厘米=( )米1480米=( )千米1.5千米=( )米1670米=( )分米1.48千米=( )米 你知道华北平原的人们种植的主要农作物有哪些?你的判断依据是什么? 在一幅比例尺是1比5000000的地图上,量的上海到杭州的距离是3.4厘米.上海到杭州的实际距离是多少? 一根绳子长8/7米,截5次后,剩1/8米,平均每次截几米. 4*7等于多少? 在一幅比例尺是1:5000000的地图上,量得上海到杭州的距离是3.4cm.上海到杭州的实际距离是多少 60秒等于多少小时? 请问1mbar等于多少kpa 在一幅比例尺为1:3000000的地图上量得上海到杭州的距离为5cm,把它改画在比例尺为1:500000的地图上 60小时等于多少秒. 200磅等于多少KPA 700米 800米等于多少吨? 12亿秒等于多少小时?或等于多少天? 当氮气大量增加会改变空气吗?会影响大气压吗?吃的面包包装是那种充气式的,一撕开袋子气体唰得一下全跑了出来,袋子就变瘪了.上网查了一下,像薯片、面包这种充气式包装充的一般是氮气. 100升等于几千克 15米长的绳子,用去五分之二,还剩()米?一根绳子,用去五分之三米,还剩12米,这个绳子()米?一根绳子,用去四分之三,正好用去15米,还剩()米? 6升150兆帕的氮气等于多少大气压 5060克等于几千克几克 在一幅比例尺是1:8000000的地图上.量得A、B两地之间的距离是3厘米.A、B两地间的实际距离是().A.80千米 B.2400千米 C.240千米 容积为20升的钢瓶中,装有150个大气压的氧气,现将氧气在等温条件下分装到容积为5L的氧气袋中,氧气袋原来是真空的,要求每袋氧气均达到10个大气压,设分装时无漏气,则最多可装几袋 压强1Pa等于多少克的压力 一幅地图上的比例尺是1:2000000,把它改写成线段比例尺是( ),在这幅地图上量得A、B两地的距离是15厘米一幅地图上的比例尺是1:2000000,把它改写成线段比例尺是( ),在这幅地图 如果空气中的氧气都没了那么大气压是多少为什么? 1200克等于几千克几克 一根绳子,先用去40米,有用去余下长度的五分之二,这时余下的绳子正好是原来总长度的三分之一.这根绳子原来长多少米?(不要用两边都有X的方程) 有2根绳子共长63米,减去第一根的3/5和第二根的7/9,还余下共22米,第一根长多少米? 在一幅比例尺是1:200000的地图上,量得甲、乙两地距离20厘米.如果在另一幅地图上,甲、乙两地距离8厘米.另一幅地图的比例尺是多少 在比例尺是1:3000000的地图上,量得两地的距离是6cm.甲、两辆汽车同时相向开出,4小时后相遇.已知甲、乙两车的速度比为4:5,求甲、乙两车每小时各行多少千米? 一幅地图的比例尺是1:30000,说明图上距离是实际距离的什么,实际距离是图上距离 什么倍,图上1cm的距离表示实际距离( )m. 许伯伯承包了2公顷土地,他把其中一半用来种植棉花,棉花的种植面积是多少平方米?还有一道:一个储水器中装有2m³纯净水,如果把这些水分撞到容积为10升的水桶中,可以装多少桶? 在一幅地图上,比例尺为1:300000,量得A、B两地的距离为18厘米,则A、B两地的实际距离()千米 下面是某农场各种农作物种植面积的统计图,看图回答问题:己知粮食作物比经济作物多312公顷,这个农场一共有耕地多少公顷?三种作物各种植多少公顷?(粮食占总数的60%,其他作物占6%,经济 许伯伯承包2公顷土地,他把其中一半用来种棉花,棉花的种植面积是多少平方米? 1十1等于多少 一根绳子,第一次用去全长的15%,第一次用去全长的25%,还剩下8.4米.这根绳子原来长多少米?判断,打√,×.1、女生和男生人数的比是4:5,女生人数比男生少25%.( ) 2、甲数是乙数的2倍,那么甲 一根绳子长60米,第一次用去1/3,第二次用去1/4米,还剩()米 要过程 请问:工作压力:10Kg/cm2 (十千克每平方厘米)等于多少KPa怎么换算的 1pa等于多少公斤 一根绳子长100分米第一次用去3分米;第二次用去40分米;还剩多少米 0.02kg/cm2等于多少kpa?最好说明详细计算方法, 1pa等于多少牛每平方米 一条绳子长15分米,第一次减去他的1/3,第二次减去它的1/2,还剩多少米 1kg/cm2等于多少kpa/0.01mm 1pa等于多少每平方厘米多少克 7磅 多少克 压力单位50psi等于多少kg/cm2 还等于多少kpa
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn