သင့် Outlook တွင် အီးမေးလ်အကောင့်များစွာကို စီစဉ်သတ်မှတ်ထားပြီး အကောင့်တစ်ခုစီသည် သီးခြား Outlook ဒေတာဖိုင်ကို အသုံးပြုပါက၊ သင့်တွင် "ဖျက်ထားသော အရာများ" ဖိုင်တွဲများစွာ ရှိပါလိမ့်မည်။ အီးမေးလ်အကောင့်တိုင်းရှိ “Deleted Items” ဖိုင်တွဲတစ်ခုစီကို ရှင်းထုတ်လိုသောအခါ၊ ဤဆောင်းပါးရှိ VBA ကုဒ်အပိုင်းကို အသုံးပြုနိုင်သည်။ ၎င်းသည် ၎င်းတို့ကို အစုလိုက်အပြုံလိုက် ရှင်းထုတ်ခွင့်ပေးသည်။
ကျွန်ုပ်တို့အားလုံးသိကြသည့်အတိုင်း Outlook သည် သုံးစွဲသူများအား အီးမေးလ်အကောင့်များစွာကို ပေါင်းထည့်ရန်နှင့် ပြင်ဆင်သတ်မှတ်ရန် ခွင့်ပြုသည်။ ထို့အပြင်၊ အကောင့်တစ်ခုစီသည် Outlook ဒေတာဖိုင်တစ်ခုစီကို အသုံးပြုပါက၊ ဖိုင်တိုင်းသည် ဖိုင်များကို ဖျက်ပစ်လိုက်သည့် “Deleted Items” ဖိုင်တွဲတစ်ခုပါလာမည်ဖြစ်သည်။ “Deleted Items” ဖိုင်တွဲများအားလုံးတွင် အရာများ အသုံးမကျကြောင်း အတည်ပြုသောအခါ၊ သင်သည် ဖိုင်တွဲများကို လွတ်သွားတတ်သည်။ ဤကိစ္စတွင်၊ သင်ကိုယ်တိုင် ၎င်းတို့ကို ဗလာလုပ်ပါက၊ ၎င်းသည် အလွန်ပျင်းရိနိုင်သည်။ အောက်ပါကဲ့သို့ ၎င်းတို့ကို အလွတ်သုတ်ရန် အကြံပြုချက်တစ်ခုကို သင်အသုံးပြုခြင်းက ပိုကောင်းပါသည်။
အီးမေးလ်အကောင့်အားလုံးရှိ "ဖျက်လိုက်သောအရာများ" ဖိုင်တွဲများအားလုံးကို ဗလာကျင်းပါ။
- အစပိုင်းတွင် သင်၏ Outlook ပရိုဂရမ်ကို စတင်ပါ။
- ထို့နောက် ပင်မ Outlook ဝင်းဒိုးရှိ “Alt + F11” ခလုတ်များကို နှိပ်ပါ။
- နောက်တစ်ခု “Microsoft Visual Basic for Applications” ဝင်းဒိုးတွင်၊ သင်သည် ဗလာ module တစ်ခုကိုဖွင့်ရန်လိုအပ်သည်။
- ထို့နောက်တွင်၊ အောက်ပါ VBA ကုဒ်များကို ဤ module ထဲသို့ ကူးယူပြီး ကူးထည့်ပါ။
Sub BatchEmptyAllDeletedItemsFolder()
Dim objStores As Outlook.Stores
Dim objStore As Outlook.Store
Dim objPSTFile As Outlook.Folder
Dim objFolders As Outlook.folders
Dim objFolder As Object
Set objStores = Outlook.Application.Session.Stores
'Process all Outlook PST files in your Outlook
For Each objStore In objStores
Set objPSTFile = objStore.GetRootFolder
For Each objFolder In objPSTFile.folders
Call ProcessFolders(objFolder)
Next
Next
End Sub
Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
Dim i, n As Long
If objCurrentFolder.Name = "Deleted Items" Then
'Delete all the items in "Deleted Items" folder
For i = objCurrentFolder.Items.Count To 1 Step -1
objCurrentFolder.Items.Item(i).Delete
'Delete all the subfolders under "Deleted Items" folder
For n = objCurrentFolder.folders.Count To 1 Step -1
objCurrentFolder.folders.Item(n).Delete
Next
Next
End If
End Sub
- ၎င်းနောက်၊ သင်သည် သင်၏ Outlook တွင် macro ကိုခွင့်ပြုထားကြောင်း သေချာစေရန် သင်၏ Outlook မက်ခရိုဆက်တင်များကို စစ်ဆေးသင့်သည်။
- နောက်ဆုံးတွင် သင်သည် ဤ macro ကိုလည်ပတ်ရန် "F5" ခလုတ်ခလုတ်ကို နှိပ်နိုင်သည်။
- မက်ခရိုလည်ပတ်ပြီးနောက်၊ "ဖျက်ထားသောအရာများ" ဖိုင်တွဲများအားလုံးကို အောင်မြင်စွာ ရှင်းရှင်းလင်းလင်းမြင်ရနိုင်သည်။
Outlook အကျင့်ပျက်ခြစားမှုဖြစ်ရပ်တွင်
Outlook ပျက်စီးမှု သို့မဟုတ် Outlook အကျင့်ပျက်ခြစားမှုပင် သင်ကြုံတွေ့ဖူးပါသလား။ ယေဘူယျအားဖြင့်၊ ကြောက်စရာကောင်းတဲ့ကိစ္စတွေကို သင်ဘယ်လိုကိုင်တွယ်မလဲ။ အကယ်၍ သင်သည် Outlook ကို ဆယ်စုနှစ်များစွာ အသုံးပြုခဲ့လျှင် သင့် Outlook တွင် အမျိုးမျိုးသော ပြဿနာများနှင့် တွေ့ဆုံရန်မှာ မလွဲမသွေဖြစ်သည်။ ထို့ကြောင့်၊ သင်သည် ဝင်စာပုံးပြုပြင်ရေးတူးလ်ကိုအသုံးပြုခြင်း၊ Outlook ဒေတာကို ပုံမှန်အရန်ကူးယူခြင်း၊ ကြံ့ခိုင်မှုရယူခြင်းကဲ့သို့သော ပြုပြင်ခြင်းနှင့် ပြန်လည်ရယူခြင်းနည်းလမ်းအချို့ကို သင့်စိတ်ထဲမှာ သိမ်းဆည်းထားသင့်သည်။ Outlook ပြင်ဆင်မှု ကိရိယာ စသည်တို့ အားလုံး ဤသတိထားချက်များဖြင့် သင်၏ PST ဖိုင်ကို အခိုးခံရသည့်အခါတွင်ပင်၊ သင်သည် တည်ငြိမ်ပြီး သင်၏ Outlook ဒေတာကို အလွယ်တကူ ပြန်ရှာနိုင်သေးသည်။
စာရေးသူနိဒါန်း:
Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ sql ကိုပြင်ပါ။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com

