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

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 里面有详细的帮助。
一个关于乘法溢出问题的探讨 -VB资料 一组VB实用小程序 一组VB应用技巧 隐藏和显示任务栏-VB资料 应用 WSH 读写注册表和建立快捷方式 -VB资料 VB用 IIF 和 SWITCH 以精减代码 VB用BASIC语言设计Windows风格的用户接口 VB用Form 的 Mouse_Move事件来检查鼠标是否在窗口内: VB用RND()函数加密 VB用SendKeys来捉屏 用VB4.0制作软件封面 用VB5 对Windows 95 任务栏提示区进行编程 用VB5读写注册表实例 用VB5开发商品软件的经验谈 用VB5设计多功能计时器 用VB5制作文字上卷效果 用VB6.0实现打字效果 用VB编写DirectX7.0游戏(上) 用VB创建Excel报表 用VB读取和控制Windows的中文输入法 用VB将命令行软件Windows化 用VB进行移位操作 用VB开发CAI软件的小经验 用VB开发分布式应用 用VB切换三个特殊键 用VB生成EXE文件后,如何在后面加上参数?这个参数怎样传给VB 用VB实现动态显示操作进度程序 用VB实现双向循环链表 用VB实现用户登录密码的修改 用VB与MS-Draw开发通用作图软件 用VB制作TopMost类型窗口 做了个网站,希望大家看看!!!www.gz111.net 谁有window blinds的注册码 在DOS下,如何设置成1024 X 768,256色 如何分页显示XML数据岛内容 非常常见的一个问题,现在也没有解决,请高手帮忙。 公司要求学日语,学三个月,没工资,不知道努力学三个月能否达到凑合能用水平 我在昆明的迪信通买了摩托罗拉998++后才发现上当了!! 紧急求救,关于断电 简单:几个子查询合并为一个记录? 请问如何用sql语句查询一段日期之内的数据? 有没有人做过向excel模版导出数据 用户控件之间如何传递参数? help me !!!数据库无法启动!!! java IDE 开发环境有哪些比较小而快? 我的外遇 [zz] 走漏,去内蒙古出差,回头再见兄弟门! 做三维游戏都用什么工具? 各位,等这本书有消息后,我重发贴给你们加分,请问大家关于《Delphi高级开发指南》 asp的access数据库问题!! 急切求助!!!!!!!!!!!!!!!!!!!!! 关于把数据库数据生成excel文件的问题 我对现在的女大学生完全没有兴趣! 这样的人才中国有多少 ? 谁有语音卡驱动原程序 谁用过mp3play.ocx,大侠快来救火? 请问vc程序如何打包,可以在离开vc环境也可以运行? 怎么改变默认的打印机? win2000 下运行dos程序 报直接访问硬盘错误,有无解决方案 如何获取文本文件中的内容? 数据窗口问题求急!!! 有关线程。。欢迎讨论。。。 如何让GUI程序拥有一个console窗口 哪儿有可以加载背景图片的TTrackBar下载? 急!!!!! - 可以多加分 十万火急!!局域网不能访问!!(高分) 为什么程序不能发布成可执行文件? help!出现了很奇怪的现象?为什么我的asp代码不执行 等待高手! HtmlInputFile控件的使用问题 在UNIX+ORACLE+C++环境下开发的程序员的工资问题 怎样判定有几块硬盘!!!求助高手!!!!!!! 950元出售SCJP考试劵(仅限成都市) 我想利用asp中的FileSystemObject对象把一个已存在的文件改名,改成我希望的名字? 挺简单的程序运行错,请指点! 在修改vsflex控件内数据的时,输入汉字需要每次设定输入法,有没有好的办法 急求代码大全的英文电子书,哪位有的?在线等!! 小难题 在UNIX+ORACLE+C++环境下开发的程序员的工资问题 取消地址和工具栏? 诚心请教 工具栏上加下拉组合框的问题 FFDD 2.0 系统件开发规则 冷风机有哪几种? 使用冷风机的好处? 鱼的体形大多呈纺锤形,这有利于什么?增大浮力 减小浮力减小阻力增大阻力 如果将海水电解,变成氢气和氧气之后用来发电是不是最后得到的是纯水可以光解更好 三个同样烧瓶,里面分别放1/4,1/2,5/6自来水,盖带有同样粗细玻璃管胶塞,向烧瓶上同速同部位浇同样多温度水会有什现象产生? 沙尘暴的意义是什么 有一支刻度不正确(但刻度线均匀)的温度计甲,把它与一支标准的温度计乙对比后发现,当乙的示数为20摄氏度时,甲的示数为15摄氏度;当乙的示数为80摄氏度时,甲的示数为78摄氏度,则当甲的示数 沙尘暴天气发生时主要有哪些现象简答:沙尘暴天气发生时主要有哪些现象只要简答出1、2、3、4条即可. 18K黄金项链是什么颜色?昨天买了一个18K黄金项链,怎么像铜的颜色,不是亮亮的金黄色的?当时没注意.是不是假的? 歇后语:冬天的风真冷呀!______(把句子补充完整)歇后语:冬天的风真冷呀!______(把句子补充完整) 如果用玻璃胶将瓷砖粘贴在饰面板上可以吗?会不会热胀冷缩?有没有更好的办法! 为什么会出现沙尘暴 冬天的风吹在身上真冷,______(把句子补充完整) 沙尘暴 科学研究机构有什么部门 甲醇冰点仪的使用方法 冬日的风真冷.扩句 甲溶液中水电离出的 OH-浓度为10-12mol/l,乙溶液中水电离出的 OH-浓度为10-2mol/l,则甲、乙的显性...甲溶液中水电离出的 OH-浓度为10-12mol/l,乙溶液中水电离出的 OH-浓度为10-2mol/l,则甲、乙的显性,PH 为什么会有沙尘暴? 五年级考级必背古诗 差不多70首 只有1天 甲溶液中水电离出的 OH-浓度为10-12mol/l,HCO3-能在甲溶液中大量共存吗,甲能与A L 毛细现象和虹吸现象的原理一样吗? 如何比较两种盐溶液中水的电离程度?比如为什么在NAHS中水的电离程度要小于NACLO3中水的电离程度?打错了,是为什么NAHS中的谁的电离程度小于NACLO中谁的电离程度.不是NACLO3 乙溶液中水电离出的 OH-浓度为10-2mol/l,则乙的显性,PH分别为什么, 如何调节阴道酸碱度? 溶液中水的电离度的题常温下,0.1MOL/L HCL溶液中水的电离度?0.01MOL/L NAOH溶液中水的电离度?以上两者等体积混合后c(H+)=?,此时水的电离度? 人教版六年级上册第四单元习作(要建议书) 格式要清楚 谁能解释一下毛细现象和虹吸现象?毛细现象和连通器原理不矛盾吗? 五年级的《暑假生活》里的第十六天的“用简洁的语句概括苍蝇防病的两大绝招"?快是《苍蝇防病的绝招》这篇文章的节选.从“从显微镜下可以看到”到“科学家感叹的说” 冷风机应该如何选择? 用普通的化学PH纸可以检查尿液的酸碱度吗如果测出来是酸性则表示怀妹妹的可能性很大吗,那如果我老公的测出来也是酸性呢我现在已怀孕,如果我测出来是酸性的话是不是怀女孩子的可能性 怎样判断溶液中水的电离程度比如0.01mol/L的CH3COOH和PH=12的氨水中水的电离程度那个大?类似的问题怎样判断呢? 沙尘暴 我国北方今年的沙尘暴太厉害了 今年有点搞不懂,下了那么多雪,我以为今年可以避免沙尘天气,可是还是来了 为什么会有沙尘暴呢?如何防御沙尘暴 沙尘暴从哪里来 如何增大空气浮力没有体积限制的那种.比如说,令你身边的空气的浮力增大 虹吸现象与毛细现象一样吗 区别 沙尘暴哪里来的 受到的浮力 和增大浮力有什么区别比如说有道题:1.下列四个情景中,浮力增大的物体是(  )A.从河岸沙滩走入深水处的游泳者B.从长江驶入大海的轮船C.海面下正在下沉的潜艇下列四 描写冬天的风的语段 沙尘暴是什么 下列情形中,浮力增大的是( )A游泳者从海水中走上沙滩B轮船从长江驶入大海C海面下的潜艇在下潜D“微山湖”号补给舰在码头装载货物但我选B,B哪里不对吗?再解释一下D为什麼对.可是我记 描写秋天风的语段 ( )的沙尘暴 变频器的作用? 下列各组物质,均属于纯净物的是() A干冰,纯碱,胆矾 B水银,黄铜,白酒 C铁锈,精盐,纯净水 D下列各组物质,均属于纯净物的是()A干冰,纯碱,胆矾B水银,黄铜,白酒C铁锈,精盐,纯净水D冰水共存 其他国家,如:美国,有沙尘暴吗?如何彻底治理沙尘暴?★★★ 请各位更应该多关注沙尘暴的源头-------风.如何用科技改造气候才是重中之中! 氨水中水电离出的c(OH-) 10-7mol/L(填写“>”、“<”或“=”);氨水中水电离出的c(OH-)____10-7mol/L(填写“>”、“<”或“=”); 请问黄金火烧变白了后是真假?我买了个千足金的黄金项链,19克,今天自己用打火机烧了一下,变白了.是假的嘛? 请根据生态平衡原理提出治理沙尘暴的措施 酸溶液或碱溶液中水电离出的H+和OH-是不是小于10-14?看清楚仅仅是水电离出的!另外是不是溶液中的H+和OH-的乘积仍然是10-14?(仅受温度影响?)答得好的追加! 黄金烧过发黑的原因?(不是打火机) 水中漂浮一船,把池底的石块捞于船上,水面怎样变化?why?假如捞出来的是悬浮或漂浮在水中的物体呢? 水电离产生的c(OH-)/水电离产生的c(H+) 1*10~-7mol*L-1,则一定是盐类的水解促进了水的电离 问一下加变频器有何作用?什么情况下必须要变频器? 【帮帮忙】给你一支带橡皮塞的试管、一根弯成直角的细长玻璃管、红墨水、胶头滴管、酒精及请你设计一个实验来验证液体蒸发时要吸收热量的,要求画出实验图并阐述原理. NH4Cl中水电离H+与OH-的浓度是否相等? 黄金手链用打火机烧过后 变黑了 是假的吗一天黄金手链 用牙咬会有牙印 也很软可以弯着 我在同一个地方折了很多次 这端掉了看到里面也是黄色的 但是外表好像是一层黄色莫的,可以撕开 有一支刻度不准确(但刻度线均匀)的温度计甲,把它与一支标准的温度计乙对比后发现,当乙20℃甲15℃,当80℃甲65℃,(1)请问当甲-2℃,乙实际温度为( )℃(2)有没有存在这样一个温 电饭锅电路?与保温氖灯中联的电阻值是多少?与煮饭氖灯串联的电阻值是多少?因为保温灯不亮不知是氖灯坏了还是与它串联的电阻坏了,.氖灯如何用万用表测量好坏? 鱼所受浮力的大小与什么有关?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘