VBA vasitəsilə yerli diskinizdəki bütün Outlook PST fayllarının siyahısını necə tez əldə etmək olar

Əgər siz kompüterinizin yerli diskində saxlanılan bütün Outlook PST fayllarının siyahısını əldə etməyə ümid edirsinizsə, bu məqalədə göstərilən VBA kodundan istifadə edə bilərsiniz. Tez bir zamanda əldə etməyə imkan verə bilər.

Ola bilsin ki, siz kompüterinizin bir hissəsində çoxlu Outlook PST faylları yaratmısınız və saxlamısınız. Bununla belə, zaman keçdikcə bu PST fayllarının konkret yerini unuda bilərsiniz. Bu halda, siz onları tez tapmaq və ad, ölçü və yol daxil olmaqla, məlumatlarının siyahısını əldə etmək istəyə bilərsiniz. Bu tələbə cavab olaraq burada effektiv bir yol təqdim edəcəyik.

Yerli Diskinizdəki bütün Outlook PST fayllarının siyahısını əldə edin

1. Başlamaq üçün Outlook proqramınızı işə salın.
2. Sonra, mənim əvvəlki məqaləmə istinad edərək Outlook VBA redaktorunuza daxil olun - "Outlook-da VBA kodunu necə işlətmək olar".
3. Sonra, aşağıdakı VBA kodunu "ThisOutlookSession" və ya istifadə olunmamış modula köçürün və yapışdırın.

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. Bundan sonra bu makronu indi sınaya bilərsiniz. Sadəcə “F5” düyməsini sıxmaq kifayətdir.
5. Makro tamamlandıqda, aşağıdakı ekran görüntüsünə bənzəyən mətn faylını görəcəksiniz:

Outlook qəzaları halında Təmir Alətindən istifadə edin

Outlook-da vaxtaşırı müxtəlif səhvlər baş verə bilər. Əgər onları vaxtında həll etməsəniz, nəhayət bir gün Outlook-un ciddi qəzası ilə üzləşəcəksiniz. Beləliklə, güclü və təcrübəli PST təmir proqramını yaxınlıqda saxlamaq düzgündür DataNumen Outlook Repair. Xüsusilə üçün nəzərdə tutulmuşdur təmir PST fayl. Beləliklə, sizi PST məlumat itkisindən xilas etməyə qadirdir.

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 korrupsiyası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com