如果您想快速获取电子邮件列表中每封电子邮件的附件数，可以使用本文中的 VBA 代码。 它会自动计算每封收到的电子邮件中的附件，并在新列中显示计数。
一些用户经常需要统计电子邮件附件。 在这种情况下，为什么不创建并启用一个专用于显示附件计数的列呢？ 下面，我们将教您如何让 Outlook 自动统计电子邮件附件，并在这样一个新的列中显示计数。
在电子邮件列表中显示附件计数
- 首先，启动 Outlook 应用程序。
- 然后在 Outlook 主窗口中按“Alt + F11”键按钮。
- 接下来，在新的 Outlook VBA 编辑器窗口中，您需要打开一个未被使用的模块。
- 随后，将以下 VBA 代码复制并粘贴到该模块中。
Sub AutoCountAttachments(objMail As Outlook.MailItem)
Dim objAttachments As Outlook.Attachments
Dim objProperties As Outlook.UserProperties
Dim objProperty As Outlook.UserProperty
Dim strPropertyName As String
Set objAttachments = objMail.Attachments
strPropertyName = "Attachment Count"
Set objProperties = objMail.UserProperties
'Check if there is already a column in this name
Set objProperty = objProperties.Find(strPropertyName, True)
If objProperty Is Nothing Then
'If not, add this column
Set objProperty = objProperties.Add(strPropertyName, olText, True)
End If
'Set the column value equal to the count of attachments
objProperty.value = objAttachments.Count
objMail.Save
End Sub
- 之后，您可以退出当前的“Microsoft Visual Basic for Applications”窗口。
- 稍后您需要创建一个新规则以在每封收到的电子邮件上运行此脚本。
- 首先，转到“文件”菜单，然后单击“信息”选项卡下的“管理规则和警报”按钮。
- 然后在新对话框中，点击“新建规则”按钮。
- 在随后的“规则向导”屏幕中，选择“对我收到的邮件应用规则”并点击“下一步”。
- 接下来忽略“选择条件”并单击“下一步”。
- 然后选择“run a script”动作，选择之前添加的宏，如下图。
- 之后，点击几次“Next”，直到到达最后的“Finish rule setup”屏幕。
- 稍后，您需要为此规则指定一个新名称，并启用“对“收件箱”中已有的邮件运行此规则”选项和“启用此规则”。
- 最后，单击“完成”按钮。
- 之后，您应该添加由 VBA 代码创建的“附件计数”列。 只需执行以下步骤：
- 首先，转到电子邮件列表屏幕中的“查看”选项卡。
- 然后点击“查看设置”按钮。
- 在新弹出的对话框中，点击“列”按钮。
- 然后在“显示列”窗口中，找到并选择“收件箱中用户定义的列”下的“附件计数”列，然后单击“添加”按钮。
- 最后单击“确定”按钮保存更改。
- 最终，您可以在邮件列表中看到一个“附件计数”栏，它显示了每封邮件的附件计数，如下图所示：
避免令人沮丧的 PST 数据丢失
相信没有人愿意接受 PST 数据丢失。 这同样适用于你。 因此，您必须采取一些预防措施，例如对 PST 文件进行数据备份，并使用信誉良好的修复工具，例如 DataNumen Outlook Repair。 它可以 修复 Outlook 问题不费吹灰之力。
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com