Як швидко отримати загальну кількість вкладених папок у певній папці в Outlook

Можливо, ви створили велику кількість вкладених папок у певній папці, наприклад папці «Вхідні», у своєму Outlook. У цьому випадку, якщо ви хочете підрахувати вкладені папки, ви не бажаєте підраховувати вручну. Тут ми поділимося з вами набагато розумнішим способом.

Щоб краще класифікувати та архівувати елементи в Outlook, багато користувачів звикли створювати різні папки та вкладені папки. Проте згодом вони можуть подумати, що керувати великою кількістю папок трохи складно. У цьому випадку вони можуть захотіти підрахувати, скільки вкладених папок є в певній папці. Без сумніву, рахувати вручну нерозумно і нудно. Тому далі ми покажемо набагато більш розумний засіб.

Отримайте загальну кількість вкладених папок у певній папці

1. На самому початку сtart свою програму Outlook.
2. Потім у вікні Outlook ви можете натиснути клавіші «Alt + F11», щоб отримати доступ до редактора VBA.
3. Далі у наступному спливаючому вікні потрібно відкрити модуль, який не використовується.
4. Згодом скопіюйте та вставте наступний код VBA в цей модуль.

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. Після цього ви можете вийти з поточного вікна.
6. Пізніше перейдіть до «Файл» > «Параметри» > «Панель швидкого доступу». Там ви можете додати новий макрос на панель швидкого доступу.
7. Нарешті, ви можете спробувати цей макрос.

• Спочатку виберіть папку, вкладені папки якої ви хочете порахувати.
• Потім натисніть кнопку макросу на панелі швидкого доступу.
• Одразу Outlook запустить цей макрос.
• Після завершення роботи макросу ви отримаєте повідомлення, як на зображенні нижче:

Хитрощі, як подолати пошкодження Outlook

Outlook надзвичайно вразливий до багатьох факторів, включаючи віруси, проблеми з програмним або апаратним забезпеченням, відключення електроенергії тощо. Ніхто не може гарантувати, що вони зможуть зберегти свій файл Outlook подалі від пошкоджень. Тому важливо освоїти деякі прийоми, щоб впоратися з пошкодженнями. По-перше, вам потрібно регулярно робити резервну копію PST. Крім того, ви повинні знати, як використовувати scanpst, вбудований засіб відновлення. І останнє, але не менш важливе, вам слід підготувати більш надійний зовнішній інструмент, наприклад DataNumen Outlook repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправлення mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com