როგორ სწრაფად მიიღოთ ყველა Outlook PST ფაილის სია თქვენს ლოკალურ დისკზე VBA-ს საშუალებით

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

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

მიიღეთ ყველა Outlook PST ფაილის სია თქვენს ლოკალურ დისკზე

1. დასაწყებად, გაუშვით თქვენი Outlook პროგრამა.
2. შემდეგ შედით თქვენს Outlook VBA რედაქტორზე ჩემი წინა სტატიის მითითებით – “როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
3. შემდეგი, დააკოპირეთ და ჩასვით შემდეგი VBA კოდი „ThisOutlookSession“ ან გამოუყენებელ მოდულში.

Sub FindAllOutlookPSTFiles()
    Dim objWMIService As Object
    Dim objPSTFiles As Object
    Dim objPSTFile As Object
    Dim i As Long
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim strTextFile As String
    Dim objTextFile As Object
 
    'Find All PST Files on Drive C
    'You can change "C:" to the other drive letter as per your needs
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set objPSTFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile Where Extension = 'pst' AND Drive = 'C:'")
 
    If objPSTFiles.count > 0 Then
 
       'Create a text file
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       strTextFile = "E:\PST_Files_on_Drive_C.txt"
       Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True)
 
       i = 1
 
       For Each objPSTFile In objPSTFiles
           'Input the PST file name, size and path into the text file
           objTextFile.Write (i & ". " & objPSTFile.filename & "." & objPSTFile.Extension & vbCrLf & " Size: " & objPSTFile.FileSize / 1024 & "KB" & vbCrLf & " Path: " & objPSTFile.Drive & objPSTFile.Path & vbCrLf & vbCrLf)
           i = i + 1
       Next
 
       objTextFile.Close
 
       'Open this text file
       Shell "C:\Windows\Notepad.exe " & strTextFile, 1
    Else
       MsgBox "There isn't PST file on this drive!", vbExclamation + vbOKOnly
    End If
End Sub

4. ამის შემდეგ, შეგიძლიათ სცადოთ ეს მაკრო ახლავე. უბრალოდ დააჭირეთ ღილაკს "F5".
5. როდესაც მაკრო დასრულდება, ნახავთ ტექსტურ ფაილს, რომელიც გამოიყურება შემდეგ ეკრანის სურათზე:

გამოიყენეთ Repair Tool Outlook-ის ავარიის შემთხვევაში

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

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

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