使用VBA计算所选电子邮件中的附件总数

使用Kutools for Outlook导出和计算所选电子邮件中的附件

首先在Outlook中保存这些附件，计算多封电子邮件中的附件总数

此方法将引入VBA，以计算Outlook中选定电子邮件中的附件总数。 请执行以下操作：

1.选择要计数其附件的电子邮件，然后按 其他 + F11 同时按下键以打开“ Microsoft Visual Basic for Applications”窗口。

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

VBA：计算所选电子邮件中的附件数

Sub CountAttachmentsMulti()
Dim oItem As Object
Dim iAttachments As Integer

For Each oItem In ActiveExplorer.Selection
iAttachments = oItem.Attachments.Count + iAttachments
Next
MsgBox "Selected " & ActiveExplorer.Selection.Count & " messages with " & iAttachments & " attachements"

End Sub

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

现在出现一个对话框，显示所选电子邮件中有多少个附件。 看截图：

如果您安装了Kutools for Outlook，则可以轻松应用 全部分离 （附件）功能可从多个选定的电子邮件中导出所有附件，然后轻松计算导出的附件。 请执行以下操作：

Kutools for Outlook：为Outlook添加了100多种方便的工具，可以在60天内免费试用，没有任何限制。 更多信息      现在免费试用

1.选择要导出并计数其附件的电子邮件，然后单击 库工具 > 其它 > 全部分离。 看截图：

2.将出现一个对话框，要求您重新确认有关分离附件的信息。 请点击 有 按钮继续。

3.在打开的浏览文件夹对话框中，请指定要将导出的附件保存到的文件夹，然后单击 OK 按钮。

现在，所选电子邮件中的所有附件都将导出并保存到目标文件夹中。

4.打开目标文件夹，然后选择您刚才导出的所有附件，然后将在 状态栏 打开文件夹。 看截图：

备注：如果一封电子邮件包含多个附件，则这些附件将保存到一个文件夹中，并以该电子邮件的主题命名。

Kutools for Outlook：为Outlook添加了100多种方便的工具，可以在60天内免费试用，没有任何限制。 更多信息      现在免费试用

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

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

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

Kutools for Outlook-为Outlook带来100个高级功能，并使工作更加轻松！

• 自动CC / BCC 根据规则发送电子邮件； 自动转发 自定义多封电子邮件； 自动回复 没有交换服务器，还有更多自动功能...
• BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒，还有更多提醒功能...
• 在邮件对话中回复（全部）带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
• 附件工具：管理所有邮件中的所有附件， 自动分离, 全部压缩，全部重命名，全部保存...快速报告， 计算选定的邮件...
• 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明，更快和更好。