Comment compter les membres de la liste de distribution dans Outlook?

Dans Outlook, il n'existe aucune fonctionnalité permettant de compter directement les membres de la liste de distribution. Si vous avez une liste de distribution avec une grande quantité d'adresses e-mail, comment savoir que combien de membres sont inclus dans ce groupe? Avec cet article, vous apprendrez à compter les membres de la liste de distribution à l'aide du code VBA.

Compter les membres de la liste de distribution dans Outlook avec le code VBA

Créer et enregistrer un code VBA

Ajouter un bouton pour la macro à la barre d'outils d'accès rapide

Exécutez le code VBA

Compter les membres de la liste de distribution dans Outlook avec le code VBA

Vous pouvez utiliser le code VBA pour compter les membres de la liste de distribution comme suit.

Créer et enregistrer un code VBA

1. Ouvrez le Microsoft Visual Basic pour applications fenêtre en appuyant sur autre + F11 touches du clavier en même temps.

2. Cliquez insérer > Module. Voir la capture d'écran:

3. Ensuite, copiez et collez le code VBA suivant dans le VbaProjet fenêtre.

VBA: compter les membres de la 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. Puis cliquez sur le Épargnez bouton pour l'enregistrer.

5. Fermer la Microsoft Visual Basic pour applications fenêtre.

Ajouter un bouton pour la macro à la barre d'outils d'accès rapide

1. Aller à l' Contacts or Personnes vue en cliquant sur le Contacts or Personnes dans l' Volet de navigation.

2. Dans Outlook 2010 et 2013, cliquez avec le bouton droit sur le Barre d'outils d'accès rapide puis cliquez sur Personnaliser la barre d'outils Accès rapide dans le menu contextuel. Voir la capture d'écran:

Notes: Dans Outlook 2007, veuillez ouvrir une liste de distribution, puis cliquez avec le bouton droit sur le Barre d'outils d'accès rapide pour sélectionner le Barre d'outils d'accès rapide dans le menu contextuel.

3. dans le Options d'Outlook boîte de dialogue, vous devez:

1). Assurez-vous que vous vous trouvez dans le Barre d'outils d'accès rapide section;

2). Sélectionner Macros dans l' Choisissez les commandes de la liste déroulante;

3). Sélectionnez les macros dans le Séparateur boîte;

4). Clique le Ajouter bouton;

5). Et enfin cliquez sur le OK bouton. Voir la capture d'écran:

4. Ensuite, vous pouvez voir que le bouton de la macro est ajouté sur le Barre d'outils d'accès rapide.

Exécutez le code VBA

Après avoir ajouté le bouton de la macro dans la barre d'outils d'accès rapide, vous pouvez maintenant exécuter le code VBA pour compter les membres de la liste de distribution.

1. Dans Outlook 2010 et 2013, vous pouvez simplement sélectionner une liste de distribution, puis cliquer sur le bouton de la macro sur le QBarre d'outils d'accès rapide.

Notes: Dans Outlook 2007, vous devez ouvrir une liste de distribution, puis cliquer sur le bouton de la macro sur le Barre d'outils d'accès rapide.

2. Ensuite, une boîte de dialogue apparaîtra pour vous indiquer le nombre de membres contenus dans cette liste de distribution. Cliquez ensuite sur le OK.

---

Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

En savoir plus       Téléchargement gratuit      Achat