Kuinka avata useita Outlookin PST-tiedostoja kerralla Outlookissa

Oletusarvoisesti Outlook ei tue useiden Outlookin PST-tiedostojen avaamista kerralla. Tässä artikkelissa opetamme sinulle, kuinka VBA:ta käytetään useiden Outlook-datatiedostojen avaamiseen kerralla Outlookissa.

Kun haluat avata lisää Outlook PST -tiedostoja Outlookissasi, sinulla on yleensä kaksi tapaa. Yksi on siirtyä "Tilin asetukset" -valintaikkunaan ja siirtyä sitten "Data Files" -välilehteen ja napsauttaa seuraavaksi "Lisää" -painiketta valitaksesi Outlook-tiedoston avataksesi sen. Toinen vaihtoehto on siirtyä Outlook-ikkunan "Tiedosto"-valikkoon ja valita tiedosto napsauttamalla "Avaa Outlookin datatiedosto" -painiketta "Avaa"-välilehden alla. Molemmat ovat käteviä. Molemmilla tavoilla voit kuitenkin avata yhden PST-tiedoston vain kerran. Et saa avata useita kerralla. Siksi, jos haluat avata useita PST-tiedostoja, sinun on etsittävä muita menetelmiä. Täällä opetamme sinua käyttämään VBA:ta saavuttaaksesi sen nopeasti.

Erä Avaa useita Outlookin PST-tiedostoja kerralla

1. Käynnistä ensin Outlook-ohjelmasi.
2. Paina sitten "Alt + F11" -näppäimiä Outlookin pääikkunassa.
3. Seuraavaksi sinun pitäisi avata uusi moduuli Outlook VBA -editorissa.
4. Kopioi ja liitä seuraavat moduuliin seuraavat VBA-koodit.

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. Muuta sen jälkeen Outlookin makrotason suojaustaso matalaksi.
6. Lopulta voit napsauttaa "Suorita" -kuvaketta VBA-editorin työkalupalkissa tai yksinkertaisesti painaa F5-näppäintä käynnistääksesi tämän uuden VBA-projektin.
7. Kaikki ennalta määritetyn paikallisen kansion Outlook PST -tiedostot avataan kerralla.

Taistele ikäviä PST-virheitä vastaan

Koska Outlook on herkkä virheille ja korruptiolle, sinun tulee kiinnittää huomiota kaikkiin mahdollisiin uhkiin, kuten virusinfektioihin, virheelliseen Outlookin sulkemiseen sekä Outlookin virheellisiin määrityksiin. Ne kaikki voivat aiheuttaa Outlookin korruptio hikeämättä. Siksi sinun on varmuuskopioitava PST-tiedostosi säännöllisesti. Se auttaa paljon myöhemmin tietojen palauttamisessa.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-palautus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com