Kaip greitai eksportuoti visų PST failo aplankų dydžio informaciją į „Excel“ failą

Jei norite patikrinti kiekvieno PST failo aplanko dydžio informaciją, galite naudoti šiame straipsnyje pateiktą metodą. Jis greitai eksportuos visų PST failo aplankų dydžio informaciją į „Excel“ failą.

Kai jūsų PST failas per didelis, galbūt norėsite patikrinti kiekvieno aplanko dydį. Tai padės lengvai išsiaiškinti, kurie yra didesni, ir atlikti tinkamą archyvavimą pagal dydį. Apskritai, norėdami patikrinti aplanko dydį, tiesiog dešiniuoju pelės mygtuku spustelėkite aplanką ir pasirinkite „Ypatybės“. Naujame iššokančiame dialogo lange galite spustelėti mygtuką „Aplanko dydis“. Tačiau jei sukūrėte daug aplankų, po vieną rankiniu būdu tikrinti informaciją apie dydį yra labai sudėtinga. Taigi, jei norite paketu gauti visų PST failo aplankų dydžio informaciją, galite naudoti šį VBA kodą. Tai vienu metu eksportuos visus aplankų pavadinimus ir informaciją apie dydį į „Excel“ failą.

Eksportuokite visų PST failo aplankų dydžio informaciją į „Excel“ failą

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada pereikite prie skirtuko „Kūrėjas“ ir spustelėkite mygtuką „Visual Basic“ arba paspauskite klavišus „Alt + F11“, kad pasiektumėte VBA redaktorių.
3. Tada lange „Microsoft Visual Basic for Applications“ atidarykite nenaudojamą modulį.
4. Tada nukopijuokite ir įklijuokite šiuos VBA kodus į šį modulį.

Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet

Sub ExportFodlerSizetoExcel()
    Dim objSourcePST As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
    objExcelWorksheet.Cells(1, 1) = "Folder"
    objExcelWorksheet.Cells(1, 2) = "Size"
 
    'Select a source PST file
    Set objSourcePST = Outlook.Application.Session.PickFolder

    For Each objFolder In objSourcePST.Folders
        Call ProcessFolders(objFolder)
    Next
 
    'Fit the columns from A to B
    objExcelWorksheet.Columns("A:B").AutoFit
 
    strExcelFile = "E:\Outlook\" & objSourcePST.Name & " Folder Size (" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
    objExcelWorkbook.Close True, strExcelFile

    MsgBox "Complete!", vbExclamation
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItem As Object
    Dim lCurrentFolderSize As Long
    Dim nNextEmptyRow As Integer
 
    objCurrentFolder.Items.SetColumns ("Size")
    For Each objItem In objCurrentFolder.Items
        lCurrentFolderSize = lCurrentFolderSize + objItem.Size
    Next
 
    'Convert byte to kilobyte
    'To convert to megabyte, use:
    'lCurrentFolderSize = (lCurrentFolderSize / 1024) / 1024
    lCurrentFolderSize = lCurrentFolderSize / 1024
 
    nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1

    'Add the values into the columns
    objExcelWorksheet.Range("A" & nNextEmptyRow) = objCurrentFolder.FolderPath
    objExcelWorksheet.Range("B" & nNextEmptyRow) = lCurrentFolderSize & " KB"
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Po to turėtumėte nustatyti žemą Outlook makrokomandos saugos lygį.
6. Galų gale galite pabandyti.

• Dabartiniame makrokomandos lange paspauskite klavišo F5 mygtuką.
• Tada jūsų bus paprašyta pasirinkti PST failą, pavyzdžiui, šį vaizdą:
• Pasirinkus šaltinio failą, „Outlook“ pradės eksportuoti dydžio informaciją į „Excel“.
• Baigę makrokomandą, gausite pranešimą, panašų į toliau pateiktą ekrano kopiją.
• Galiausiai „Excel“ failą galėsite rasti iš anksto nustatytame vietiniame aplanke. „Excel“ failas atrodys taip:

Susitvarkykite su dažnomis PST klaidomis

Kadangi „Outlook“ dažnai pasitaiko klaidų, galbūt kada nors susidūrėte su daugybe „Outlook“ problemų. Norint geriau ir lanksčiau susidoroti su varginančiomis PST problemomis, patartina netoliese turėti patyrusį ir patikimą taisymo įrankį, pvz. DataNumen Outlook Repair. Tai sugeba pataisyti PST problemos kaip vėjas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server atsigavimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com