Si të eksportoni shpejt informacionin e madhësisë së të gjithë dosjeve në një skedar PST në një skedar Excel

Nëse dëshironi të kontrolloni informacionin e madhësisë së çdo dosje në një skedar PST, mund të përdorni metodën e ekspozuar në këtë artikull. Ai do të eksportojë shpejt informacionin e madhësisë së të gjitha dosjeve në një skedar PST në një skedar Excel.

Kur skedari juaj PST është shumë i madh, mund të dëshironi të kontrolloni madhësinë e çdo dosjeje. Do t'ju ndihmojë të kuptoni me lehtësi se cilat janë më të mëdhatë dhe të bëni arkivimin e përshtatshëm në bazë të madhësisë. Në përgjithësi, për të kontrolluar madhësinë e dosjes, thjesht mund të klikoni me të djathtën mbi një dosje dhe më pas të zgjidhni "Properties". Në kutinë e re të dialogut që shfaqet, mund të klikoni butonin "Madhësia e dosjes". Megjithatë, nëse keni krijuar shumë dosje, kontrollimi manual i informacionit të madhësisë një nga një është mjaft i mundimshëm. Pra, nëse dëshironi të merrni informacionin e madhësisë së të gjitha dosjeve në një skedar PST, mund të përdorni kodin e mëposhtëm VBA. Ai do të eksportojë të gjithë emrat e dosjeve dhe informacionin e madhësisë në një skedar Excel me një lëvizje.

Eksportoni informacionin e madhësisë së të gjithë dosjeve në një skedar PST në një skedar Excel

1. Për të filluar, hapni aplikacionin tuaj Outlook.
2. Më pas kaloni në skedën "Zhvilluesi" dhe klikoni butonin "Visual Basic" ose shtypni butonat "Alt + F11" për të hyrë në redaktuesin VBA.
3. Më pas në dritaren "Microsoft Visual Basic për Aplikacione", hapni një modul që nuk është në përdorim.
4. Më pas, kopjoni dhe ngjisni kodet e mëposhtme VBA në këtë 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. Pas kësaj, duhet të vendosni nivelin e sigurisë makro të Outlook në të ulët.
6. Më në fund, mund të provoni.

• Shtypni butonin e tastit F5 në dritaren aktuale makro.
• Pastaj do t'ju kërkohet të zgjidhni një skedar PST, si imazhi i mëposhtëm:
• Pas zgjedhjes së një skedari burimor, Outlook do të fillojë të eksportojë informacionin e madhësisë në Excel.
• Pas përfundimit të makro, ju merrni një mesazh si pamja e ekranit më poshtë.
• Së fundi, do të mund të gjeni skedarin Excel në dosjen e paracaktuar lokale. Skedari Excel do të duket si më poshtë:

Merreni me gabimet e shpeshta PST

Meqenëse Outlook është i prirur ndaj gabimeve, mund të keni vuajtur ndonjëherë shumë probleme në Outlook-un tuaj. Për të përballuar më mirë dhe në mënyrë më fleksibël problemet zhgënjyese të PST-së, këshillohet që të mbani në afërsi një shërbim riparimi me përvojë dhe me reputacion, si p.sh. DataNumen Outlook Repair. Është në gjendje të rregulloni PST probleme si një fllad.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë SQL Server shërim dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com