Ինչպես միանգամից միանգամից բացել բազմաթիվ Outlook PST ֆայլեր ձեր Outlook- ում

Outlook լուծումներ Սեպտեմբեր 29, 2025

Լռելյայնորեն, Outlook-ը չի աջակցում ձեզ մի քանի Outlook PST ֆայլեր մեծաքանակ բացելու համար: Այս հոդվածում մենք կսովորեցնենք ձեզ, թե ինչպես օգտագործել VBA-ն՝ ձեր Outlook-ում միանգամից մի քանի Outlook տվյալների ֆայլեր խմբաքանակով բացելու համար:

Երբ ցանկանում եք բացել լրացուցիչ Outlook PST ֆայլեր ձեր Outlook-ում, ընդհանուր առմամբ, դուք ունեք երկու միջոց. Մեկն այն է, որ գնա «Հաշվի կարգավորումներ» երկխոսության տուփ, այնուհետև անցում կատարի «Տվյալների ֆայլեր» ներդիրին, իսկ հաջորդը սեղմիր «Ավելացնել» կոճակը՝ այն բացելու համար Outlook ֆայլը ընտրելու համար: Մյուսն այն է, որ գնաք Outlook-ի պատուհանում գտնվող «Ֆայլ» ընտրացանկը, այնուհետև սեղմեք «Open Outlook Data File» կոճակը «Բացել» ներդիրում՝ ֆայլը ընտրելու համար: Երկուսն էլ հարմար են։ Այնուամենայնիվ, երկու եղանակներն էլ թույլ են տալիս միայն մեկ անգամ բացել մեկ PST ֆայլ: Ձեզ չի թույլատրվում միանգամից մի քանիսը բացել: Հետևաբար, եթե ցանկանում եք մեծաքանակ բացել մեկից ավելի PST ֆայլեր, դուք պետք է փնտրեք այլ մեթոդներ: Այստեղ մենք կսովորեցնենք ձեզ օգտագործել VBA՝ դրան արագ հասնելու համար:

Խմբաքանակով բացեք մի քանի Outlook PST ֆայլեր միանգամից

Նախևառաջ, գործարկեք ձեր Outlook ծրագիրը։
Դրանից հետո հիմնական Outlook պատուհանում սեղմեք «Alt + F11» ստեղնաշարի կոճակները:
Հաջորդը Outlook VBA խմբագրիչում դուք պետք է բացեք նոր մոդուլ:
Այնուհետև պատճենեք և տեղադրեք հետևյալ 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

Դրանից հետո փոխեք ձեր Outlook մակրո անվտանգության մակարդակը ցածր:
Ի վերջո, դուք կարող եք սեղմել «Run» պատկերակը VBA խմբագրիչի գործիքագոտում կամ պարզապես սեղմել F5 ստեղնը՝ այս նոր VBA նախագիծը գործարկելու համար:
Միանգամից բոլոր Outlook PST ֆայլերը կանխորոշված տեղական թղթապանակում կբացվեն խմբաքանակով:

Պայքար կատաղի PST սխալների դեմ

Քանի որ Outlook-ը ենթակա է սխալների և կոռուպցիայի, դուք պետք է ուշադրություն դարձնեք բոլոր հնարավոր սպառնալիքներին, ինչպիսիք են վիրուսային վարակները, Outlook-ի ոչ պատշաճ անջատումը, ինչպես նաև Outlook-ի սխալ կազմաձևումները: Դրանք բոլորը կարող են առաջացնել Հեռանկարային կոռուպցիա առանց քրտինք թափելու. Հետևաբար, դուք պետք է պարբերաբար կրկնօրինակեք ձեր PST ֆայլը: Դա շատ կօգնի հետագայում տվյալների վերականգնմանը:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf վերականգնում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com