როგორ სწრაფად გავიტანოთ ყველა საქაღალდის ზომის ინფორმაცია PST ფაილში Excel ფაილში

თუ გსურთ შეამოწმოთ თითოეული საქაღალდის ზომის ინფორმაცია PST ფაილში, შეგიძლიათ გამოიყენოთ ამ სტატიაში მოცემული მეთოდი. ის სწრაფად გადაიტანს PST ფაილში არსებული ყველა საქაღალდის ზომის ინფორმაციას Excel ფაილში.

როდესაც თქვენი PST ფაილი ძალიან დიდია, შეგიძლიათ შეამოწმოთ თითოეული საქაღალდის ზომა. ეს დაგეხმარებათ მარტივად გაარკვიოთ რომელია უფრო დიდი და გააკეთოთ შესაფერისი არქივირება ზომის მიხედვით. ზოგადად, საქაღალდის ზომის შესამოწმებლად, შეგიძლიათ უბრალოდ დააწკაპუნოთ საქაღალდეზე მარჯვენა ღილაკით და შემდეგ აირჩიოთ "თვისებები". ახალ ამომხტარ დიალოგურ ფანჯარაში შეგიძლიათ დააჭიროთ ღილაკს "საქაღალდის ზომა". თუმცა, თუ თქვენ შექმენით ბევრი საქაღალდე, ზომის ინფორმაციის ხელით შემოწმება საკმაოდ პრობლემურია. ასე რომ, თუ გსურთ ჯგუფურად მიიღოთ ინფორმაცია PST ფაილში ყველა საქაღალდის ზომის შესახებ, შეგიძლიათ გამოიყენოთ შემდეგი VBA კოდი. ის ერთბაშად გადააქვს ყველა საქაღალდის სახელსა და ზომაზე ინფორმაციას Excel ფაილში.

PST ფაილში არსებული ყველა საქაღალდის ზომის ინფორმაციის ექსპორტი Excel ფაილში

1. დასაწყებად, გაუშვით თქვენი Outlook აპლიკაცია.
2. შემდეგ გადადით "დეველოპერი" ჩანართზე და დააჭირეთ ღილაკს "Visual Basic" ან დააჭირეთ "Alt + F11" კლავიშებს VBA რედაქტორზე წვდომისთვის.
3. შემდეგ "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში გახსენით მოდული, რომელიც არ გამოიყენება.
4. ამის შემდეგ, დააკოპირეთ და ჩასვით შემდეგი VBA კოდები ამ მოდულში.

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. ამის შემდეგ, თქვენ უნდა დააყენოთ თქვენი Outlook მაკრო უსაფრთხოების დონე დაბალზე.
6. საბოლოოდ, შეგიძლიათ სცადოთ.

• დააჭირეთ F5 ღილაკს მიმდინარე მაკრო ფანჯარაში.
• შემდეგ მოგეთხოვებათ აირჩიოთ PST ფაილი, როგორიცაა შემდეგი სურათი:
• წყაროს ფაილის არჩევის შემდეგ, Outlook დაიწყებს ზომის ინფორმაციის ექსპორტს Excel-ში.
• მაკრო დასრულების შემდეგ, თქვენ მიიღებთ შეტყობინებას, როგორიცაა ქვემოთ მოცემული ეკრანის სურათი.
• და ბოლოს, თქვენ შეძლებთ იპოვოთ Excel ფაილი წინასწარ განსაზღვრულ ლოკალურ საქაღალდეში. Excel ფაილი ასე გამოიყურება:

გაუმკლავდეთ ხშირ PST შეცდომებს

მას შემდეგ, რაც Outlook მიდრეკილია შეცდომებისკენ, თქვენ შეიძლება ოდესმე გქონოდათ მრავალი პრობლემა თქვენს Outlook-ში. იმისათვის, რომ უკეთ და მოქნილად გაუმკლავდეთ იმედგაცრუებულ PST პრობლემებს, მიზანშეწონილია იქონიოთ გამოცდილი და რეპუტაციის მქონე სარემონტო პროგრამა, როგორიცაა DataNumen Outlook Repair. მას შეუძლია შეასწორეთ PST პრობლემები, როგორიცაა ნიავი.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის SQL Server აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად