邮件自动分发-08-带附件的会议邀请

系统：Windows 7
软件：Excel 2016

• 本系列讲讲如何使用VBA进行邮件自动分发
• 本文的方法借助于Outlook软件实现
• 今天讲讲在会议邀请中增加附件

Part 1：示例

1. 分发一个会议邀请包括以下信息
   • 邮件类型：
   • 邮件主题：
   • 会议地点：
   • 会议开始时间：
   • 会议持续时间：
   • 邮件收件人：
   • 邮件正文：
   • 附件：
2. 写代码前，请先在菜单工具-引用中添加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：部分代码解读

1. 与上一篇文章的区别，增加附件内容。新增一个Attachments对象，Set mailAttachments = mail.Attachments
2. 使用该对象的Add方法，Add后增加附件在本地的地址即可

    ' 添加附件
    currentPath = ThisWorkbook.Path
    file1 = currentPath & "\" & "附件1.xlsx"
    file2 = currentPath & "\" & "附件2.txt"

    Set mailAttachments = mail.Attachments
    mailAttachments.Add file1
    mailAttachments.Add file2

---

• 更多学习交流，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号