Ինչպե՞ս հաշվել բաշխման ցուցակի անդամներին 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. Այնուհետեւ կտտացրեք Փրկել կոճակը փրկելու համար:

5. Փակեք այն Microsoft Visual Basic հավելվածների համար պատուհան.

Արագ մուտքի գործիքագոտում մակրոի համար կոճակ ավելացրեք

1. Գնալ Կապ Մեզ Հետ or Մարդիկ դիտել ՝ կտտացնելով Կապ Մեզ Հետ or Մարդիկ է Նավիգացիոն շրջանակը.

2. Outlook 2010 և 2013 ծրագրերում խնդրում ենք սեղմել աջով Արագ մուտք Գործիքադարակը եւ ապա սեղմեք Անհատականացրեք Արագ մուտքի Գործիքադարակը աջ կտտացնելու ցանկում: Տեսեք,

ՆշումOutlook 2007-ում խնդրում ենք բացել բաշխման ցուցակ և այնուհետև սեղմել աջի վրա Արագ մուտք Գործիքադարակը ընտրելու համար Արագ մուտք Գործիքադարակը աջ կտտացնելու ցանկում:

3. Մեջ Outlook տարբերակները երկխոսության տուփ, անհրաժեշտ է.

1) Համոզվեք, որ գտնվում եք տեղակայքում Արագ մուտք Գործիքադարակը Բաժին;

2) Ընտրեք Մակրո է Ընտրեք հրամաններ բացվող ցուցակ;

3) Ընտրեք մակրոները ՝ Բաժանիչ տուփ;

4) Սեղմիր Ավելացնել կոճակ;

5) Եվ վերջապես կտտացրեք այն OK կոճակ Տեսեք,

4. Դրանից հետո կտեսնեք, որ մակրոի համար կոճակը ավելացված է Արագ մուտք Գործիքադարակը.

Գործարկել VBA կոդը

Արագ մուտքի գործիքագոտում մակրոի համար կոճակ ավելացնելուց հետո այժմ կարող եք գործարկել VBA կոդը ՝ բաշխման ցուցակի անդամներին հաշվելու համար:

1. Outlook 2010 և 2013 թվականներում կարող եք պարզապես ընտրել բաշխման ցուցակ, ապա կտտացնել Q- ի մակրոի կոճակինuick Access Գործիքադարակը.

ՆշումOutlook 2007-ում դուք պետք է բացեք բաշխման ցուցակ և այնուհետև կտտացրեք մակրոի վրա կոճակին Արագ մուտք Գործիքադարակը.

2. Այնուհետև կհայտնվի հուշման տուփ, որը կպատմի ձեզ, թե քանի անդամ կա այս բաշխման ցուցակում: Դրանից հետո կտտացրեք OK.

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ Pro: Խմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

Կարդալ ավելին       Անվճար ներբեռնում      Ձեռք բերել