Comment compter le nombre de membres d’une liste de distribution dans Outlook ?

La gestion des groupes de contacts dans Outlook peut parfois s’avérer délicate, notamment lorsqu’il s’agit de connaître le nombre exact de membres d’une liste de distribution. Outlook ne propose pas de fonctionnalité intégrée à cet effet, laissant de nombreux utilisateurs perplexes quant à la manière d’obtenir rapidement un décompte précis. Dans cet article, nous vous présentons deux méthodes efficaces pour résoudre ce problème : l’utilisation de VBA pour une solution manuelle, et la méthode Kutools pour Outlook, bien plus simple et rapide. Si vous recherchez simplicité et efficacité, cette dernière s’imposera clairement comme le choix idéal.

Compter les membres d’une liste de distribution à l’aide du code VBA(Manuel et fastidieux)

• Étape 1 : Créez et enregistrez le code VBA
• Étape 2 : Ajoutez un bouton pour la macro à la barre d’outils Accès rapide
• Étape 3 : Exécutez le code VBA

Comptez instantanément les membres de Groupe de contacts avec Kutools pour Outlook 👍(Rapide et sans effort)

---

Compter les membres d’une liste de distribution à l’aide du code VBA

Pour les utilisateurs à l’aise avec les configurations techniques, le VBA (Visual Basic for Applications) permet de compter les membres d’une liste de distribution. Bien qu’efficace, cette méthode nécessite un certain effort de configuration et d’exécution.

Étape 1 : Créez et enregistrez le code VBA

1. Appuyez sur « Alt » + « F11 » pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur « Insertion » > « Module » dans la barre d’outils.

3. Copiez ensuite le code VBA suivant et collez-le dans la fenêtre « VbaProject ».

VBA : Compter les membres d’une liste de distribution dans 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. Cliquez sur l’icône « Enregistrer », puis fermez l’éditeur VBA.

Étape 2 : Ajoutez un bouton pour la macro à la barre d’outils Accès rapide

1. Accédez à « Personnes » ou « Contacts » dans le volet de navigation d’Outlook pour passer à la vue « Contacts »/« Personnes ».

2. Cliquez avec le bouton droit sur la « barre d’outils Accès rapide », puis choisissez « Personnaliser la barre d’outils Accès rapide » dans le menu contextuel.

3. Dans la boîte de dialogue « Options Outlook », suivez ces étapes :

• 1). Sélectionnez « Macros » dans la liste déroulante « Choisir les commandes dans ».
• 2). Sélectionnez la macro que vous avez créée dans la liste, cliquez sur « Ajouter », puis sur « OK ».

Étape 3 : Exécutez le code VBA

Une fois le bouton de la macro ajouté à la « barre d’outils Accès rapide », vous pouvez exécuter le code VBA pour compter les membres de la liste de distribution.

1. Sélectionnez la liste de diffusion que vous souhaitez analyser, puis cliquez sur le bouton de la macro dans la « barre d’outils Accès rapide ».

2. Une fenêtre affichera aussitôt le nombre de membres de la liste de distribution.

---

---

Comptez instantanément les membres de Groupe de contacts avec Kutools pour Outlook 👍

Si vous recherchez une solution plus rapide, plus simple et plus intuitive, « Kutools pour Outlook » est l’outil idéal. Sa fonctionnalité « Informations » affiche instantanément le nombre de membres d’une liste de distribution en un seul clic. Cette approche élimine toute configuration technique et fournit des détails supplémentaires sur le groupe, faisant de cet outil un indispensable pour les utilisateurs d’Outlook.

1. Après avoir ouvert le groupe de contacts que vous souhaitez analyser, cliquez sur « Kutools » > « Informations ».

2. Vous verrez aussitôt s’afficher le « nombre total de membres », la « date de création » et la « dernière date de modification ».