¿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
Agregar un botón para la macro a la barra de herramientas de acceso rápido
- Automatiza el envío de correos electrónicos con Auto CC / BCC, Reenvío automático por reglas; enviar Respuesta automática (Fuera de la oficina) sin necesidad de un servidor Exchange...
- Recibe recordatorios como Advertencia de BCC al responder a todos mientras estás en la lista CCO, y Recordar si faltan archivos adjuntos para apegos olvidados...
- Mejore la eficiencia del correo electrónico con Responder (todos) con archivos adjuntos, Agregar automáticamente saludo o fecha y hora a la firma o al asunto, Responder varios correos electrónicos...
- Optimice el envío de correos electrónicos con Recuperar correos electrónicos, Herramientas de adjunto (Comprimir todo, Guardar todo automáticamente...), Eliminar duplicadosy Informe rápido...
Contar 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.
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 Personas ver haciendo clic en el Contacto or Personas 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.
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 profesionales: Guardar 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.