一、如何使用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里设置
可是,我想读取已经设置好的签名怎么办?