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

Иногда вам может понадобиться развернуть или свернуть все почтовые папки в области навигации почты за один раз. В этом случае вы можете использовать методы, представленные в этом п.ost.

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

Развернуть все почтовые папки

1. В первую очередь, сtart ваша программа Outlook нормально.
2. Затем нажмите клавиши «Alt + F11» в главном окне Outlook.
3. Затем в окне редактора Outlook VBA откройте пустой модуль.
4. Затем скопируйте в этот модуль следующие коды VBA.

Sub ExpandAllMailFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objPSTFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder

    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
    'Specify a specific pst file
    'Change "PSTName" to the name of your own Outlook PST file
    Set objPSTFolders = Application.Session.Folders("PSTName").Folders
 
    For Each objFolder In objPSTFolders
        Call ProcessFolder(objFolder)
    Next

    DoEvents
    Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
End Sub

Sub ProcessFolder(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    'Only expand the mail folders
    If objCurFolder.DefaultItemType = olMailItem Then
       Set Application.ActiveExplorer.CurrentFolder = objCurFolder
       DoEvents
 
       'Process all subfolders recursively
       If objCurFolder.Folders.Count > 0 Then
          For Each objSubfolder In objCurFolder.Folders
              Call ProcessFolder(objSubfolder)
          Next
       End If
    End If
End Sub

5. После этого вы можете нажать кнопку «Run Sub» на панели инструментов или нажать клавишу F5, чтобы запустить новый макрос.
6. Сразу же все почтовые папки в предопределенном файле Outlook PST будут расширены.

Свернуть все почтовые папки

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

Гибкая обработка проблемных ошибок PST

Вы когда-нибудь получали сообщения об ошибках при использовании Outlook? Если вы использовали Outlook в течение десятилетий, вы должны это сделать. Без всяких сомнений, Outlook уязвим для ошибок. Таким образом, чтобы лучше защитить данные Outlook, вам необходимо периодически создавать резервную копию файла Outlook PST. Кроме того, предлагается сохранить PST-исправление инструмент поблизости, например DataNumen Outlook Repair.

Об авторе:

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