有時，您可能需要計算特定電子郵件中的收件人總數。 但是Outlook沒有明顯的“計數”功能來支持它。 因此，本文將介紹兩種實現方法。
例如，在某些情況下，當您向電子郵件中添加了大量收件人時，發現很難管理它們，您希望獲取這些收件人的總數。 但是，Outlook沒有本機或默認支持。 因此，您必須付出額外的努力才能實現它。 在這裡，我們將告訴您2種方法。
方法1：通過聯繫人組計算收件人數
- 首先，您應該選擇「收件者」、「副本」和「密送」欄位中的所有收件人，並將它們複製到郵件正文的空白處。
- 然後選擇正文中的所有收件人並複制它們。
- 接下來，轉到“ Outlook聯繫人”窗格，然後單擊“新建聯繫人組”。 在彈出窗口中，將名稱設置為“ Temp”，然後單擊“添加成員”，然後從下拉列表中選擇“來自通訊簿”。
- 隨後，將先前複製的收件人粘貼到“成員->”字段中，如以下屏幕截圖所示：
- 之後，單擊“確定”按鈕並返回到聯繫人組。 所有重複項將自動刪除。 現在，將其另存為“文本”文件到本地磁盤。
- 稍後打開文本文件並刪除無用的標頭，如下圖所示：
- 最後，您可以將光標放在最後一行。 您將在狀態欄中看到行的總數。 那是接收者的總數。
方法2：用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主窗口和消息窗口的“快速訪問工具欄”中。
- 最終，您可以嘗試一下：
- 選擇電子郵件並單擊“快速訪問工具欄”中的按鈕時，您將收到一條如下圖所示的消息：
- 當您打開電子郵件並單擊按鈕時，將出現一個對話框，如下圖所示：
請注意： 此方法會將聯繫人組視為一個收件人，並且不會繞過重複的收件人。
打擊危險宏
眾所周知，電子郵件病毒一直是資料安全面臨的最常見威脅之一。因此，請務必將 Outlook 設定為僅啟用數位簽章宏，以阻止病毒和惡意軟體的傳播。此外，您最好保持強大的安全防護措施。 損壞的Outlook文件修復工具如 DataNumen Outlook Repair。 當Outlook遭受病毒感染或惡意軟件攻擊時，它將非常有用。
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 修復SQL mdf數據錯誤 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM