用VB实现自己的邮件“自己发”
VB中有两个邮件收发功能的核心控件:MAPI会话和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话,MAPI消息控件用于创建和收发邮件消息。此外,程序必须运行在采用MAPI的消息系统(如Microsoft Exchange、Outlook等)的环境中。
窗体设计
打开VB,在Form1中加入5个文本框,7个命令按钮,同时通过添加部件的方法将MAPI控件加入窗体中(如图1)。各对象氖粜陨柚萌缤?。
编写代码
Private Sub Command1_Click()
If Val(Text2.Text) <= 0 Then Exit Sub
Text2.Text = Val(Text2.Text) - 1
Call xs ()
End Sub
Private Sub Command2_Click()
If Val(Text2.Text) >= Val(Text1.Text) - 1 Then Exit Sub
Text2.Text = Val(Text2.Text) + 1
Call xs()
End Sub
Private Sub Command3_Click()
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = -1′建立发送缓冲区
MAPIMessages1.Compose′写新邮件
MAPIMessages1.Send True
End Sub
Private Sub xs()
MAPIMessages1.MsgIndex = Val(Text2.Text)′指定电子邮件
Text3.Text = MAPIMessages1.MsgSubject ′电子邮件主题
Text4.Text = MAPIMessages1.MsgOrigDisplayName
′电子邮件发信人姓名
Text5.Text = MAPIMessages1.MsgNoteText′电子邮件全文
End Sub
Private Sub Command4_Click()
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = Val(Text2.Text)
MAPIMessages1.Reply
MAPIMessages1.Send True
End Sub
Private Sub Command5_Click()
MAPISession1.SignOff
MAPISession1.DownLoadMail = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.FetchUnreadOnly = False
MAPIMessages1.Fetch
Text1.Text = MAPIMessages1.MsgCount
Text2.Text = 0
End Sub
Private Sub Command6_Click()
On Error GoTo err:
MAPIMessages1.Show
err:
End Sub
Private Sub Form_Activate()
Call xs
End Sub
Private Sub Form_Load()′系统初始化
MAPISession1.DownLoadMail = False
MAPISession1.SignOn′处理开始
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.FetchUnreadOnly = False
MAPIMessages1.Fetch
Text1.Text = MAPIMessages1.MsgCount
Text2.Text = 0
End Sub
Private Sub Command7_Click()
MAPISession1.SignOff ′处理结束
End
End Sub
转载于:https://www.cnblogs.com/tanghuawei/archive/2007/01/12/618807.html
用VB实现自己的邮件“自己发”相关推荐
- SQLSERVER监控复制并使用数据库邮件功能发告警邮件
原文:SQLSERVER监控复制并使用数据库邮件功能发告警邮件 SQLSERVER监控复制并使用数据库邮件功能发告警邮件 最近熬出病来了,都说IT行业伤不起,不说了,说回今天的正题 正题 上个月月底的 ...
- 猫猫学iOS(四十五)之常用的小功能比如打电话、打开网址、发邮件、发短信打开其他应用。...
猫猫分享,必须精品 原创文章,欢迎转载.转载请注明:翟乃玉的博客 地址:http://blog.csdn.net/u013357243?viewmode=contents 简介 iOS中的很多小功能都 ...
- 配置内网邮件和外网邮件互发
配置内网邮件服务器和外网邮件服务器互发邮件 邮件系统的主要功能是传递邮件,使用户通过电子邮件来交流彼此的信息,邮件传输功能决定了邮件的处理和传递方式.Exchange 2007的管理员可以通过配置中心 ...
- 电子邮件发错了怎么撤回?原来邮件误发也有“后悔药”
工作和生活中,一些人遇到过刚发完邮件,却突然想起忘记上传附件.内容有误等情况,追悔莫及.这种感受就像从网上开开心心买了一件衣服,试穿后发现不合身,想退货却发现没有运费险,我太太太太太难了! 那么发错邮 ...
- 邮件错发怎么办?U-Mail邮件服务器给你后悔药
"小李你怎么又发错邮件了?"经理的雷霆怒吼在整个办公室回荡,闻者无不心情忐忑.小李初来乍到公司,担任经理助理,每日都要发送各种工作报表,尽管他勤勤恳恳,但由于工作琐细繁复,加上经理 ...
- Java Exchange企业邮件服务器 发Email
简单邮件传输协议(SMTP)是一个Internet标准的电子邮件(电子邮件)传输跨越互联网协议(IP)网络.通过SMTP协议所指定的服务器,就可以把E-mail寄到收信人的服务器上了,整个过程只要几分 ...
- 邮件轻松发--邮件群发小工具
关于这个工具的创作:相信大家都有找工作的经历,在简历投递的时候是否有这样的烦恼?点对点的发送邮件时,不停的复制粘贴自己的简历发送,在这一期间不仅浪费了大家相当多的一部分时间,而且发送简历的效率也不是很 ...
- 如何使用vb通过outlook收发邮件
制作邮件发送.接收程序 原文地址:http://flydoos.blog.163.com/blog/static/11975604020095220422284/ 你还认识我吗?记得两年前我 ...
- python 发邮件_Python发邮件告别smtplib,迎接zmail
之前介绍过smtplib发邮件代码,直到今天仍有人在这里遇到问题.而且代码复杂,解释起来很麻烦,今天给大家介绍一个新的发邮件方法--zmail zmail的优势 自动填充头信息 将一个字典映射为ema ...
- linux git 发邮件,gitlab发邮件基于sendmail
gitlab发邮件基于sendmail 以前都是直接把邮件关了,今天有一哥们需要使用一直没弄好,我也帮忙弄,不得不说真TM是个坑!!! 卸载本地的postfix yum remove postfix ...
最新文章
- partial 分布类
- 计算力即生产力,智算中心就是智慧时代的“发电厂” | MEET2021
- ssh开发中的DAO和DaoSupport备份
- The Hystrix timeout of XXms for the command XX-XX is set lower than the combination of the
- C语言实现简单线程池
- 每天干的啥?(2019.3)
- 一个绚丽的loading动效分析与实现!
- 计算机图形几个小常识
- php 辗转相除法,手撸golang 基本数据结构与算法 最大公约数 欧几里得算法/辗转相除法...
- 包装类(Wrapper)的使用
- 研究生开口月薪一万 企业暗示“靠边站”
- 一些开源的统计机器翻译系统简要介绍
- UC浏览器 通用java 游戏狗_游戏狗app下载-游戏狗 安卓版v4.5.0-PC6安卓网
- JavaScript标识符与关键字和保留字
- 绘制曲线 matlab,matlab绘制曲线图文
- 微信小程序三个实例带你入门
- tp5 mysql悲观锁_thinkphp悲观锁机制处理高并发
- python中英文古风排版_古风排版 - Calculus9 - 博客园
- 2022-2028年中国工业互联网预测性维护(PdM)行业市场调查及未来前景预测报告
- 数学函数最小值为什么可以通过导数=0来求出呢?
热门文章
- Flask在Windows环境下的部署
- 【回归预测】基于matlab麻雀搜索算法优化CNN回归预测【含Matlab源码 282期】
- 【优化算法】混沌单纯形法算子布谷鸟搜索优化算法【含Matlab源码 1193期】
- 【优化充电】基于matlab多种遗传算法求解电动汽车有序充电优化问题【含Matlab源码 792期】
- 【VRP】基于matlab禁忌搜索算法求解车辆路径规划问题【含Matalb源码 158期】
- js tree选中子集默认选中上级_原生js实现轮播图(两种方法)
- 阿里ai人工智能平台_AI标签众包平台
- 解决方案:Windows下修改hosts文件
- xftp传输文件报错
- word怎么把页面顺序倒过来_Word打印错乱——出现两个第1页