Outlook ရှိ တိကျသောဖိုင်တွဲတစ်ခုအောက်တွင် ဖိုင်တွဲခွဲများ၏ စုစုပေါင်းအရေအတွက်ကို အမြန်ရယူနည်း

သင့် Outlook တွင် Inbox ကဲ့သို့သော အချို့သောဖိုင်တွဲတစ်ခုအောက်တွင် ဖိုင်တွဲခွဲများစွာကို သင်ဖန်တီးနိုင်ပေမည်။ ဤကိစ္စတွင်၊ သင်သည် ဖိုင်တွဲခွဲများကို ရေတွက်လိုပါက၊ သင်သည် ကိုယ်တိုင်ရေတွက်ရန် ဝန်လေးနေရပါမည်။ ဤတွင် ကျွန်ုပ်တို့သည် သင့်အား ပိုမိုထက်မြက်သော နည်းလမ်းကို မျှဝေပါမည်။

Outlook တွင် ဖိုင်များကို အမျိုးအစားခွဲ၍ သိမ်းဆည်းသိမ်းဆည်းရန်၊ အသုံးပြုသူအများအပြားသည် အမျိုးမျိုးသော ဖိုင်တွဲများနှင့် ဖိုင်တွဲခွဲများကို ဖန်တီးလေ့ရှိကြသည်။ သို့သော် နောက်ပိုင်းတွင်၊ ဖိုင်တွဲများစွာကို စီမံခန့်ခွဲရန် အနည်းငယ်ခက်ခဲသည်ဟု သူတို့ယူဆနိုင်သည်။ ဤကိစ္စတွင်၊ ၎င်းတို့သည် သီးခြားဖိုင်တွဲတစ်ခုအောက်တွင် ဖိုင်တွဲခွဲမည်မျှရှိသည်ကို ရေတွက်လိုပေမည်။ သံသယမရှိဘဲ၊ ကိုယ်တိုင်ရေတွက်ရန်မှာ မိုက်မဲပြီး ပျင်းစရာကောင်းသည်။ ထို့ကြောင့်၊ အောက်ပါတို့၌ ကျွန်ုပ်တို့သည် ပိုမိုထက်မြက်သော အဓိပ္ပါယ်များကို ပြသပါမည်။

တိကျသောဖိုင်တွဲတစ်ခုအောက်တွင် ဖိုင်တွဲခွဲများ၏ စုစုပေါင်းအရေအတွက်ကို ရယူပါ။

1. အစကတည်းက start သင်၏ Outlook ပရိုဂရမ်။
2. ထို့နောက်၊ Outlook ဝင်းဒိုးတွင် VBA တည်းဖြတ်ခြင်းကို ဝင်ရောက်ရန် “Alt + F11” သော့ခလုတ်များကို နှိပ်နိုင်သည်။
3. ထို့နောက်၊ နောက်ပိုင်းတွင် ပေါ်လာသော ဝင်းဒိုးတွင်၊ အသုံးမပြုသော မော်ဂျူးတစ်ခုကို ဖွင့်ရန် လိုအပ်သည်။
4. ထို့နောက်၊ အောက်ပါ VBA ကုဒ်ကို ဤ module ထဲသို့ ကူးယူပြီး ကူးထည့်ပါ။

Sub CountSubfoldersUnderRootFolder()
    Dim objRootFolder As Folder
    Dim lFolderCount As Long
    Dim objFolder As Object
 
    'Get the current folder
    Set objRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    'If you want to select, use the following line instead
    'Set objRootFolder = Outlook.Application.Session.PickFolder
 
    If objRootFolder.Folders.count > 0 Then
       For Each objFolder In objRootFolder.Folders
           'Exclude the hidden folders under Inbox
           If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
              lFolderCount = lFolderCount + 1
 
              'Process subfolders recursively
              Call ProcessFolders(objFolder, lFolderCount)
           End If
       Next
       MsgBox lFolderCount & " subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    Else
       MsgBox "No subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    End If
End Sub
 
Sub ProcessFolders(objCurrentFolder As Object, lCount As Long)
    Dim objSubfolder As Object
 
    lCount = lCount + objCurrentFolder.Folders.count
 
    For Each objSubfolder In objCurrentFolder.Folders
        Call ProcessFolders(objSubfolder, lCount)
    Next
End Sub

5. ၎င်းနောက်၊ သင်သည်လက်ရှိဝင်းဒိုးမှထွက်နိုင်သည်။
6. နောက်ပိုင်းတွင်၊ “File” > “Options” > “Quick Access Toolbar” သို့ သွားပါ။ ထိုနေရာတွင် သင်သည် မက်ခရိုအသစ်ကို Quick Access Toolbar သို့ ထည့်နိုင်သည်။
7. နောက်ဆုံးအနေနဲ့ ဒီ macro ကို စမ်းကြည့်နိုင်ပါတယ်။

• ပထမဦးစွာ၊ သင်ရေတွက်လိုသော ဖိုင်တွဲခွဲများရှိသည့် ဖိုဒါတစ်ခုကို ရွေးပါ။
• ထို့နောက် Quick Access Toolbar ရှိ မက်ခရိုခလုတ်ကို နှိပ်ပါ။
• ချက်ချင်းပင်၊ Outlook သည် ဤ macro ကို run လိမ့်မည်။
• Macro ပြီးပါက အောက်ပါပုံကဲ့သို့ မက်ဆေ့ချ်တစ်ခု ရရှိပါမည်။

Outlook အကျင့်ပျက်ခြစားမှုကိုဖြေရှင်းခြင်းနည်းလမ်းများ

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

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

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