Jak zbiorczo otworzyć wiele plików PST programu Outlook jednocześnie w programie Outlook

Domyślnie Outlook nie obsługuje zbiorczego otwierania kilku plików PST programu Outlook. W tym artykule nauczymy Cię, jak używać VBA do wsadowego otwierania wielu plików danych programu Outlook jednocześnie w programie Outlook.

Jeśli chcesz otworzyć dodatkowe pliki PST programu Outlook w programie Outlook, zazwyczaj masz dwa sposoby. Jednym z nich jest przejście do okna dialogowego „Ustawienia konta”, a następnie przejście do zakładki „Pliki danych”, a następnie kliknięcie przycisku „Dodaj”, aby wybrać plik Outlooka, aby go otworzyć. Drugim jest przejście do menu „Plik” w oknie Outlooka, a następnie kliknięcie przycisku „Otwórz plik danych programu Outlook” w zakładce „Otwórz”, aby wybrać plik. Oba są przydatne. Jednak oba te sposoby pozwalają tylko raz otworzyć pojedynczy plik PST. Nie możesz otworzyć kilku za jednym razem. Dlatego jeśli chcesz zbiorczo otworzyć więcej niż jeden plik PST, musisz poszukać innych metod. Tutaj nauczymy Cię korzystać z VBA, aby osiągnąć to w krótkim czasie.

Zbiorcze otwieranie wielu plików PST programu Outlook jednocześnie

1. Najpierw uruchom program Outlook.
2. Następnie naciśnij klawisze „Alt + F11” w głównym oknie Outlooka.
3. Następnie w edytorze Outlook VBA należy otworzyć nowy moduł.
4. Następnie skopiuj i wklej następujące kody VBA do modułu.

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. Następnie zmień poziom bezpieczeństwa makr programu Outlook na niski.
6. Ostatecznie możesz kliknąć ikonę „Uruchom” na pasku narzędzi edytora VBA lub po prostu nacisnąć klawisz F5, aby uruchomić ten nowy projekt VBA.
7. Od razu wszystkie pliki PST programu Outlook we wstępnie zdefiniowanym folderze lokalnym zostaną otwarte partiami.

Walcz z irytującymi błędami PST

Ponieważ program Outlook jest podatny na błędy i korupcję, należy zwrócić uwagę na wszystkie potencjalne zagrożenia, takie jak infekcje wirusowe, nieprawidłowe zamknięcie programu Outlook, a także błędne konfiguracje programu Outlook. Wszystkie z nich mogą powodować Uszkodzenie programu Outlook bez zerwania potu. Dlatego musisz regularnie tworzyć kopie zapasowe pliku PST. To bardzo pomoże w późniejszym odzyskiwaniu danych.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com