如何在Outlook中使用宏发送邮件,并且使用已有签名?
2009-11-05 11:23
471 查看
一、如何使用VBA发送邮件?
在工作中有一些邮件是常常需要发送,但是模式却是比较类似。
例如:日报邮件
收件人,主题,签名基本一致,除了主题中的日期需要更改之外
其他都可以采用一个模板来实现。
找了半天,不知道模板如何实现。
干脆写一个VBA函数来完成这个任务。
实践发现outlook中是不支持宏的录制的,这样就带来了一些麻烦。
在网上搜来搜去,找到了VBA编程发邮件的代码如下:
'新建邮件
Set OutApp = CreateObject("Outlook.Application") '创建outlook对象
OutApp.Session.Logon '登录MAPI
Set OutMail = OutApp.CreateItem(olMailItem) '新建邮件对象
'设置邮件标题、收件人、等等
With OutMail
.To = strTo '收件人
.CC = strCC '抄送
.BCC = ""
.Subject = strSubject '主题
其中主题可以读取当前日期
mDate = Format(Now, "yyyy-MM-dd")
strSubject = "[日报]" & mDate
这样执行这个宏时,一封带当前日期标题的邮件已经生成好了,等待发送
可是我想加入签名怎么办?
可以在OutMail.body里设置
可是,我想读取已经设置好的签名怎么办?
请看下节:
在工作中有一些邮件是常常需要发送,但是模式却是比较类似。
例如:日报邮件
收件人,主题,签名基本一致,除了主题中的日期需要更改之外
其他都可以采用一个模板来实现。
找了半天,不知道模板如何实现。
干脆写一个VBA函数来完成这个任务。
实践发现outlook中是不支持宏的录制的,这样就带来了一些麻烦。
在网上搜来搜去,找到了VBA编程发邮件的代码如下:
'新建邮件
Set OutApp = CreateObject("Outlook.Application") '创建outlook对象
OutApp.Session.Logon '登录MAPI
Set OutMail = OutApp.CreateItem(olMailItem) '新建邮件对象
'设置邮件标题、收件人、等等
With OutMail
.To = strTo '收件人
.CC = strCC '抄送
.BCC = ""
.Subject = strSubject '主题
其中主题可以读取当前日期
mDate = Format(Now, "yyyy-MM-dd")
strSubject = "[日报]" & mDate
这样执行这个宏时,一封带当前日期标题的邮件已经生成好了,等待发送
可是我想加入签名怎么办?
可以在OutMail.body里设置
可是,我想读取已经设置好的签名怎么办?
请看下节:
相关文章推荐
- 如何使用outlook发送邮件教程
- 使用C#模拟Outlook发送邮件,代码编译报错
- 使用c#给outlook添加任务、发送邮件
- 当使用Outlook2007发送邮件时,收件人收到名为Winmail.dat的附件
- 如何使用PHP发送邮件
- .net中使用outlook发送邮件
- 如何使用sendEmail发送邮件
- 装饰者模式的学习(c#) EF SaveChanges() 报错(转载) C# 四舍五入 保留两位小数(转载) DataGridView样式生成器使用说明 MSSQL如何将查询结果拼接成字符串 快递查询 C# 通过smtp直接发送邮件 C# 带参访问接口,WebClient方式 C# 发送手机短信 文件 日志 写入 与读取
- 如何使用Python发送带附件的邮件
- 如何在 Laravel 中使用 SMTP 发送邮件(适用于 163、QQ、Gmail 等)
- 如何使用sendEmail发送邮件
- 使用OutLook发送一封带附件的邮件
- 博客园的邮件发送如何做的?使用普通邮件比如QQ邮件等,它对发送的邮件的数量有限制。博客园怎么做的呢?用的什么工具?
- 如何使用Outlook创建带有超链接的图片签名
- 自学Zabbix3.10.2.1 linux如何配置使用sendEmail发送邮件
- 如何解决阿里云服务器使用phpmail发送邮件超时的问题(针对qq企业邮箱)
- 如何使用 Cdosys.dll 库使用ASP发送邮件带附件
- java如何发送邮件以及使用Velocity模板解决模板文件中文乱码的问题
- 如何使用gmail发送邮件
- [Outlook] outlook如何实现自动CC和BCC邮件发送