VBA арқылы жергілікті дискідегі барлық Outlook PST файлдарының тізімін қалай жылдам алуға болады

Outlook шешімдері Қыркүйек 29, 2025

Егер сіз компьютердің жергілікті дискісінде сақталған барлық Outlook PST файлдарының тізімін алғыңыз келсе, осы мақалада көрсетілген VBA кодының бөлігін пайдалануға болады. Бұл сізге оны тез арада алуға мүмкіндік береді.

Мүмкін сіз компьютеріңіздің бөлімінде көптеген Outlook PST файлдарын жасап, сақтаған боларсыз. Дегенмен, уақыт өте келе сіз бұл PST файлдарының нақты орнын ұмытуыңыз мүмкін. Бұл жағдайда сіз оларды жылдам тауып, аты, өлшемі және жолын қоса алғанда, ақпарат тізіміне қол жеткізгіңіз келуі мүмкін. Осы талапқа орай біз мұнда тиімді жолды енгіземіз.

Жергілікті дискідегі барлық 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 файл. Осылайша ол сізді PST деректерінің жоғалуынан құтқара алады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL сыбайлас жемқорлық және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com