¿Cómo se cuenta el número de miembros de una lista de distribución en Outlook?

Gestionar un grupo de contactos en Outlook puede resultar complicado en ocasiones, especialmente cuando necesita conocer el número de miembros de una lista de distribución. Outlook no incluye una función integrada para ello, lo que deja a muchos usuarios sin saber cómo obtener rápidamente un recuento preciso. En este artículo exploraremos dos métodos para resolver este problema: usar VBA para una solución manual y el método mucho más sencillo y rápido de Kutools para Outlook. Si busca facilidad de uso y eficiencia, el segundo método destacará claramente.

Contar miembros de una lista de distribución mediante código VBA(Manual y tedioso)

• Paso 1: Cree y guarde el código VBA
• Paso 2: Añada un botón para la macro a la Barra de herramientas de acceso rápido
• Paso 3: Ejecute el código VBA

Cuente al instante los miembros de Grupo de contactos con Kutools para Outlook 👍(Rápido y sin esfuerzo)

---

Contar miembros de una lista de distribución mediante código VBA

Para usuarios familiarizados con configuraciones técnicas, «VBA» (Visual Basic para Aplicaciones) ofrece una forma de contar los miembros de una lista de distribución. Aunque eficaz, este método requiere cierto esfuerzo para configurarlo y ejecutarlo.

Paso 1: Cree y guarde el código VBA

1. Pulse «Alt» + «F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en «Insertar» > «Módulo» en la barra de herramientas.

3. A continuación, copie y pegue el siguiente código VBA en la ventana «VbaProject».

VBA: Contar miembros de una lista de distribución en 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. Haga clic en el icono «Guardar» y, a continuación, cierre el editor de VBA.

Paso 2: Añada un botón para la macro a la Barra de herramientas de acceso rápido

1. Vaya a «Personas» o «Contactos» en el panel de navegación de Outlook para cambiar a la vista «Contactos»/«Personas».

2. Haga clic con el botón derecho en la «Barra de herramientas de acceso rápido» y elija «Personalizar la Barra de herramientas de acceso rápido» en el menú contextual.

3. En el cuadro de diálogo «Opciones de Outlook», debe:

• 1). Seleccione «Macros» en la lista desplegable «Elegir comandos de».
• 2). Seleccione la macro que creó en la lista, haga clic en «Agregar» y luego en «Aceptar».

Paso 3: Ejecute el código VBA

Tras añadir el botón de la macro a la «Barra de herramientas de acceso rápido», podrá ejecutar el código VBA para contar los miembros de la lista de distribución.

1. Seleccione la lista de distribución que desea analizar y, a continuación, haga clic en el botón de la macro ubicado en la «Barra de herramientas de acceso rápido».

2. Aparecerá un mensaje indicando el número de miembros de la lista de distribución.

---

---

Cuente al instante los miembros de Grupo de contactos con Kutools para Outlook 👍

Si busca una solución más rápida, sencilla e intuitiva, «Kutools para Outlook» es la herramienta perfecta. Su función «Información» le muestra al instante el número de miembros de una lista de distribución con un solo clic. Este método elimina la necesidad de configuraciones técnicas y ofrece detalles adicionales sobre el grupo, lo que lo convierte en imprescindible para los usuarios de Outlook.

1. Tras abrir el grupo de contactos que desea analizar, haga clic en «Kutools» > «Información».

2. Al instante podrá ver el «número total de miembros», la «fecha de creación» y la «fecha de última modificación».