Kaip vienu metu atidaryti kelis „Outlook“ PST failus paketu „Outlook“.

Pagal numatytuosius nustatymus „Outlook“ nepalaiko kelių „Outlook“ PST failų masinio atidarymo. Šiame straipsnyje išmokysime, kaip naudoti VBA, kad vienu metu „Outlook“ atidarytumėte kelis „Outlook“ duomenų failus.

Jei norite atidaryti papildomus „Outlook PST“ failus „Outlook“, paprastai turite dvi priemones. Vienas iš jų yra eiti į dialogo langą „Paskyros nustatymai“, tada pereiti į skirtuką „Duomenų failai“, tada spustelėkite mygtuką „Pridėti“, kad pasirinktumėte „Outlook“ failą, kad jį atidarytumėte. Kitas yra „Outlook“ lango meniu „Failas“ ir spustelėkite mygtuką „Atidaryti Outlook duomenų failą“, esantį skirtuke „Atidaryti“, kad pasirinktumėte failą. Abu jie yra patogūs. Tačiau abu būdai leidžia atidaryti vieną PST failą tik vieną kartą. Neleidžiama atidaryti kelių vienu metu. Todėl, jei norite masiškai atidaryti daugiau nei vieną PST failą, turite ieškoti kitų būdų. Čia mes išmokysime jus naudoti VBA, kad tai pasiektumėte greitai.

Paketas vienu metu atidarykite kelis Outlook PST failus

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ lange paspauskite klavišus „Alt + F11“.
3. Tada „Outlook VBA“ rengyklėje turėtumėte atidaryti naują modulį.
4. Tada nukopijuokite ir įklijuokite šiuos VBA kodus į modulį.

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. Po to pakeiskite „Outlook“ makrokomandos saugos lygį į žemą.
6. Galų gale galite spustelėti piktogramą „Vykdyti“ VBA redaktoriaus įrankių juostoje arba tiesiog paspauskite klavišą F5, kad paleistumėte šį naują VBA projektą.
7. Iš karto visi Outlook PST failai iš anksto nustatytame vietiniame aplanke bus atidaryti paketais.

Kova su erzinančiomis PST klaidomis

Kadangi „Outlook“ yra jautri klaidoms ir sugadinimui, turėtumėte atkreipti dėmesį į visas galimas grėsmes, tokias kaip virusinės infekcijos, netinkamas „Outlook“ išjungimas ir netinkamos „Outlook“ konfigūracijos. Visi jie gali sukelti Outlook korupcija neišmušdamas prakaito. Todėl turite reguliariai kurti atsarginę PST failo kopiją. Tai labai padės vėliau atkuriant duomenis.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com