Ինչպե՞ս հաշվել Outlook- ի որոշակի թղթապանակի տակ գտնվող ենթապանակների քանակը:

Ենթադրելով, որ դուք արմատային պանակի տակ ստեղծել եք որոշ պանակներ: Այժմ դուք ուզում եք իմանալ, թե քանի ենթապանակ է արմատային պանակի տակ, ինչպե՞ս կարող եք անել: Պարզապես ընդլայնել արմատային պանակը և ձեռքով հաշվել բոլոր ենթապանակները մեկ առ մեկ: Այս հոդվածը ձեզ կներկայացնի դրան հասնելու հեշտ մեթոդ:

Հաշվեք ենթապանակների քանակը VBA կոդով

Հաշվեք ենթապանակների քանակը VBA կոդով

Հաջորդ VBA կոդը կարող է օգնել ձեզ հաշվել Outlook- ի որոշակի արմատային թղթապանակի տակ գտնվող ենթապանակների քանակը: Խնդրում եմ արեք հետևյալ կերպ.

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և կպցրեք ներքևում գտնվող VBA կոդի կոդի պատուհանում:

VBA կոդ. Outlook- ի որոշակի թղթապանակի տակ ենթապանակների քանակի հաշվարկ

Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
    MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
For Each xFolder In xRootFolder.Folders
    If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
        xFolderCount = xFolderCount + 1
        Call ProcessFolders(xFolder, xFolderCount)
    End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
    Call ProcessFolders(xSubFolder, Num)
Next
End Sub

3. Սեղմեք F5 ծածկագիրը գործելու համար:

4. Բացման մեջ Ընտրեք թղթապանակը երկխոսության վանդակում, ընտրեք թղթապանակ, որը կհաշվեք դրա ենթաթղթապանակները, այնուհետև սեղմեք կոճակը OK կոճակ Տեսեք,

5. Հետո ա Outlook- ի համար նախատեսված գործիքներ Երկխոսության տուփը հայտնվում է, որպեսզի ձեզ ասի, թե քանի ենթաթղթապանակ կա նշված թղթապանակում: Տես սքրինշոթը.

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս հաշվել թղթապանակների քանակը նշված էլփոստի հաշվի կամ Outlook- ի բոլոր փոստարկղերի տակ:
• Ինչպե՞ս միավորել բազմաթիվ հաշիվների բոլոր մուտքային արկղերը ՝ Outlook- ում բոլոր էլփոստերը միասին ցուցադրելու համար:
• Ինչպե՞ս ցուցադրել «Թերթիր թղթապանակի համար» երկխոսությունը Outlook- ում պանակ ընտրելու համար:
• Ինչպե՞ս գտնել անհայտ կորած թղթապանակը, որը պատահաբար տեղափոխվել է Outlook- ում:

---

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

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

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

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

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

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

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

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

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

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

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