Outlook-da ma'lum bir jild ostidagi pastki papkalarning umumiy sonini qanday tezda olish mumkin

Ehtimol siz Outlook-da Inbox kabi ma'lum bir jild ostida juda ko'p pastki papkalarni yaratgandirsiz. Bunday holda, agar siz pastki papkalarni hisoblashni istasangiz, qo'lda hisoblashni istamasligingiz kerak. Bu erda biz sizga ancha aqlli yo'lni baham ko'ramiz.

Outlook-da elementlarni yaxshiroq tasniflash va arxivlash uchun ko'p foydalanuvchilar turli papkalar va pastki papkalarni yaratishga odatlangan. Biroq, keyinchalik ular juda ko'p papkalarni boshqarishni biroz qiyin deb o'ylashlari mumkin. Bunday holda, ular ma'lum bir jild ostida qancha pastki papkalar borligini hisoblashni xohlashlari mumkin. Hech qanday shubhasiz, qo'lda hisoblash ahmoq va zerikarli. Shuning uchun, biz quyida ancha aqlli vositalarni ko'rsatamiz.

Muayyan jild ostidagi pastki papkalarning umumiy sonini oling

1. Eng boshida, start Outlook dasturingiz.
2. Keyin, Outlook oynasida VBA muharririga kirish uchun "Alt + F11" tugmachalarini bosishingiz mumkin.
3. Keyinchalik, ochilgan oynada siz ishlatilmaydigan modulni ochishingiz kerak.
4. Keyinchalik, ushbu modulga quyidagi VBA kodini nusxa ko'chiring va joylashtiring.

Sub CountSubfoldersUnderRootFolder()
    Dim objRootFolder As Folder
    Dim lFolderCount As Long
    Dim objFolder As Object
 
    'Get the current folder
    Set objRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    'If you want to select, use the following line instead
    'Set objRootFolder = Outlook.Application.Session.PickFolder
 
    If objRootFolder.Folders.count > 0 Then
       For Each objFolder In objRootFolder.Folders
           'Exclude the hidden folders under Inbox
           If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
              lFolderCount = lFolderCount + 1
 
              'Process subfolders recursively
              Call ProcessFolders(objFolder, lFolderCount)
           End If
       Next
       MsgBox lFolderCount & " subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    Else
       MsgBox "No subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    End If
End Sub
 
Sub ProcessFolders(objCurrentFolder As Object, lCount As Long)
    Dim objSubfolder As Object
 
    lCount = lCount + objCurrentFolder.Folders.count
 
    For Each objSubfolder In objCurrentFolder.Folders
        Call ProcessFolders(objSubfolder, lCount)
    Next
End Sub

5. Shundan so'ng siz joriy oynadan chiqishingiz mumkin.
6. Keyinchalik, "Fayl"> "Tanlovlar"> "Tez kirish asboblar paneli" ga o'ting. U erda siz tez kirish asboblar paneliga yangi makrosni qo'shishingiz mumkin.
7. Nihoyat, siz ushbu makroni sinab ko'rishingiz mumkin.

• Avvalo, pastki papkalarini hisoblamoqchi bo'lgan jildni tanlang.
• Keyin, Tez kirish asboblar panelidagi makros tugmasini bosing.
• Darhol, Outlook ushbu makrosni ishga tushiradi.
• Makros tugagandan so'ng siz quyidagi rasm kabi xabar olasiz:

Outlook korruptsiyasi bilan kurashishning fokuslari

Outlook juda ko'p omillarga, jumladan viruslar, dasturiy ta'minot yoki apparat muammolari, elektr ta'minotidagi uzilishlar va boshqalarga nisbatan zaifdir. Hech kim Outlook faylini korruptsiyadan uzoqroq saqlashga kafolat bera olmaydi. Shuning uchun zararni engish uchun ba'zi hiylalarni o'zlashtirish juda muhimdir. Birinchidan, muntazam PST zaxira nusxasini yaratishingiz kerak. Bundan tashqari, siz qanday foydalanishni bilishingiz kerak Scanpst, o'rnatilgan ta'mirlash vositasi. Va nihoyat, siz kuchliroq tashqi vositani tayyorlashingiz kerak, masalan DataNumen Outlook repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com