系统:Windows 7
软件:Excel 2016
- 本系列讲讲如何使用VBA进行邮件自动分发
- 本文的方法借助于Outlook软件实现
- 今天讲讲在会议邀请中增加附件
Part 1:示例
- 分发一个会议邀请包括以下信息
- 邮件类型:
- 邮件主题:
- 会议地点:
- 会议开始时间:
- 会议持续时间:
- 邮件收件人:
- 邮件正文:
- 附件:
- 写代码前,请先在菜单工具-引用中添加Outlook,具体操作参考上一篇文章
Outlook效果
Part 2:代码
Sub 邮件预警()
Set outlookApp = CreateObject("Outlook.Application")
Set mail = outlookApp.CreateItem(olAppointmentItem)
' 设置为会议邀请类型
mail.MeetingStatus = olMeeting
' 会议主题
mail.Subject = "会议邀请"
' 会议地点
mail.Location = "会议室123"
' 会议开始时间
date_1 = #9/13/2020 1:30:00 PM#
mail.Start = #9/13/2020 1:30:00 PM#
' 会议持续时间,单位分钟
mail.Duration = 90
' 设置收件人:必选
Set emailReceiver = mail.Recipients.Add("fourseasonbeans@163.com")
emailReceiver.Type = olRequired
' 邮件正文
mail.Body = "会议邀请"
' 添加附件
currentPath = ThisWorkbook.Path
file1 = currentPath & "\" & "附件1.xlsx"
file2 = currentPath & "\" & "附件2.txt"
Set mailAttachments = mail.Attachments
mailAttachments.Add file1
mailAttachments.Add file2
' 邮件发送
mail.Send
' 释放资源
Set outlookApp = Nothing
Set mail = Nothing
MsgBox "已分发邮件"
End Sub
代码截图
Part 3:部分代码解读
- 与上一篇文章的区别,增加附件内容。新增一个
Attachments
对象,Set mailAttachments = mail.Attachments
- 使用该对象的
Add
方法,Add后增加附件在本地的地址即可
' 添加附件
currentPath = ThisWorkbook.Path
file1 = currentPath & "\" & "附件1.xlsx"
file2 = currentPath & "\" & "附件2.txt"
Set mailAttachments = mail.Attachments
mailAttachments.Add file1
mailAttachments.Add file2
- 更多学习交流,可加小编微信号
learningBin
更多精彩,请关注微信公众号
扫描二维码,关注本公众号