သင့် Outlook တွင် တစ်ကြိမ်တည်းတွင် များစွာသော Outlook PST ဖိုင်များကို တွဲဖွင့်နည်း

မူရင်းအားဖြင့်၊ Outlook သည် Outlook PST ဖိုင်အများအပြားကို အစုလိုက်ဖွင့်ရန် သင့်အား မပံ့ပိုးပါ။ ဤဆောင်းပါးတွင်၊ သင်၏ Outlook တွင် များစွာသော Outlook ဒေတာဖိုင်များကို တစ်ပြိုင်နက်ဖွင့်ရန် VBA ကို အသုံးပြုနည်းကို သင်ပေးပါမည်။

သင့် Outlook တွင် နောက်ထပ် Outlook PST ဖိုင်များကို ဖွင့်လိုပါက ယေဘုယျအားဖြင့် သင့်တွင် နည်းလမ်းနှစ်ခုရှိသည်။ တစ်ခုမှာ "အကောင့်ဆက်တင်များ" ဒိုင်ယာလော့ဂ်ဘောက်စ်သို့သွားပြီးနောက် "ဒေတာဖိုင်များ" တက်ဘ်သို့ပြောင်းကာ ၎င်းကိုဖွင့်ရန် Outlook ဖိုင်ကိုရွေးချယ်ရန် "Add" ခလုတ်ကိုနှိပ်ပါ။ အခြားတစ်ခုသည် Outlook ဝင်းဒိုးရှိ “File” မီနူးသို့ ဦးတည်ပြီး ဖိုင်ကိုရွေးချယ်ရန် “Open” တက်ဘ်အောက်ရှိ “Open Outlook Data File” ခလုတ်ကို နှိပ်ပါ။ နှစ်ယောက်စလုံး အဆင်ပြေတယ်။ သို့သော်၊ နည်းလမ်းနှစ်ခုစလုံးသည် PST ဖိုင်တစ်ခုတည်းကို တစ်ကြိမ်သာဖွင့်ခွင့်ပြုသည်။ အများအပြားကို တစ်ကြိမ်တည်းဖွင့်ရန် သင့်အား ခွင့်မပြုပါ။ ထို့ကြောင့်၊ သင်သည် PST ဖိုင်တစ်ခုထက်ပို၍ အစုလိုက်ဖွင့်လိုပါက၊ သင်သည် အခြားနည်းလမ်းများကို ရှာဖွေရမည်ဖြစ်ပါသည်။ ဤတွင် ကျွန်ုပ်တို့သည် သင့်အား အချိန်တိုအတွင်း အောင်မြင်စေရန် VBA ကို အသုံးပြုတတ်စေရန် သင်ကြားပေးပါမည်။

အသုတ်များစွာကို Outlook PST ဖိုင်များကို တစ်ပြိုင်နက်ဖွင့်ပါ။

1. အရင်ဆုံး Outlook ပရိုဂရမ်ကို စတင်လိုက်ပါ။
2. ထို့နောက် ပင်မ Outlook ဝင်းဒိုးရှိ “Alt + F11” ခလုတ်များကို နှိပ်ပါ။
3. ထို့နောက် Outlook VBA တည်းဖြတ်မှုတွင်၊ သင်သည် module အသစ်တစ်ခုကိုဖွင့်သင့်သည်။
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 တည်းဖြတ်သူ၏ ကိရိယာဘားရှိ “Run” အိုင်ကွန်ကို နှိပ်နိုင်သည် သို့မဟုတ် ဤ VBA ပရောဂျက်အသစ်ကို စတင်ရန် F5 ခလုတ်ကို နှိပ်နိုင်သည်။
7. တစ်ချိန်တည်းတွင်၊ ကြိုတင်သတ်မှတ်ထားသောဒေသခံဖိုင်တွဲရှိ Outlook PST ဖိုင်များအားလုံးကို အတွဲလိုက်ဖွင့်ပါမည်။

စိတ်အနှောင့်အယှက်ဖြစ်စေသော PST အမှားများကို တိုက်ဖျက်ပါ။

Outlook သည် အမှားအယွင်းများနှင့် အကျင့်ပျက်ခြစားမှုများကို ခံရနိုင်သောကြောင့်၊ ဗိုင်းရပ်စ်ကူးစက်မှု၊ မသင့်လျော်သော Outlook ပိတ်ခြင်းအပြင် Outlook မှားယွင်းသောဖွဲ့စည်းပုံများကဲ့သို့သော အလားအလာရှိသော ခြိမ်းခြောက်မှုများအားလုံးကို အာရုံစိုက်သင့်သည်။ အားလုံးပဲ ဖြစ်စေနိုင်ပါတယ်။ အကျင့်ပျက်ခြစားမှုအမြင် ချွေးမချိုးဘဲ၊ ထို့ကြောင့်၊ သင်သည်သင်၏ PST ဖိုင်ကိုပုံမှန်အရန်ကူးရန်လိုအပ်သည်။ ၎င်းသည် နောက်ပိုင်းတွင် ဒေတာပြန်လည်ရယူရာတွင် များစွာအထောက်အကူပြုမည်ဖြစ်သည်။

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ mdf ပြန်လည်ရယူခြင်း။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com