Як пакетно відкрити кілька файлів PST відразу в Outlook

За замовчуванням Outlook не підтримує групове відкриття декількох файлів Outlook PST. У цій статті ми навчимо вас використовувати VBA для пакетного відкриття декількох файлів даних Outlook одночасно у вашому Outlook.

Як правило, коли ви хочете відкрити додаткові файли PST Outlook у своєму Outlook, у вас є два способи. Один із них - перейти до діалогового вікна «Налаштування облікового запису», а потім перейти до вкладки «Файли даних», після чого натиснути кнопку «Додати», щоб вибрати файл Outlook, щоб відкрити його. Інший - перейти до меню «Файл» у вікні Outlook, а потім натиснути кнопку «Відкрити файл даних Outlook» на вкладці «Відкрити», щоб вибрати файл. Обидва вони зручні. Однак обидва ці способи дозволяють відкрити один файл PST лише один раз. Вам не дозволяється відкривати кілька з них за один раз. Тому, якщо ви хочете масово відкрити більше одного файлу PST, вам доведеться шукати інші методи. Тут ми навчимо вас використовувати VBA для швидкого досягнення цього.

Пакетне відкриття кількох файлів PST Outlook одночасно

1. Спочатку запустіть програму Outlook.
2. Потім натисніть клавіші “Alt + F11” у головному вікні Outlook.
3. Далі в редакторі Outlook VBA вам слід відкрити новий модуль.
4. Згодом скопіюйте та вставте наступні коди VBA в модуль.

Sub BatchOpenMultiplePSTFiles()
 
    'You can change the path as per your needs
    'You can also specify a folder other than a drive
    'For instance - Call LoopFolders("C:\Users\Test\My Documents\Outlook Files")
    Call LoopFolders("E:\")
    MsgBox "Open Successfully!", vbExclamation + vbOKOnly, "Open Outlook Data File"

End Sub

Sub LoopFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objPSTFile As Object
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)
 
    For Each objFile In objFolder.Files
        'Find the pst file by file extension
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "pst" Then
           Set objPSTFile = objFile
           'Open the PST file
           Outlook.Application.Session.AddStore (objPSTFile.Path)
        End If
    Next
 
    'Process all folders and subfolders in the Local Drive E
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

5. Після цього змініть рівень захисту макросів Outlook на низький.
6. Зрештою, ви можете натиснути піктограму «Виконати» на панелі інструментів редактора VBA або просто натиснути клавішу F5, щоб запустити цей новий проект VBA.
7. Одночасно всі файли Outlook PST у заздалегідь визначеній локальній папці будуть відкриватися партіями.

Боротьба з неприємними помилками PST

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

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

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