Как да преброя членовете на списъка за разпространение в Outlook?

В Outlook няма функция за директно преброяване на членовете на списъка за разпространение. Ако имате списък за разпространение с голям брой имейл адреси, как да разберете колко членове са включени в тази група? С тази статия ще научите как да броите членовете на списъка за разпространение с помощта на VBA код.

Преброяване на членовете на списъка за разпространение в Outlook с VBA код

Създайте и запазете VBA код

Добавете бутон за макроса към лентата с инструменти за бърз достъп

Стартирайте VBA кода

Преброяване на членовете на списъка за разпространение в Outlook с VBA код

Можете да използвате VBA код, за да преброите членовете на списъка за разпространение, както следва.

Създайте и запазете VBA код

1. Отвори Microsoft Visual Basic за приложения прозорец с натискане на Друг + F11 клавишите на клавиатурата едновременно.

2. кликване Поставете > Модули. Вижте екранна снимка:

3. След това копирайте и поставете следния VBA код в VbaProject прозорец.

VBA: Преброяване на членовете на списъка за разпространение в 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. След това кликнете върху Save за да го запазите.

5. Затворете Microsoft Visual Basic за приложения прозорец.

Добавете бутон за макроса към лентата с инструменти за бърз достъп

1. Отиди в Контакти or Хора прегледайте, като щракнете върху Контакти or Хора в Navigation Pane.

2. В Outlook 2010 и 2013, моля, щракнете с десния бутон върху Лента с инструменти за бърз достъп и след това щракнете върху Персонализирайте лентата с инструменти за бърз достъп в менюто с десен бутон. Вижте екранна снимка:

Забележка: В Outlook 2007, моля, отворете списък за разпространение и след това щракнете с десния бутон върху Лента с инструменти за бърз достъп за да изберете Лента с инструменти за бърз достъп в менюто с десен бутон.

3. В Outlook Options диалогов прозорец, трябва да:

1). Уверете се, че се намирате в Лента с инструменти за бърз достъп раздел;

2). Изберете Макроси в Изберете команди от падащ списък;

3). Изберете макросите в Сепаратор кутия;

4). Щракнете върху Добави бутон;

5). И накрая щракнете върху OK бутон. Вижте екранна снимка:

4. След това можете да видите, че бутонът за макроса е добавен към Лента с инструменти за бърз достъп.

Стартирайте VBA кода

След като добавите бутона за макроса в лентата с инструменти за бърз достъп, сега можете да стартирате VBA кода, за да преброите членовете на списъка за разпространение.

1. В Outlook 2010 и 2013 можете просто да изберете списък за разпространение и след това да щракнете върху бутона за макроса на Quick Access Toolbar.

Забележка: В Outlook 2007 трябва да отворите списък за разпространение и след това да щракнете върху бутона за макроса на Лента с инструменти за бърз достъп.

2. След това ще се появи поле за подкана, за да ви каже колко членове се съдържат в този списък за разпространение. След това щракнете върху OK.

---

Най-добрите инструменти за продуктивност в офиса

Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook

🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове Pro: Пакетно запазване  /  Партидно отделяне  /  Партиден компрес  /  Автоматично запазване   /  Автоматично отделяне  /  Автоматично компресиране ...

🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони   /  Увеличете продуктивността на Outlook с изгледи с раздели  /  Минимизирайте Outlook, вместо да затваряте ...

???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове  /   Антифишинг имейли  /  🕘Показване на часовата зона на подателя ...

👩🏼‍🤝‍👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли  /  Разделете група контакти на отделни групи  /  Премахнете напомнянията за рожден ден ...

Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.

Вижте повече       Безплатно сваляне      покупка