Outlookで配布リストのメンバーを数えるにはどうすればよいですか？

Author: Siluvia Last Modified: 2025-05-23

Outlookで連絡先グループを管理するのは、特に配布リスト内のメンバー数を知る必要がある場合、時には困難になることがあります。Outlookにはこの目的のための組み込み機能が提供されていないため、多くのユーザーは正確なカウントを迅速に取得する方法がわかりません。この記事では、この問題を解決するための2つの方法を探ります。VBAを使用した手動での解決策と、よりシンプルで高速な「Kutools for Outlook」の方法です。使いやすさと効率を求めている場合、2番目の方法が際立ちます。

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. ツールバーで「挿入」>「モジュール」をクリックします。

the screenshot of step about counting distribution list members in Outlook with VBA code 1

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. 「クイックアクセスツールバー」を右クリックし、右クリックメニューから「クイックアクセスツールバーのユーザー定義」をクリックします。

the screenshot of step about counting distribution list members in Outlook with VBA code 2

3. 「Outlookオプション」ダイアログボックスで、次の操作を行う必要があります：

1). 「コマンドを選択する場所」ドロップダウンリストで「マクロ」を選択します。
2). 作成したマクロをリストから選択し、「追加」をクリックしてから「OK」をクリックします。

the screenshot of step about counting distribution list members in Outlook with VBA code 3

ステップ3：VBAコードを実行する

「クイックアクセスツールバー」にマクロ用のボタンを追加した後、VBAコードを実行して配布リストのメンバーを数えられます。

1. 分析したい配布リストを選択し、「クイックアクセスツールバー」のマクロボタンをクリックします。

the screenshot of step about counting distribution list members in Outlook with VBA code 4

2. プロンプトが表示され、配布リスト内のメンバー数が表示されます。

the screenshot of step about counting distribution list members in Outlook with VBA code 5

🌟 Outlookで連絡先グループを簡単に分割 🌟

🚀 Outlookで連絡先グループをすばやく再編成！ Kutools for Outlookを使えば、数回のクリックで大規模なグループを小さくて管理しやすいものに分割できます。

✨ 仕組み：

連絡先ビューに切り替え、分割したいグループを選択します。
「Kutools Plus」>「連絡先グループ」>「新しい連絡先グループに分割」をクリックします。
新しいグループに移動する連絡先を選択し、グループに名前を付けます。
「OK」をクリックして、あとはKutoolsに任せましょう！

Split to Multiple Contact Groups Feature

🌟 今すぐKutools for Outlookをお試しください

Kutools for Outlook 👍 を使用して連絡先グループのメンバーを即座に数える

より速く、簡単で直感的なソリューションをお探しならば、「Kutools for Outlook」が最適なツールです。「情報」機能により、ワンクリックで配布リストのメンバー数を即座に確認できます。この方法では技術的な設定は不要で、グループに関する追加情報も提供されるため、Outlookユーザーにとって必須のツールです。

Kutools for Outlookで究極のメール効率を解き放とう！強力な70の機能を永久に無料で利用できます。今すぐ無料版をダウンロード！

1. 分析したい連絡先グループを開き、「Kutools」>「情報」をクリックします。

the screenshot of step about counting distribution list members in Outlook with Kutools method 6