Jak počítat členy distribučního seznamu v Outlooku?
Správa skupin kontaktů v aplikaci Outlook může být někdy náročná, zvláště když potřebujete znát počet členů v distribučním seznamu. Outlook pro to nenabízí vestavěnou funkci, takže mnoho uživatelů si není jistí, jak rychle získat přesný počet. V tomto článku prozkoumáme dvě metody řešení tohoto problému: použití VBA pro ruční řešení a mnohem jednodušší a rychlejší metodu Kutools pro Outlook. Pokud hledáte snadné použití a efektivitu, druhá metoda bude skutečně vynikat.
Počítání členů distribučního seznamu pomocí kódu VBA (Manuální a nudné)
- Krok 1: Vytvořte a uložte kód VBA
- Krok 2: Přidejte tlačítko pro makro na panel nástrojů Rychlý přístup
- Krok 3: Spusťte kód VBA
Okamžitě počítejte členy kontaktní skupiny pomocí Kutools pro Outlook 👍 (Rychle a bez námahy)
Počítání členů distribučního seznamu pomocí kódu VBA
Pro uživatele pohodlné s technickým nastavením, VBA (Visual Basic for Applications) poskytuje způsob, jak počítat členy v distribučním seznamu. I když je tato metoda účinná, vyžaduje určité úsilí při konfiguraci a spuštění.
Krok 1: Vytvořte a uložte kód VBA
1. lis Další + F11 pro spuštění okna Microsoft Visual Basic for Applications.
2. cvaknutí Vložit > Modul v panelu nástrojů.
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. Klepněte na ikonu Uložit a zavřete editor VBA.
Krok 2: Přidejte tlačítko pro makro na panel nástrojů Rychlý přístup
1. Navigovat do Lidé or Kontakty v navigačním podokně Outlooku přepněte na Kontakty/Pohled lidí.
2. Klepně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.
3. V Možnosti aplikace Outlook dialogové okno, musíte:
1). Vybrat makra v Vyberte příkazy z rozbalovací seznam;
2). Vyberte makro, které jste vytvořili v oddělovač a klepněte na tlačítko přidat, poté klepněte na tlačítko OK.
Krok 3: Spusťte kód VBA
Po přidání tlačítka pro makro na Panel nástrojů Rychlý přístup, nyní můžete spustit kód VBA pro počítání členů distribučního seznamu.
1. Vyberte distribuční seznam, který chcete analyzovat, a poté klikněte na tlačítko makra Panel nástrojů Rychlý přístup.
2. Výzva zobrazí počet členů v distribučním seznamu.
🌟 Bez námahy rozdělte skupiny kontaktů v Outlooku 🌟
🚀 Rychle reorganizujte své skupiny kontaktů v Outlooku! S Kutools pro aplikaci Outlook, můžete rozdělit velké skupiny na menší, lépe ovladatelné pomocí několika kliknutí.
✨ Jak to funguje:
- Přepněte do zobrazení Kontakty a vyberte skupinu, kterou chcete rozdělit.
- klikněte Kutools Plus > Skupina kontaktů > Rozdělit na více skupin kontaktů.
- Vyberte kontakty, které chcete přesunout do nové skupiny, a pojmenujte skupinu.
- klikněte OK a zbytek ať si vyřídí Kutools!
Okamžitě počítejte členy kontaktní skupiny pomocí Kutools pro Outlook 👍
Pokud hledáte rychlejší, jednodušší a intuitivnější řešení, Kutools pro aplikaci Outlook je perfektní nástroj. Jeho Informace Funkce poskytuje okamžitý počet členů distribučního seznamu jediným kliknutím. Tato metoda eliminuje potřebu technických nastavení a nabízí další podrobnosti o skupině, takže je pro uživatele aplikace Outlook nutností.
Odemkněte maximální efektivitu e-mailu s Kutools pro aplikaci Outlook! Přístup 70 výkonné funkce zcela zdarma, navždy. Stáhněte si bezplatnou verzi nyní!
1. Po otevření skupiny kontaktů, kterou chcete analyzovat, klepněte na Kutools > Informace.
2. Okamžitě můžete vidět celkový počet členů, datum vzniku, a datum poslední úpravy.
Proč je Kutoolsova metoda vynikající?
I když je přístup VBA funkční, pro většinu uživatelů je nepraktický kvůli své složitosti a vícestupňovému nastavení. Kutools pro Outlook, na druhé straně, nabízí bezkonkurenční pohodlí. Zde je důvod, proč je to lepší volba:
- Rychlé nastavení: Není třeba procházet nabídky nebo psát kód. Nainstalujte Kutools a jste připraveni jít.
- Řešení na jedno kliknutí: Ušetřete čas a námahu s okamžitými výsledky.
- Bez chyb: Na rozdíl od VBA neexistuje žádné riziko chyb v kódování nebo konfiguraci. Kutools zajišťuje pokaždé 100% přesnost.
- Komplexní informace: Jděte nad rámec pouhého počtu členů o další data, která VBA nemůže poskytnout.
- Profesionální produktivita: Ideální pro uživatele, kteří potřebují spravovat skupiny kontaktů efektivně a bez přerušení.
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (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: Připomenout e-maily / 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 Pro: Dá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ů / Připomeňte si, když přijdou důležité e-maily / 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 ...
