Если вы хотите экспортировать все папки Outlook, а также их элементы в разделе «Избранное», вы можете обратиться к этой статье. Здесь мы покажем вам, как сделать это в кратчайшие сроки.
Как правило, папки и их элементы в разделе «Избранное» имеют большое значение и часто используются. Поэтому иногда вам может понадобиться экспортировать их на локальный диск. Стандартным способом вы должны создать папки Windows в соответствии с папками в «Избранном» и сохранить элементы в виде файлов MSG один за другим на локальном диске. Это слишком утомительно. Следовательно, здесь мы представим гораздо более эффективный способ. Теперь читайте дальше, чтобы получить его.
Экспорт всех папок и элементов в разделе «Избранное» в папку Windows
- Для начала откройте редактор VBA в Outlook, обратившись к «Как запустить код VBA в Outlook».
- Затем скопируйте следующий код в пустой модуль.
Sub ExportAllFoldersItems_InFavorites_ToWindowsFolder() Dim objShell As Object Dim objWindowsFolder As Object Dim objFileSystem As Object Dim strWindowsFolder As String Dim objNavigationPane As Outlook.NavigationPane Dim objNavigationModule As Outlook.NavigationModule Dim objNavigationGroup As Outlook.Navig ationGroup Dim objNavigationFolder As Outlook.NavigationFolder Dim objFolder As Outlook.Folder Dim strFolderPath As String Dim objItem As Object Dim strFilePath As String Dim i As Long 'Выберите папку Windows Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder(0, "Выберите папку Windows:", 0 , "") Set objFileSystem = CreateObject("Scripting.FileSystemObject") Если Not objWindowsFolder is Nothing Then strWindowsFolder = objWindowsFolder.self.Path & "\" 'Получить раздел "Избранное" Set objNavigationPane = Application.ActiveExplorer.NavigationPane Set objNavigationModule = objNavigationPane .Modules.GetNavigationModule(olModuleMail) Set objNavigationGroup = objNavigationModule.NavigationGroups.GetDefaultNavigationGroup(olFavoriteFoldersGroup) 'Экспортировать папки и элементы в разделе «Избранное» Для каждой папки objNavigationFolder в objNavigationGroup.NavigationFolders Set ob jFolder = objNavigationFolder.Folder strFolderPath = strWindowsFolder & objFolder.Name objFileSystem .CreateFolder strFolderPath Для каждого объекта objItem в objFolder.Items strSubject = objItem.Subject strFileName = strSubject & ".msg" i = 0 Делать до False strFilePath = strFolderPath & "\" & strFileName If objFileSystem.FileExists(strFilePath) Then i = i + 1 strFileName = strSubject & "(" & i & ").msg" Else Exit Do End If Loop objItem.SaveAs strFilePath, olMSG Next Next 'Открыть папку Windows Call Shell("explorer.exe" & strWindowsFolder, vbNormalFocus) End If Конец сабвуфера
- Затем нажмите значок «Выполнить» на панели инструментов.
- Затем во всплывающем диалоговом окне выберите целевую папку Windows и нажмите «ОК».
- Когда макрос завершится, отобразится папка Windows.
- В этой папке Windows папки и их элементы в разделе «Избранное» были экспортированы, как показано на следующем снимке экрана.
Восстановить данные Outlook из резервных копий
Настоятельно рекомендуется регулярно создавать резервные копии файлов Outlook. Это потому, что если вы пострадали от повреждения файла Outlook, вы можете восстановить Outlook данные из резервных копий легко. Но если у вас нет такой резервной копии, вам придется попытаться исправить ошибку Outlook. В то время инструмент восстановления папки «Входящие» не поможет. Вы должны воспользоваться помощью внешнего инструмента исправления, такого как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com
Большое спасибо. «Como Puedo Iniciar Sesion»
1
Я попытался запустить этот макрос, но он не удался с ошибкой «Ошибка операции» в этой строке.
objItem.SaveAs strFilePath, olMSG
??