PST faylındakı bütün qovluqların ölçüsü məlumatını Excel faylına necə tez ixrac etmək olar

PST faylındakı hər bir qovluğun ölçü məlumatını yoxlamaq istəyirsinizsə, bu məqalədə göstərilən üsuldan istifadə edə bilərsiniz. O, PST faylındakı bütün qovluqların ölçüsü məlumatlarını tez bir zamanda Excel faylına ixrac edəcək.

PST faylınız çox böyük olduqda, hər bir qovluğun ölçüsünü yoxlamaq istəyə bilərsiniz. Bu, hansının daha böyük olduğunu asanlıqla anlamağa və ölçü əsasında uyğun arxivləşdirmə aparmağa kömək edəcək. Ümumiyyətlə, qovluğun ölçüsünü yoxlamaq üçün sadəcə olaraq qovluğun üzərinə sağ klikləyib "Xüsusiyyətlər"i seçə bilərsiniz. Yeni açılan informasiya qutusunda siz “Qovluq ölçüsü” düyməsini sıxa bilərsiniz. Bununla belə, bir çox qovluq yaratmısınızsa, ölçü məlumatlarını bir-bir əl ilə yoxlamaq olduqca çətin olur. Beləliklə, bir PST faylındakı bütün qovluqların ölçüsü məlumatını toplu şəkildə əldə etmək istəyirsinizsə, aşağıdakı VBA kodundan istifadə edə bilərsiniz. O, bütün qovluq adlarını və ölçü məlumatlarını bir anda Excel faylına ixrac edəcək.

PST faylındakı bütün qovluqların ölçüsü məlumatını Excel faylına ixrac edin

1. Başlamaq üçün Outlook tətbiqinizi işə salın.
2. Sonra "Developer" sekmesine keçin və "Visual Basic" düyməsini basın və ya VBA redaktoruna daxil olmaq üçün "Alt + F11" düymələrini basın.
3. Sonrakı “Proqramlar üçün Microsoft Visual Basic” pəncərəsində istifadə olunmayan modulu açın.
4. Sonradan aşağıdakı VBA kodlarını kopyalayıb bu modula yapışdırın.

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. Bundan sonra, Outlook makro təhlükəsizlik səviyyənizi aşağı səviyyəyə təyin etməlisiniz.
6. Nəhayət, bir cəhd edə bilərsiniz.

• Cari makro pəncərəsində F5 düyməsini basın.
• Sonra sizdən aşağıdakı şəkil kimi bir PST faylı seçməyiniz xahiş olunacaq:
• Mənbə faylı seçdikdən sonra Outlook ölçü məlumatlarını Excel-ə ixrac etməyə başlayacaq.
• Makro tamamlandıqdan sonra aşağıdakı ekran görüntüsü kimi bir mesaj alırsınız.
• Nəhayət, Excel faylını əvvəlcədən təyin edilmiş yerli qovluqda tapa biləcəksiniz. Excel faylı aşağıdakı kimi görünəcək:

Tez-tez PST səhvləri ilə məşğul olun

Outlook səhvlərə meylli olduğundan, Outlook-da bir çox problemlərlə üzləşmiş ola bilərsiniz. Əsəbiləşdirən PST problemlərinin öhdəsindən daha yaxşı və çevik şəkildə çıxmaq üçün yaxınlıqda təcrübəli və nüfuzlu təmir proqramını saxlamaq məsləhətdir. DataNumen Outlook Repair. Bacarır PST-ni düzəldin meh kimi problemlər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server bərpa və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com