VBA-ээр дамжуулан өөрийн локал диск дээрх бүх Outlook PST файлуудын жагсаалтыг хэрхэн хурдан авах вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Хэрэв та өөрийн компьютерийн дотоод диск дээр хадгалагдсан бүх Outlook PST файлуудын жагсаалтыг авах гэж байгаа бол энэ нийтлэлд үзүүлсэн VBA кодын хэсгийг ашиглаж болно. Энэ нь танд үүнийг хурдан хугацаанд авах боломжийг олгоно.

Магадгүй та олон Outlook PST файлуудыг компьютерийнхээ хэсэг дээр үүсгэж хадгалсан байх. Гэсэн хэдий ч цаг хугацаа өнгөрөхөд та эдгээр PST файлуудын тодорхой байршлыг мартаж магадгүй юм. Энэ тохиолдолд та тэдгээрийг хурдан олж мэдээд нэр, хэмжээ, зам гэх мэт мэдээллийн жагсаалтыг гаргахыг хүсч болно. Энэ шаардлагын хариуд энд бид үр дүнтэй аргыг нэвтрүүлэх болно.

Өөрийн Local Drive дээрх бүх Outlook PST файлуудын жагсаалтыг аваарай

Эхлээд Outlook програмаа ажиллуулна уу.
Дараа нь миний өмнөх нийтлэлийг ашиглан Outlook VBA засварлагчдаа хандаарай - "Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
Дараа нь дараах 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

Үүний дараа та яг одоо энэ макро туршиж үзэх боломжтой. Зүгээр л "F5" товчийг дарна уу.
Макро ажиллаж дууссаны дараа та дараах дэлгэцийн агшин шиг харагдах текст файлыг харах болно.

Outlook гацсан тохиолдолд засварын хэрэгслийг ашиглана уу

Таны Outlook дээр үе үе янз бүрийн алдаа гарч болзошгүй. Хэрэв та тэдгээрийг цаг тухайд нь шийдэж чадаагүй бол эцэст нь нэг өдөр Outlook-ийн ноцтой сүйрэлд өртөх болно. Тиймээс хүчирхэг, туршлагатай PST засварын хэрэгслийг ойролцоо байлгах нь зөв юм DataNumen Outlook Repair. Энэ нь ялангуяа зориулагдсан болно засварын газар файл. Тиймээс энэ нь таныг PST өгөгдлийн алдагдлаас аврах чадвартай.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql авлига програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com