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

Outlook で連絡先グループを管理するのは、特に配布リストのメンバー数を確認したい場合、難しいと感じることがあります。この機能がOutlook に標準搭載されていないため、正確なメンバー数を素早く取得する方法がわからず、困っているユーザーも多いでしょう。本記事では、この課題を解決する2 つの方法をご紹介します。1 つは VBA を使った手動操作、もう1 つははるかに簡単かつ高速な「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 のナビゲーションで「People」または「連絡先」に移動し、「連絡先」／「People ビュー」に切り替えてください。

2。クイックアクセスツールバーを右クリックし、表示されたコンテキストメニューから「クイックアクセスツールバーのユーザー設定」を選択してください。

3。「Outlook のオプション」ダイアログボックスで、次の操作を行ってください。

• 1）。［コマンドの選択元］のドロップダウンリストで［マクロ］を選択します。
• 2）。リストから作成済みのマクロを選択し、「追加」をクリックした後、「OK」をクリックします。

手順3：VBA コードを実行する

マクロのボタンを「クイックアクセスツールバー」に追加すれば、VBA コードを実行して配布リストのメンバー数を簡単にカウントできます。

1。分析したい配布リストを選択し、「クイックアクセスツールバー」にあるマクロボタンをクリックしてください。

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

---

---

連絡先グループメンバーをKutools for Outlook で瞬時にカウント 👍

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

1。分析したい連絡先グループを開いたら、「Kutools」タブの「情報」をクリックします。

2。すぐに「メンバー総数」「作成日」「最終更新日」を確認できます。