Иногда вам может понадобиться развернуть или свернуть все почтовые папки в области навигации почты за один раз. В этом случае вы можете использовать методы, представленные в этом п.ost.
По некоторым причинам, например для более удобной проверки электронной почты в разных папках и подпапках, вы можете захотеть развернуть все почтовые папки. Точно так же, если вы чувствуете, что раскрытие всех папок делает панель навигации по почте слишком сложной, вы можете свернуть все папки. На этом этапе, если вы развернете или свернете их вручную, щелкая по одному, это будет довольно утомительно. Таким образом, вы должны стремиться к очень быстрому методу, который может развернуть или свернуть все почтовые папки за один раз. Теперь здесь мы представим вам такое средство.
Развернуть все почтовые папки
- В первую очередь, сtart ваша программа Outlook нормально.
- Затем нажмите клавиши «Alt + F11» в главном окне Outlook.
- Затем в окне редактора Outlook VBA откройте пустой модуль.
- Затем скопируйте в этот модуль следующие коды VBA.
Sub ExpandAllMailFolders() Dim objCurrentFolder As Outlook.Folder Dim objPSTFolders As Outlook.Folders Dim objFolder As Outlook.Folder Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder 'Укажите конкретный файл PST 'Измените "PSTName" на имя вашего собственного файла Outlook PST Установите objPSTFolders = Application.Session.Folders("PSTName").Folders Для каждой папки objFolder В objPSTFolders Вызовите ProcessFolder(objFolder) Далее DoEvents Установите Application.ActiveExplorer.CurrentFolder = objCurrentFolder End Sub Sub ProcessFolder(ByVal objCurFolder As Outlook.Folder) Dim objSubfolder As Outlook.Folder 'Расширять только почтовые папки If objCurFolder.DefaultItemType = olMailItem Then Set Application.ActiveExplorer.CurrentFolder = objCurFolder DoEvents 'Рекурсивно обрабатывать все подпапки If objCurFolder.Folders.Count > 0 Затем для каждой objSubfolder в objCurFolder.Folders вызывать ProcessFolder(objSub папка ) Далее Конец Если Конец Если Конец Вложенный
- После этого вы можете нажать кнопку «Run Sub» на панели инструментов или нажать клавишу F5, чтобы запустить новый макрос.
- Сразу же все почтовые папки в предопределенном файле Outlook PST будут расширены.
Свернуть все почтовые папки
По сравнению с расширением всех почтовых папок свернуть их намного проще. Вы можете просто свернуть корень конкретного файла Outlook PST, а затем снова развернуть его. Для этого вы можете щелкнуть стрелку перед папкой верхнего уровня файла PST, как показано на следующем снимке экрана. После этого повторно щелкните стрелку, чтобы развернуть файл. Вы можете видеть, что все подпапки свернуты.
Гибкая обработка проблемных ошибок PST
Вы когда-нибудь получали сообщения об ошибках при использовании Outlook? Если вы использовали Outlook в течение десятилетий, вы должны это сделать. Без всяких сомнений, Outlook уязвим для ошибок. Таким образом, чтобы лучше защитить данные Outlook, вам необходимо периодически создавать резервную копию файла Outlook PST. Кроме того, предлагается сохранить PST-исправление инструмент поблизости, например DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com