Outlook ကိုစတင်တဲ့အခါ VBA မှတစ်ဆင့် Folder အားလုံးကို အလိုအလျောက်ချဲ့ထွင်နည်း

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

Outlook မှာ default folder တွေအောက်မှာ subfolder အများကြီး ဖန်တီးထားနိုင်ပါတယ်။ folder တွေအများကြီးရှိတာကြောင့် ဘယ်အချိန်မဆို မြန်မြန်ဆန်ဆန် ဝင်ရောက်ကြည့်ရှုနိုင်ဖို့အတွက် folder အားလုံးကို အမြဲချဲ့ထားချင်ပါလိမ့်မယ်။ ပထမခြေလှမ်းကတော့ Outlook ကို startup မှာ folder တွေကို အလိုအလျောက်ချဲ့ထွင်ပေးအောင် လုပ်ရမှာပါ။ Outlook မှာ ဒီလို native function မရှိပါဘူး။ ဒါကြောင့် macros တွေကို အသုံးပြုရပါမယ်။ ပြီးရင် VBA နဲ့ ဘယ်လိုလုပ်ရမလဲဆိုတာ သင်ပေးပါမယ်။ VBA ကို ဘယ်လိုအသုံးချရမလဲဆိုတာနဲ့ ပတ်သက်ပြီး တခြားဆောင်းပါးတစ်ပုဒ်ဖြစ်တဲ့ “သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။"။

Outlook စတင်သည့်အခါ ဖိုင်တွဲအားလုံးကို အလိုအလျောက် ချဲ့ထွင်ခြင်း

1. စတင်ရန်၊ VBA တည်းဖြတ်သူအား ဝင်ရောက်ရန် သင်၏ Outlook တွင် "Alt + F11" ကိုနှိပ်ပါ။
2. ထို့နောက် ဝင်းဒိုးအသစ်တွင် ကုဒ်ကို “ThisOutlookSession” ပရောဂျက်တွင် ထည့်ပါ။

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. ထို့နောက် VBA editor ကိုပိတ်ပါ။
4. ထို့နောက် Outlook အပလီကေးရှင်းကို မှန်ကန်စွာ ထွက်သွားပါ။
5. နောက်ပိုင်းတွင် Outlook ကိုစတင်ပါ။ ဤအချိန်တွင် macro သည်အလိုအလျောက်လည်ပတ်လိမ့်မည်။
6. Outlook စတင်ပြီးနောက်၊ အောက်ပါပုံတွင်ပြထားသည့်အတိုင်း ဖိုင်တွဲအားလုံးကို ချဲ့ထွင်ထားသည်ကို သင်တွေ့မြင်နိုင်ပါသည်။

အန္တရာယ်ရှိသော Macros အားလုံးကို Bay တွင်ထားပါ။

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

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

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