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

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 里面有详细的帮助。
VB5中DBGRID控件在VB6中使用 VB与MS-Draw开发通用作图软件 VB中APP对象及其应用 VB中list控件的功能扩充 VB中用Multimedia MCI控件开发多媒体应用 Win Api在VB中的妙用 WINDOWS SCRIPT HOST对象在VB中的使用 安装向导生成程序组并建立多个程序项 -VB资料 保存复选框选项-VB资料 不用OCX来创建自己的控件(一)-VB资料 成组更新控件属性-VB资料 VB创建数据驱动窗体 得到鼠标位置 -VB资料 动态加入控件到VB控件数组中 对ListView中的列排序-VB资料 放一个Combo到Toolbar中 -VB资料 改进VB的驱动器列表框 给TreeView控件添加弹式菜单 -VB资料 计算从开机到现在用了多少秒-VB资料 将立体的ListView标题栏转换成平面式的标题栏 -VB资料 禁用窗体上所有控件 -VB资料 拷贝或移动列表框或组合框中的内容-VB资料 利用VB5开发ActiveX控件 利用VB三维面板控件设计流动条 浅谈用VB6.0编写BO程序 巧用Visual Basic的TIMER控件 VB取得控件绝对Top值 VB如何解决VB中的Grid 控件的打印问题 VB如果自定义 MsgBox 的按钮,标题等 VB如何创建数据绑定控件。 VB如何解决VB中的Grid控件的打印问题 Session会无故消失!! 请大家注意FAQ的提交! ---如何在linux下编译IDL文件--- 求Rational purifyplus for Linux 的license 简单sql语句问题 VB编译好的程序为何不能在没装VB上运行? vector&父类子类的问题 有关三角矩阵乘法 如何编写ASP类? servlet调用Oracle,如何使用jdbc直接进行连接?高分相赠 我的2000 pro 总是出现超频保护 大家快来接分了!!!! 怎样让一个窗体总是在桌面的最前面,不会被其他程序的窗口挡住? 送分啦 dshow的入门级问题,请指教 那种开发工具开发效率较高 xp的问题 "处理中的数据超过允许的极限"是怎么回事? 为什么我的.net在建web工程设置断点后无法调试,加上了button后无法显示。谢谢了。 我现在大概有10万资金,可以做什么投资回报比较大呢?? 请教关于动态控件内存释放问题~(老问题新谈,高手请进)~~ SQL的一个问题!(高手请进!!!) 发个笑话,爆笑(转贴) 通过远程视图不能修改记录 cet-8跟英语专业八级是一回事吗? 关于图象处理 急急~~!!在哪儿能下载Flash插件呢!! 如何设定一个窗体的弹出广告在找开后自动关闭 水晶报表一对多问题?? 一个关于表单提交的超级简单,超级奇怪的问题? 怎样实现vb6中datagrid控件的打印 SQL select 语句如何对images进行操作? 怎样实现vb6中datagrid控件的打印 水晶报表一对多问题?? 使用oracle传递日期型数据问题 好好急啊 如何当数据集的纪录移动的时候,触发一个事件,以响应我需要的作的工作?? 有关括号配对,在先求救! c#中制作安装程序,如何包含.net框架程序。 在制作rpm包的过程能不能进行写文件操作,也就是说把我要运行的应用程序的路径写到某个脚本文件中去? 使用VC编一个算法遇到的调试问题,紧急求救! 硬盘分区的问题,help 请问access里有几万条数据,用asp访问,会不会很慢啊? 请问谁有农历的算法,我想写个日历。谢谢! 请问谁有农历的算法,我想写个日历。谢谢! 怎样可以看到内存泄漏以及泄漏多少? 源码示例大搜捕 硬盘分区的问题,紧急help 请教一个插入查询的问题! 头痛的报表问题 如何在vc中定义全局变量 如何实现C的图形文本混排 爱是永恒的吗 《全球通史》 斯塔夫里阿诺斯 这本书好不好?全套大概多少钱? 2010年2月14日距2010年10月10日有多少天 爱是永恒的(作文) 斯塔夫理阿诺斯的《全球通史》说道:“几十年前还统治全球的欧洲大陆的前途这时似乎是暗淡的、危险的.但20世纪50年代后,东欧和西欧各国却惊人地东山再起.这一复兴同中国日益增长的实 2010年2月10日是什么星座的 1某中学组织同学们春游,如果每个车座54人,有18人没座位,如果每个车座72人,那么空出一辆车,其余车刚好做满,问有几个车,有多少个同学?2.小明一年前存入一笔钱,年利率为2.25%,但要缴纳20%的利 会数学的进来看看,某商店进了一批服装,进货单位为40元,如果按每件50元出售可销售500件,如果每件涨价1元出售,其销售量就减少10件,现在要获利8000元,问这批服装销售应涨价多少元?进货单位改 as as 与then区别都是比较 我知道as as 是表示 像....一样 那 then Disney Mirrors American Culture翻译 如图,已知AB是半圆O的直径,弦AC和BC相交于点P,且CD=3,AB=8,那么cos∠BPD= 2010年2月10号到2011年5月30号一共多少天,谁能帮我一下, 英语翻译这句话怎么翻译啊?American culture values over politeness to degree,whereas in China I have seen a number of occasions politeness valued over candor(直率).尤其是values over politeness to degree这个怎么理解啊? 等腰三角形ABC中,BC边上取一点D,使BD:DC=1:2,作CH垂直AD于H,连接BH.求证:角BAD=角HBC 提示:作AE垂直BC于E Then as now,的意思?就一个短句,如何翻译? 英语翻译Thedominant American culture is English-speaking,Western European,Protestant and middle-class in character.The first immigrants formed the land’sbasic cultural values as freedom,equality and desire to work hard for a higherstandard of l 三角形ABC中,AD垂直BC,H为AD上任一点,BH、CH的延长线分别交AC、AB与E、F,求证:角ADE=角ADF never as then翻译成中文~ 6月用水量相当于第二季度总量的百分之几?)4月用水:40吨5月用水:50吨6月用水:45吨为毛我算出来除不尽啊?(>_ D为等边三角形ABC的BC边上一点,已知BD=1,CD=2,CH⊥AD于点H,连结BH.试证:∠BHD=60° 同盟国与轴心国 任务里打日本的第一关好难,咋打?打完德国就是打日本了,第一关日本有四五个基地,我有一些步兵和两艘军舰,但是有时间限制,时间到了响铃 兵和船就开始减血直至死掉.虽然 李奶奶家第三季度的用水量比第二季度增加了10%第四季度又比第三季度减少了8%李奶奶家第四季度的用水量相当于第二季度的百分之几 照(夏夜,公园里静静悄悄的)仿写一句话 同盟国与轴心国任务中如果德国故意不打莫斯科 日本能单独打下莫斯科吗 问几个英语六级答题的细节问题1.深度阅读第一篇填空需不需要填最简的答案,比如09年六月卷的最后一小题给出的答案是"make money",我把原文的".make money"好长的一句话写上去行不行?(是更具   安静,笑盈盈,等待,明天,写一句话 美国历史学家杰里.本特利指出:当1945年同盟国击败轴心国,摧毁德意志帝国和日本帝国时随着另一场战争的开始随着另一场战争的开始,世界不得不重建.下列选项中最符合文中“世界重建”的 某工厂4月份用水138吨,3月份用水155吨,3月份用水比4月份多了百分之几? 初三上相似三角形题2道 如图,在等边△ABC的边BC上取点D,使BD/DC=1/2,作CH⊥AD于H,连结BH,求证:∠DBH=∠DAB1.如图,在等边△ABC的边BC上取点D,使BD/DC=1/2,作CH⊥AD于H,连结BH,求证:∠DBH=∠DAB 2.如图,AB是Rt三 这样的山围绕着这样的水,这样的水倒映着这样的山.仿写一个这样的句子 我是六级水平 您觉得 多长时间过的了雅思 7.5 在△abc中,ad垂直平分bc,h是ad上一点,连接bh,ch,问ad平分∠bac么,为什么很急啊 ! 日新月异.走街串巷之类的成语之类的成语 求,如何应付爱占小便宜的人我遇到个人,是我大学同学,这个人很喜欢喊人请他吃饭,帮点小忙就喊请吃饭,一开始我以为他只是说着玩,不过后来感觉不对劲了.只要我答应他说的请吃饭要求,他 如图,△ABC中,AD垂直平分BC,H是AD上一点,连接BH,CH,证明∠BHD=∠DHC 与日新月异形式相同的成语要新和月是进义词 这种类型的 怎样与爱占小便宜的人相处? 雨越下越大,接下去写一句话怎么写 以知外切正方形的面积是15厘米,则阴影部分面积是多少 怎样用文明话讽刺爱占小便宜的人 明天温度25℃-35℃ 用英文怎么说(我要写作文,把它变成一句话) 下图中的正方形的面积是15平方厘米,请你求出阴影部分的面积. 爱占小便宜的人好吗? 请问接下去怎么写?只用一句话就行了 水是那样绿,绿得像是被周围的绿树、绿草染过似的.草是那样密,. 人为什么总爱占小便宜? 我的世界顿时安静,心里却尽是荒芜. 水是那样绿,绿得像是被周围的绿树、绿草染过似的.水是那样清,. ∫x/(x^2+5)dx 世界不管怎样荒凉 爱过你就不怕孤单英文翻译 仿写句子:水是那样绿,绿的像是被周围的绿树、绿草染过似的.书是_________________仿写句子:水是那样绿,绿的像是被周围的绿树、绿草染过似的.书是________________________________ 如图,矩形ABCD与圆心在BC上的圆O交于点G,C,E,F,若BC=8,BG=2,DE=1,求EF的长. 2、过抛物线y=x2上的点M( )的切线的倾斜角是( ) A、30° B、45° C、60° D、90° 天是 怎么造句?例子:水是那样绿,绿得像是被周围的绿树、绿草染过似的. 己知AB是半圆0的直径,过0作弦AC的垂线交半圆0于D,交切线AE于E,连接BD,CD求证𠃋BDC二𠃋E.若圆0半径为5,AC二8求切线长AE 如果你能给我一个机会,我不会让你的世界一片荒凉用英语怎么翻译啊! 例:水是那样绿,绿得好像是被周围的绿树、绿草染过似的.照样子写句子.晚霞这样红,红得_______________ AB是半圆直径,过点o做弦AD的垂线交切线AC于C,OC与半圆O交与E,连接BE,DE 求证:∠BED=∠C若OA=5,AD=8,求AC的长 直线y=2x-6于坐标轴围成的三角形面积是多少 1道简算,和一道应用题六分之一除以九分之五除以六分之五商店原来有一批洗衣粉,卖出2/3后,又购进220包,这时商店有洗衣粉308包.商店原来有洗衣粉多少包? 法国总理将赴俄罗斯会见俄总理 讨论核阿根廷执政党保住国会最大党地位 但选外媒:以色列空袭加沙地带 未造成人员智能手机横行 日本偷拍案件五年翻一番未来两年国际天然气市场仍供应紧俏印度急着发射火星探测器纽约曝华裔灭门血案 5人士丧生中国赴美名校留学生 每4人就有1人退“创新之国”芬兰经验启迪中国企业加大加拿大北极地区气温或创4.4万年新高日本首相出访土耳其 欲游说其勿购中国美监管机构调查房地产信托投资基金澳媒称中国买家推动悉尼当地房价升高2美媒:部分美联储官员主张制定债券“退日本首相出访土耳其 欲游说其勿购中国日本拟上调育儿休假补贴发放比例 增加奥巴马医保网站再次瘫痪 众院将举行听美国一醉酒男子被捕后拿总统奥巴马为自澳洲农民呼吁设“全澳产”通道 为本地今秋首次暴风强势登陆法国 数万户家庭统计显示韩国火葬率为74% 比20年CX 7冲击“SUV操控王”家已上路,走吧(1)起亚K5混动版新款上市短消息股市“乌合之众”的心理探究中国好声音如何摆脱“中国好束缚”低空切入挥别“桑拿”迎雷雨二胎父母要帮“老大”角色转换(1)德扬首秀献助攻京台两地学生交流民间艺术扫一扫野起来 飞沙走石粉丝电影难以承载《小时代》乌反政府武装称找到“黑匣子” 不会交老年护理学员体验“老年生活”家已上路,走吧(3)郭敬明 雪对我像鸽子对吴宇森一样重要温州“一把手”均已无专车 月最高车补车内较安静行业动态
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘