Outlookで配布リストのメンバーを数える方法は？

Outlookには、配布リストのメンバーを直接カウントする機能はありません。 大量のメールアドレスを含む配布リストがある場合、このグループに含まれているメンバーの数を確認するにはどうすればよいですか？ この記事では、VBAコードを使用して配布リストのメンバーをカウントする方法を学習します。

VBAコードを使用してOutlookの配布リストメンバーをカウントする

VBAコードを作成して保存する

マクロのボタンをクイックアクセスツールバーに追加します

VBAコードを実行する

VBAコードを使用してOutlookの配布リストメンバーをカウントする

VBAコードを使用して、次のように配布リストのメンバーをカウントできます。

VBAコードを作成して保存する

1。 開く アプリケーション向け Microsoft Visual Basic を押すとウィンドウ 他の + F11 同時にキーボードのキー。

2。 クリック インセット > モジュール。 スクリーンショットを参照してください：

3.次に、次のVBAコードをコピーしてに貼り付けます Vbaプロジェクト 窓。

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.次に、 Save ボタンを押して保存します。

5。 それを閉めて アプリケーション向け Microsoft Visual Basic 窓。

マクロのボタンをクイックアクセスツールバーに追加します

1。 に行く 連絡先情報 or のワークプ クリックして表示 連絡先情報 or のワークプ セクションに ナビゲーションペイン.

2. Outlook 2010および2013で、右クリックしてください クイックアクセスツールバー [OK]をクリックします クイックアクセスツールバーをカスタマイズする 右クリックメニューで。 スクリーンショットを参照してください：

Note：Outlook 2007で、配布リストを開き、右クリックしてください。 クイックアクセスツールバー を選択する クイックアクセスツールバー 右クリックメニューで。

3。 の中に Outlookのオプション ダイアログボックスでは、次のことを行う必要があります。

1）。 あなたがにいることを確認してください クイックアクセスツールバー セクション;

2）。 選択する マクロ セクションに からのコマンドを選択 ドロップダウンリスト;

3）。 でマクロを選択します セパレータ ボックス;

4）。 クリック Add ボタン;

5）。 そして最後に OK ボタン。 スクリーンショットを参照してください：

4.次に、マクロのボタンがに追加されていることがわかります。 クイックアクセスツールバー.

VBAコードを実行する

クイックアクセスツールバーにマクロのボタンを追加した後、VBAコードを実行して配布リストのメンバーを数えることができます。

1. Outlook 2010および2013では、配布リストを選択して、Qのマクロのボタンをクリックするだけです。uickAccessツールバー.

Note：Outlook 2007では、配布リストを開いてから、上のマクロのボタンをクリックする必要があります。 クイックアクセスツールバー.

2.次に、この配布リストに含まれているメンバーの数を示すプロンプトボックスがポップアップ表示されます。 次に、をクリックします OK.

---

最高のオフィス生産性向上ツール

Kutools for Outlook - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロ: バッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

続きを読む       無料ダウンロード      購入