Cum să exportați rapid toate folderele și elementele Outlook din secțiunea „Preferate” într-un folder Windows

Dacă doriți să exportați toate folderele Outlook, precum și elementele sale din secțiunea „Preferate”, puteți consulta acest articol. Aici vă vom arăta cum să o realizați în timp util.

În general, folderele și elementele sale din secțiunea „Favorite” sunt de mare importanță și frecvent necesare. Prin urmare, uneori, poate doriți să le exportați pe unitatea locală. În mod standard, trebuie să creați foldere Windows conform folderelor din „Favorite” și să salvați elementele ca fișiere MSG unul câte unul pe unitatea locală. Este prea plictisitor. Prin urmare, aici vom expune un mod mult mai eficient. Acum citește mai departe pentru a-l obține.

Exportați toate folderele și elementele din secțiunea „Preferate” într-un folder Windows

1. Pentru început, accesați editorul VBA în Outlook, referindu-vă la „Cum să rulați codul VBA în Outlook".
2. Apoi, copiați următorul cod într-un modul gol.

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 Dim Outlook. roup 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 'Selectați un folder Windows Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0 , "") Set objFileSystem = CreateObject("Scripting.FileSystemObject") Dacă nu objWindowsFolder nu este nimic, atunci strWindowsFolder = objWindowsFolder.self.Path & "\" „Obține secțiunea „Favorite” Set objNavigationPane = Application.ActiveExplorer. .Modules.GetNavigationModule(olModuleMail) Set objNavigationGroup = objNavigationModule.NavigationGroups.GetDefaultNavigationGroup(olFavoriteFoldersGroup) „Exportă folderele și articolele din secțiunea „Favorite” Pentru fiecare objNavigationNavigationFoldersGroup. Folder = objNavigationFolder.Folder strFolderPath = strWindowsFolder & objFolder.Name objFileSystem .CreateFolder strFolderPath Pentru fiecare objItem din objFolder.Items strSubject = objItem.Subject strFileName = strSubject & ".msg" i = 0 A face Until False strFilePath = strFolderPath & "\" & strFileExmeyFileSPath. = i + 1 strFileName = strSubject & " (" & i & ").msg" Else Exit Do End If Loop objItem.SaveAs strFilePath, olMSG Next Next 'Deschide folderul Windows Call Shell("explorer.exe " & strWindowsFolder, vbNormalFocus) End If End Sub

3. Apoi, faceți clic pe pictograma „Run” din bara de instrumente.
4. Apoi, în caseta de dialog pop-up, selectați un folder Windows de destinație și faceți clic pe „OK”.
5. Când macro-ul se termină, va fi afișat folderul Windows.
6. În acest folder Windows, folderele și elementele sale din secțiunea „Preferate” au fost exportate, ca în următoarea captură de ecran.

Restaurați datele Outlook din backup

Este foarte recomandat să faceți copii de rezervă ale fișierelor Outlook în mod regulat. Pentru că, dacă suferiți corupție de fișiere Outlook, puteți recuperați Outlook datele din copii de siguranță cu ușurință. Dar, dacă nu aveți o astfel de copie de rezervă, trebuie să încercați o remediere dificilă a Outlook. În acel moment, instrumentul de reparare inbox nu va fi de mare ajutor. Trebuie să vă ajutați de un instrument extern de reparare, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv sql corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com