Outlook 群发邮件并添加不同附件 -VBA

最新推荐文章于 2023-07-28 11:10:36 发布

原创

最新推荐文章于 2023-07-28 11:10:36 发布 · 1w 阅读

48 ·

CC 4.0 BY-SA版权

文章标签：

#vba

为了提高工作效率，通过VBA编写了一个工具，用于每月群发定制邮件给不同的团队。邮件内容包括特定的主题、抄送人、收件人以及针对每个收件人的不同附件。在Excel中组织了收件人邮箱、抄送人邮箱、邮件主题、内容和附件路径等信息，然后用VBA代码实现自动发送邮件的功能。

工作需要，每个月都要群发邮件给不同team,邮件主题，cc信息等都根据team划分不同。手工发送经常用掉我大半时间，并且可能会有出错情况，想着还是写个小工具节省一些时间。

首先,需要在VBA 中添加Outlook的组件： Tools > References，勾选”Microsoft Office 16.0 Object Library。截图如下：
在这里插入图片描述

设想是发送不同邮件给不同的人，并且添加的附件也不一样，因此在excel中，建立以下几项：
A1: Receiver Address #收件人邮箱，多个收件人可用 ; 分开
B1: CC Address #抄送人邮箱
C1: Subject #邮件主题
D1:Content #邮件内容（选填），内容少可简单填写，或在VBA中输入
E1:Attachment # 附件的绝对路径

在这里插入图片描述

设置好后，就可以开始输入代码，完整代码如下：

Sub monthly_brief()
Dim outlookApp As Outlook.Application
Dim myMail As Outlook.MailItem
Dim sh As Worksheet
Dim cell, Filecell, rng As Range
Dim source_file, to_emails, cc_emails As<