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

現在出現一個對話框，顯示所選電子郵件中有多少個附件。 看截圖：

如果您安裝了Kutools for Outlook，則可以輕鬆應用 全部分離 （附件）功能可從多個選定的電子郵件中導出所有附件，然後輕鬆計算導出的附件。 請執行以下操作：

1.選擇要導出併計數其附件的電子郵件，然後單擊 庫工具 > 其他 > 全部分離。 看截圖：

2.將出現一個對話框，要求您重新確認有關分離附件的信息。 請點擊 是 按鈕繼續。

3.在打開的瀏覽文件夾對話框中，請指定要將導出的附件保存到的文件夾，然後單擊 OK 按鈕。

現在，所選電子郵件中的所有附件都將導出並保存到目標文件夾中。

4.打開目標文件夾，然後選擇您剛才導出的所有附件，然後將在 狀態欄 打開文件夾。 看截圖：

備註：如果一封電子郵件包含多個附件，則這些附件將保存到一個文件夾中，並以該電子郵件的主題命名。

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

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

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