Як швидко отримати список усіх PST-файлів Outlook на локальному диску за допомогою VBA

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Якщо ви сподіваєтеся отримати список усіх файлів Outlook PST, які зберігаються на локальному диску вашого ПК, ви можете використати фрагмент коду VBA, наведений у цій статті. Це може дозволити вам швидко отримати його.

Швидко отримайте список усіх PST-файлів Outlook на локальному диску через VBA

Можливо, ви створили та зберегли багато файлів Outlook PST на розділі свого комп’ютера. Проте з часом ви можете забути конкретне розташування цих файлів PST. У цьому випадку ви можете швидко знайти їх і отримати список їхньої інформації, включаючи назву, розмір і шлях. У відповідь на цю вимогу ми запропонуємо ефективний спосіб.

Отримайте список усіх PST-файлів Outlook на локальному диску

  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

Код VBA. Отримайте список усіх файлів Outlook PST на локальному диску

  1. Після цього ви можете спробувати цей макрос прямо зараз. Просто натисніть клавішу «F5».
  2. Коли макрос буде завершено, ви побачите текстовий файл, який буде виглядати як наведений нижче знімок екрана:Експортований список у текстовий файл

Використовуйте інструмент відновлення у разі збоїв Outlook

У вашому Outlook час від часу можуть виникати різноманітні помилки. Якщо ви не розв’яжете їх вчасно, одного разу нарешті ви постраждаєте від серйозного збою Outlook. Отже, правильно мати поблизу потужну та досвідчену утиліту для відновлення PST, наприклад DataNumen Outlook Repair. Він спеціально розроблений для ремонт PST файл. Таким чином, він здатний врятувати вас від втрати даних PST.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql корупція та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.