Přejít k hlavnímu obsahu

Jak počítat členy distribučního seznamu v Outlooku?

V Outlooku není k dispozici žádná funkce pro přímé počítání členů distribučního seznamu. Pokud máte distribuční seznam s velkým množstvím e-mailových adres, jak zjistit, kolik členů je zahrnuto do této skupiny? V tomto článku se naučíte, jak počítat členy distribučního seznamu pomocí kódu VBA.

Počítejte členy distribučního seznamu v Outlooku pomocí kódu VBA

Vytvořte a uložte kód VBA

Přidejte tlačítko makra na panel nástrojů Rychlý přístup

Spusťte kód VBA

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou
Kutools pro Outlook – Vylepšete Outlook se 100+ pokročilými funkcemi pro vynikající efektivitu
Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si komplexní 60denní bezplatnou zkušební verzi a vylepšete svůj e-mailový zážitek!

šipka modrá pravá bublinaPočítejte členy distribučního seznamu v Outlooku pomocí kódu VBA

Kód VBA můžete použít k počítání členů distribučního seznamu následujícím způsobem.

Vytvořte a uložte kód VBA

1. Otevři Microsoft Visual Basic pro aplikace okno stisknutím tlačítka Další + F11 kláves na klávesnici současně.

2. cvaknutí Vložit > Modul. Viz snímek obrazovky:

3. Poté zkopírujte a vložte následující kód VBA do VbaProject okno.

VBA: Počítejte členy distribučního seznamu v Outlooku

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. Poté klikněte na tlačítko Uložit pro uložení.

5. Zavři Microsoft Visual Basic pro aplikace okno.

Přidejte tlačítko makra na panel nástrojů Rychlý přístup

1. Přejít na Kontakty or Lidé zobrazíte kliknutím na ikonu Kontakty or Lidé v Navigační podokno.

2. V aplikaci Outlook 2010 a 2013 klikněte pravým tlačítkem na ikonu Panel nástrojů Rychlý přístup a poté klepněte na tlačítko OK Přizpůsobte panel nástrojů Rychlý přístup v nabídce pravým tlačítkem. Viz snímek obrazovky:

Poznámka: V aplikaci Outlook 2007 otevřete distribuční seznam a poté klikněte pravým tlačítkem na ikonu Panel nástrojů Rychlý přístup vyberte položku Panel nástrojů Rychlý přístup v nabídce pravým tlačítkem.

3. V Možnosti aplikace Outlook dialogové okno, musíte:

1). Ujistěte se, že se nacházíte v Panel nástrojů Rychlý přístup sekce;

2). Vybrat makra v Vyberte příkazy z rozbalovací seznam;

3). Vyberte makra v oddělovač krabice;

4). Klikněte na ikonu přidat tlačítko;

5). A nakonec klikněte na OK knoflík. Viz screenshot:

4. Pak můžete vidět, že tlačítko pro makro je přidáno na Panel nástrojů Rychlý přístup.

Spusťte kód VBA

Po přidání tlačítka pro makro na panelu nástrojů Rychlý přístup nyní můžete spustit kód VBA a spočítat členy distribučního seznamu.

1. V aplikaci Outlook 2010 a 2013 stačí vybrat distribuční seznam a poté kliknout na tlačítko makra na Quick Access Toolbar.

Poznámka: V aplikaci Outlook 2007 musíte otevřít distribuční seznam a poté kliknout na tlačítko makra na Panel nástrojů Rychlý přístup.

2. Poté se zobrazí okno s výzvou, abyste zjistili, kolik členů je obsaženo v tomto distribučním seznamu. Poté klikněte na ikonu OK.


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

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