如何在 Outlook 中快速獲取來自特定發件人的電子郵件總數

Outlook解決方案 2025 年 9 月 29 日

有時，您可能想要計算 Outlook 中來自特定發件人的電子郵件總數。本文將向您介紹一種使用 Outlook VBA 快速獲取總數的便捷方法。

由於某些原因，例如數據統計，您可能需要統計來自特定發件人的電子郵件總數。毫無疑問，如果您的郵件數量眾多，手動逐個計數會比較麻煩且容易出錯。在這種情況下，為什麼不遞歸到 VBA？這裡是詳細的操作和根據 VBA 代碼。

獲取特定文件夾中來自特定發件人的電子郵件總數

從一開始tart Outlook並切換到“ Developer”選項卡。
然後單擊此選項卡下的“Visual Basic”按鈕。
接下來在彈出的“Microsoft Visual Basic for Applications”窗口中，您可以打開一個未使用的模塊，然後將以下VBA代碼複製到其中。

Sub CountEmailsfromSpecificSenderinCurrentFolder()
    Dim objSelection As Selection
    Dim objSelectedMail As MailItem
    Dim strSenderEmailAddress As String
    Dim objCurrentFolder As Folder
    Dim objItem As Object
    Dim objVariant As Variant
    Dim i As Long
    Dim strPrompt As String
    Dim nResponse As Integer
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    i = 0

    If TypeOf objSelection.Item(1) Is MailItem Then
 
       Set objSelectedMail = objSelection.Item(1)
       strSenderEmailAddress = objSelectedMail.SenderEmailAddress
       Set objCurrentFolder = Outlook.Application.ActiveExplorer.CurrentFolder
 
       For Each objItem In objCurrentFolder.Items
           Set objVariant = objItem
           If (objVariant.Class = olMail) And (objVariant.SenderEmailAddress = strSenderEmailAddress) Then
              i = i + 1
           End If
       Next
    End If
 
    strPrompt = "There are " & i & " emails from " & objSelectedMail.SenderName & " in the current " & objCurrentFolder.Name & " folder."
    nResponse = MsgBox(strPrompt, vbOKOnly + vbInformation, "Count Emails from Specific Sender")
End Sub