Saltar al contenido principal

¿Cómo contar los miembros de la lista de distribución en Outlook?

En Outlook, no hay ninguna función para que cuente los miembros de la lista de distribución directamente. Si tiene una lista de distribución con una gran cantidad de direcciones de correo electrónico, ¿cómo saber cuántos miembros están incluidos en este grupo? Con este artículo, aprenderá a contar los miembros de la lista de distribución con el uso del código VBA.

Contar miembros de la lista de distribución en Outlook con código VBA

Crea y guarda un código VBA

Agregar un botón para la macro a la barra de herramientas de acceso rápido

Ejecuta el código VBA

Pestaña Office: habilite la edición y navegación con pestañas en Microsoft Office, haciendo que el trabajo sea muy sencillo
Kutools para Outlook: mejore Outlook con más de 100 funciones avanzadas para una eficiencia superior
Mejore su Outlook 2021 - 2010 o Outlook 365 con estas funciones avanzadas. ¡Disfruta de una prueba completa gratuita de 60 días y mejora tu experiencia de correo electrónico!

flecha azul burbuja derechaContar miembros de la lista de distribución en Outlook con código VBA

Puede usar el código VBA para contar los miembros de la lista de distribución de la siguiente manera.

Crea y guarda un código VBA

1. Abre el Microsoft Visual Basic para aplicaciones ventana presionando el otro + F11 teclas del teclado al mismo tiempo.

2. Hacer clic en recuadro > Módulo. Ver captura de pantalla:

3. Luego copie y pegue el siguiente código VBA en el Proyecto Vba ventana.

VBA: cuente los miembros de la 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. Luego haga clic en el Guardar Para guardarlo.

5. Cierra el Microsoft Visual Basic para aplicaciones ventana.

Agregar un botón para la macro a la barra de herramientas de acceso rápido

1. Vaya a la Contacto or Nuestro Personal ver haciendo clic en el Contacto or Nuestro Personal existentes Panel de exploración.

2. En Outlook 2010 y 2013, haga clic derecho en el Acceso rapido a la barra de herramientas y haga clic en Personalizar la barra de herramientas de acceso rápido en el menú contextual. Ver captura de pantalla:

Note: En Outlook 2007, abra una lista de distribución y luego haga clic derecho en el Acceso rapido a la barra de herramientas Para seleccionar el Acceso rapido a la barra de herramientas en el menú contextual.

3. En el Opciones de outlook cuadro de diálogo, debe:

1). Asegúrese de ubicarse en el Acceso rapido a la barra de herramientas sección;

2). Seleccione Macros existentes Elija comandos de la lista desplegable;

3). Seleccione las macros en el Separador caja;

4). Haga clic en el Añada botón;

5). Y finalmente haga clic en el OK botón. Ver captura de pantalla:

4. Luego puede ver que el botón de la macro se agrega en el Acceso rapido a la barra de herramientas.

Ejecuta el código VBA

Después de agregar el botón para la macro en la barra de herramientas de acceso rápido, ahora puede ejecutar el código VBA para contar los miembros de la lista de distribución.

1. En Outlook 2010 y 2013, puede seleccionar una lista de distribución y luego hacer clic en el botón de la macro en QHaga clic en la barra de herramientas de acceso.

Note: En Outlook 2007, debe abrir una lista de distribución y luego hacer clic en el botón de la macro en el Acceso rapido a la barra de herramientas.

2. Luego, aparecerá un cuadro emergente para indicarle cuántos miembros hay en esta lista de distribución. Luego haga clic en el OK.


Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

Leer Mas       Descargar gratis      Comprar
 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Wish there was an easier way to find out how many addresses in a contact group, but since there isn't this is about the best method I've seen. Thank you!
This comment was minimized by the moderator on the site
Alternate method is to: create a dummy message with the list expand the list select all copy to Word find and replace: "; " with "^p" [or anything!] dialog box shows number of replacements add 1 to that number
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations