使用VBA计算“收件人”，“抄送”和“密件抄送”字段中的收件人数

计算您已向其发送电子邮件的所有收件人的总数

轻松计数每天/每周/每月收到的电子邮件数量，并在图表中进行报告

此方法将引入一个VBA宏，以计算您在广告系列中添加的收件人总数 至, Cc及 密件抄送 撰写电子邮件中的字段。 请执行以下操作：

1.在撰写电子邮件中添加收件人之后，请按 其他 + F11 同时按下两个键可以打开“ Microsoft Visual Basic for Applications”窗口。

2。 点击 插页 > 模块，然后将以下VBA代码粘贴到打开的“模块”窗口中。

VBA：计算所有收件人的数量

' Count all recipients in To, Cc, and Bcc fields
Sub Hurriedness()
If (Inspectors. Count > 0) Then Msg Box (ActiveInspector.CurrentItem.Recipients.ount) & " Recipients"
End Sub

3。 按 F5 键或单击 运行 按钮以运行此VBA。

现在，将出现一个对话框，显示您已在 至, Cc及 密件抄送 领域。

笔记：

（1）此VBA代码会将一个联系人组视为一个收件人；

（2）此VBA代码将重复计算重复的收件人。 例如，您已将相同的收件人添加到两个 至 领域和 Cc 提交后，此代码将对该接收者进行两次计数。

(3) 要计算不包括重复收件人的收件人总数，我们建议您使用 Kutools for Outlook 删除重复收件人 名称重复 功能，然后再运行VBA代码。

一键式删除Outlook中“收件人/抄送/密件抄送”字段中的所有重复收件人

上述方法将计算您在 Outlook 中当前撰写的电子邮件中要发送给的所有收件人的总数。但是，这种方法会引入Kutools for Outlook的 添加到组 功能和 计数 （联系人组）功能可帮助您计算“已发送邮件”文件夹中已向其发送电子邮件的所有收件人的总数。 请执行以下操作：

1.在 邮箱： 查看，请点击 主页 > 新东西 > 更多项目 > 联络小组 创建一个新的联系人组。

2.在新打开的联系人组窗口中，请在 名字 框，然后单击 联络小组 > 保存并关闭。 看截图：

3.单击以打开“已发送邮件”文件夹，在“已发送邮件”文件夹中选择所有电子邮件，然后单击“确定”。 库工具 > 添加到组。 看截图：

4.在打开“将收件人添加到联系人组”对话框中，请仅检查收件人。 步骤一：收件人 列表框，检查您在上方创建的新联系人组 联系人组 列表框，然后单击 OK 按钮。

备注：在“将收件人添加到联系人组”对话框中，您可以轻松地仅通过以下方式检查所有收件人 (1) 右键单击任何电子邮件，然后选择 取消所有 从上下文菜单中，下一步 (2) 右键单击任何电子邮件，然后选择 检查所有收件人 从上下文菜单中。 请参阅以下屏幕截图：

5.切换到“人员（或联系人）”视图，双击以打开新的联系人组，然后单击 库工具 > 计数。 看截图：

然后，您将获得新联系人组中所有成员的总数，如上图所示。 换句话说，您已经计算出“已发送邮件”文件夹中所有收件人的总数。

计算Outlook中选定电子邮件中的附件总数

计算Outlook中发件人的电子邮件数量

计算Outlook中选定电子邮件的总数