如何在 Outlook 中計算通訊群組的成員數量？

在 Outlook 中管理聯絡人群組有時頗具挑戰性，尤其是當您需要快速掌握通訊群組中的成員人數時。Outlook 本身並未內建此功能，導致許多使用者不知如何迅速取得準確的成員數量。本文將為您介紹兩種解決方案：一是透過 VBA 手動處理，另一則是更簡單、更快速的 Kutools for Outlook 方法。若您追求操作的便捷與效率，第二種方法絕對讓您耳目一新！

使用 VBA 程式碼計算通訊群組成員數量(手動且繁瑣)

• 步驟 1：建立並儲存 VBA 程式碼
• 步驟 2：將巨集按鈕新增至快速存取工具列
• 步驟 3：執行 VBA 程式碼

使用 Kutools for Outlook 一鍵計算聯繫人組成員數量 👍(快速又輕鬆)

---

使用 VBA 程式碼計算通訊群組成員數量

對於熟悉技術設定的使用者而言，「VBA」（Visual Basic for Applications）提供了一種計算通訊群組成員數量的方式。雖然效果顯著，但此方法仍需投入一定心力進行設定與執行。

步驟 1：建立並儲存 VBA 程式碼

1. 按下「Alt」+「F11」，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點擊工具列中的「插入」>「模組」。

3. 接著，將下列 VBA 程式碼複製並貼上至「VbaProject」視窗中。

VBA：在 Outlook 中計算通訊群組成員數量

Sub CountDLMembers()
    Dim oOL As Outlook.Application
    Dim oSelection As Outlook.Selection
    Dim oItem As Object
    Dim olDL As Outlook.DistListItem
    Dim Result As String
    Set oOL = Outlook.Application
    'Check and get the selected Contact Group
    Select Case TypeName(oOL.ActiveWindow)
        Case "Explorer"
            Set oSelection = oOL.ActiveExplorer.Selection
            If oSelection.Count > 0 Then
                Set oItem = oSelection.Item(1)
            Else
                Result = MsgBox("No item selected. " & _
                            "Please select a Contact Group first.", _
                            vbCritical, "CountDLMembers")
                Exit Sub
            End If
        Case "Inspector"
            Set oItem = oOL.ActiveInspector.CurrentItem
        Case Else
            Result = MsgBox("Unsupported Window type." & _
                        vbNewLine & "Please make a selection " & _
                        "in the Calendar or open a Contact Group first.", _
                        vbCritical, "CountDLMembers")
            Exit Sub
    End Select
    If oItem.Class = Outlook.olDistributionList Then
        'Display the member count
        Set olDL = oItem
        Result = MsgBox("The Contact Group '" & olDL.DLName & "' contains " & olDL.MemberCount & " members.", vbInformation, "CountDLMembers")
    Else
        'Selected item isn't a Contact Group item
        Result = MsgBox("No Contact Group item selected. " & _
                    "Please make a selection first.", _
                    vbCritical, "CountDLMembers")
        Exit Sub
    End If
    'Cleanup
    Set oOL = Nothing
    Set olDL = Nothing
End Sub

4. 按一下「儲存」圖示，然後關閉 VBA 編輯器。

步驟 2：將巨集按鈕新增至快速存取工具列

1. 前往 Outlook 導航窗格中的「人員」或「連絡人」，即可切換至「連絡人」/「人員」檢視畫面。

2. 在「快速存取工具列」上按一下滑鼠右鍵，然後從快捷功能表中選取「自訂快速存取工具列」。

3. 在「Outlook 選項」對話方塊中，您需要：

• （1.） 在「從下列位置選擇命令」中，選取「巨集」下拉式清單。
• 2）。在清單中選取您建立的巨集，點選「新增」，再點選「確定」。

步驟 3：執行 VBA 程式碼

將巨集按鈕新增至「快速存取工具列」後，您即可執行 VBA 程式碼，輕鬆計算通訊群組的成員數量。

1. 選取您要分析的通訊群組，然後點擊「快速存取工具列」上的巨集按鈕。

2. 系統將彈出提示，顯示通訊群組內的成員人數。

---

---

使用 Kutools for Outlook 一鍵計算聯繫人組成員數量 👍

如果您追求更快、更簡單且更直覺的解決方案，「Kutools for Outlook」絕對是您的首選！其「資訊」功能只需單擊一次，即可立即顯示通訊群組的成員數量，不僅省去繁瑣的技術設定，還能提供群組的額外詳細資訊，堪稱 Outlook 使用者的必備利器。

1. 開啟您要分析的聯絡人群組後，請點選「Kutools」>「資訊」。

2. 您將立即看到「成員總數」、「建立日期」以及「最後修改日期」。