使用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。

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

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

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

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

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

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

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

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

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

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

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