Как быстро получить общее количество подпапок в определенной папке в Outlook

Возможно, вы создали большое количество вложенных папок в определенной папке, например, в папке «Входящие» в Outlook. В этом случае, если вы хотите подсчитать подпапки, вы должны воздержаться от подсчета вручную. Здесь мы поделимся с вами гораздо более умным способом.

Чтобы лучше классифицировать и архивировать элементы в Outlook, многие пользователи привыкли создавать различные папки и подпапки. Тем не менее, впоследствии они могут подумать, что управлять слишком большим количеством папок немного сложно. В этом случае они могут захотеть подсчитать, сколько подпапок находится в определенной папке. Вне всякого сомнения, считать вручную глупо и утомительно. Поэтому в дальнейшем мы покажем гораздо более интеллектуальные средства.

Получить общее количество подпапок в определенной папке

1. Для начала запустите программу 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. Кроме того, вы должны знать, как использовать Скэнпст, встроенный инструмент для ремонта. И последнее, но не менее важное: вам следует подготовить более надежный внешний инструмент, такой как DataNumen Outlook repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com