Przejdź do głównej zawartości

Jak liczyć członków listy dystrybucyjnej w Outlooku?

W programie Outlook nie ma funkcji bezpośredniego liczenia członków listy dystrybucyjnej. Jeśli masz listę dystrybucyjną z dużą liczbą adresów e-mail, jak sprawdzić, ilu członków należy do tej grupy? Z tego artykułu dowiesz się, jak liczyć członków listy dystrybucyjnej za pomocą kodu VBA.

Policz członków listy dystrybucyjnej w Outlooku za pomocą kodu VBA

Utwórz i zapisz kod VBA

Dodaj przycisk makra do paska narzędzi szybkiego dostępu

Uruchom kod VBA

Karta Office — włącz edycję i przeglądanie na kartach w pakiecie Microsoft Office, dzięki czemu praca stanie się o wiele łatwiejsza
Kutools dla programu Outlook - Zwiększ wydajność programu Outlook dzięki ponad 100 zaawansowanym funkcjom zapewniającym najwyższą wydajność
Ulepsz swój program Outlook 2021–2010 lub Outlook 365 dzięki tym zaawansowanym funkcjom. Skorzystaj z kompleksowego, 60-dniowego bezpłatnego okresu próbnego i usprawnij korzystanie z poczty e-mail!

strzałka niebieski prawy bąbelekPolicz członków listy dystrybucyjnej w Outlooku za pomocą kodu VBA

Możesz użyć kodu VBA, aby policzyć członków listy dystrybucyjnej w następujący sposób.

Utwórz i zapisz kod VBA

1. Otworzyć Microsoft Visual Basic for Applications okno naciskając klawisz inny + F11 klawisze na klawiaturze w tym samym czasie.

2. kliknij wstawka > Moduł. Zobacz zrzut ekranu:

3. Następnie skopiuj i wklej następujący kod VBA do pliku Projekt Vba okno.

VBA: Policz członków listy dystrybucyjnej w programie 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. Następnie kliknij przycisk Zapisz przycisk, aby go zapisać.

5. Zamknij Microsoft Visual Basic for Applications okno.

Dodaj przycisk makra do paska narzędzi szybkiego dostępu

1. Idź do Kontakt or Ludzie wyświetlić, klikając Kontakt or Ludzie Okienko nawigacji.

2. W programie Outlook 2010 i 2013 kliknij prawym przyciskiem myszy plik Pasek narzędzi szybkiego dostępu a następnie kliknij Dostosuj pasek narzędzi Szybki dostęp w menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

Note: W programie Outlook 2007 otwórz listę dystrybucyjną, a następnie kliknij prawym przyciskiem myszy plik Pasek narzędzi szybkiego dostępu , aby wybrać Pasek narzędzi szybkiego dostępu w menu po kliknięciu prawym przyciskiem myszy.

3. w Opcje programu Outlook w oknie dialogowym, musisz:

1). Upewnij się, że lokalizujesz w Pasek narzędzi szybkiego dostępu Sekcja;

2). Wybierz Makra Wybierz polecenia z Lista rozwijana;

3). Wybierz makra w Separator pudełko;

4). Kliknij Dodaj przycisk;

5). I na koniec kliknij OK przycisk. Zobacz zrzut ekranu:

4. Następnie zobaczysz, że przycisk makra został dodany na Pasek narzędzi szybkiego dostępu.

Uruchom kod VBA

Po dodaniu przycisku makra na pasku narzędzi szybkiego dostępu można teraz uruchomić kod VBA, aby policzyć członków listy dystrybucyjnej.

1. W programach Outlook 2010 i 2013 wystarczy wybrać listę dystrybucyjną, a następnie kliknąć przycisk makra na karcie QKliknij Access Toolbar.

Note: W programie Outlook 2007 należy otworzyć listę dystrybucyjną, a następnie kliknąć przycisk makra w pliku Pasek narzędzi szybkiego dostępu.

2. Następnie pojawi się okienko z pytaniem, ilu członków znajduje się na tej liście dystrybucyjnej. Następnie kliknij OK.


Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki ProZapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

 

 

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