使用VBA計算“收件人”，“抄送”和“密件抄送”字段中的收件人數

計算您已向其發送電子郵件的所有收件人的總數

輕鬆計數每天/每週/每月收到的電子郵件數量，並在圖表中進行報告

此方法將引入一個VBA宏，以計算您在廣告系列中添加的收件人總數 至, Cc和 “密件抄送” 撰寫電子郵件中的字段。 請執行以下操作：

1.在撰寫電子郵件中添加收件人之後，請按 其他 + F11 同時按下鍵以打開“ Microsoft Visual Basic for Applications”窗口。

2。 點擊 插入 > 模塊，然後將以下VBA代碼粘貼到打開的“模塊”窗口中。

VBA：計算所有收件人的數量

' Count all recipients in To, Cc, and Bcc fields
Sub Hurriedness()
If (Inspectors. Count > 0) Then Msg Box (ActiveInspector.CurrentItem.Recipients.ount) & " Recipients"
End Sub

3。 按 F5 鍵或單擊 跑 按鈕以運行此VBA。

現在將出現一個對話框，顯示您已在 至, Cc和 “密件抄送” 領域。

筆記：

（1）此VBA代碼會將一個聯繫人組視為一個收件人；

（2）此VBA代碼將重複計算重複的收件人。 例如，您已將相同的收件人添加到兩個 至 領域和 Cc 提交後，此代碼將對該接收者進行兩次計數。

（3）為了計算不包括重複收件人的收件人總數，建議您使用Kutools for Outlook刪除重複的收件人 名稱重複 功能，然後再運行VBA代碼。

一鍵式刪除Outlook中“收件人/抄送/密件抄送”字段中的所有重複收件人

上面的方法將計算您將在Outlook當前撰寫的電子郵件中發送給的所有收件人的總數。 但是，此方法將為Outlook引入Kutools 添加到組 功能和 計數 （聯繫人組）功能可幫助您計算“已發送郵件”文件夾中已向其發送電子郵件的所有收件人的總數。 請執行以下操作：

1。 在裡面 郵件 查看，請點擊 首頁 > 新產品 > 更多項目 > 聯絡小組 創建一個新的聯繫人組。

2.在新打開的“聯繫人組”窗口中，請在 姓名 框，然後單擊 聯絡小組 > 保存並關閉。 看截圖：

3.單擊以打開“已發送郵件”文件夾，在“已發送郵件”文件夾中選擇所有電子郵件，然後單擊“確定”。 庫工具 > 添加到組。 看截圖：

4.在打開“將收件人添加到聯繫人組”對話框中，請僅檢查收件人。 收件人 列錶框，檢查您在上方創建的新聯繫人組 聯繫人組 列錶框，然後單擊 OK 按鈕。

備註：在“將收件人添加到聯繫人組”對話框中，您可以輕鬆地僅通過以下方式檢查所有收件人 （1） 右鍵單擊任何電子郵件，然後選擇 取消所有 從上下文菜單中，下一步 （2） 右鍵單擊任何電子郵件，然後選擇 檢查所有收件人 從上下文菜單中。 請參閱以下屏幕截圖：

5.轉到“人員（或聯繫人）”視圖，雙擊以打開新的聯繫人組，然後單擊 庫工具 > 計數。 看截圖：

然後，您將獲得新聯繫人組中所有成員的總數，如上圖所示。 換句話說，您已經計算出“已發送郵件”文件夾中所有收件人的總數。

計算Outlook中選定電子郵件中的附件總數

計算Outlook中發件人的電子郵件數量

計算Outlook中選定電子郵件的總數