有时，您可能想要计算特定电子邮件中的收件人总数。 但是Outlook没有明显的“计数”功能支持。 所以本文将介绍2种方法来实现它。
在某些情况下，例如，当您在一封电子邮件中添加了大量收件人并且发现难以管理时，您希望获得这些收件人的总数。 但 Outlook 没有原生或默认支持。 因此，您必须付出额外的努力才能实现它。 在这里，我们将告诉您2种方法。
方法一：通过联系人组统计接收人数
- 到tart with，你应该选择“收件人”、“抄送”和“密件抄送”字段中的所有收件人，并将它们复制到邮件正文的空白处。
- 然后选择正文中的所有收件人并复制它们。
- 接下来转到 Outlook 联系人窗格并点击“新建联系人组”。 在弹出窗口中，将名称设置为“Temp”，然后单击“添加成员”并从下拉列表中选择“来自地址簿”。
- 随后，将之前复制的收件人粘贴到“成员->”字段中，如下图所示：
- 之后，单击“确定”按钮并返回到联系人组。 将自动删除所有重复项。 现在将其作为“文本”文件保存到本地磁盘。
- 稍后打开文本文件并删除无用的标题，如下图所示：
- 最后，您可以将光标放在最后一行。 您将在状态栏中看到总行数。 那是收件人的总数。
方法二：用Outlook VBA统计收件人数量
- 首先，按“Alt + F11”键按钮访问“Visual Basic”窗口。
- 然后将以下 VBA 代码复制并粘贴到新模块中。
Sub CountRecipients()
Dim obApp As Outlook.Application
Dim olSel As Selection
Dim olItem As MailItem
Dim Recips As Recipients
Dim strMsg As String
Dim nRes As Integer
Set obApp = Outlook.Application
If TypeName(obApp.ActiveWindow) = "Inspector" Then
Set olItem = obApp.ActiveInspector.CurrentItem
Set Recips = olItem.Recipients
strMsg = "The current message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
Else
Set olItem = obApp.ActiveExplorer.Selection.Item(1)
Set Recips = olItem.Recipients
strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
End If
Set obApp = Nothing
Set olSel = Nothing
Set olItem = Nothing
Set Recips = Nothing
End Sub
- 之后，您可以退出“Visual Basic”窗口并将新宏添加到 Outlook 主窗口和消息窗口的快速访问工具栏中。
- 最后你可以试试：
- 当您选择一封电子邮件并点击快速访问工具栏中的按钮时，您将收到如下图所示的消息：
- 当您打开一封电子邮件并单击该按钮时，您将看到一个对话框，如下图所示：
请注意： 此方法会将联系人组视为一个收件人，不会绕过重复的收件人。
对抗危险的宏
众所周知，电子邮件传播的病毒一直是最常见的病毒之一。ost 对数据的常见威胁。 因此，仅配置 Outlook 以启用可以阻止病毒和恶意软件的数字签名宏非常重要。 另外，你最好保持健壮 损坏的 Outlook 文件修复实用程序，如 DataNumen Outlook Repair. 当您的 Outlook 遭受病毒感染或恶意软件攻击时，它会派上用场。
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复 SQL mdf 数据错误 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com