Outlook စာတိုက်ပုံးကို အရွယ်အစားသေးငယ်ပြီး Outlook ဒေတာ ဖောက်ပြန်ခြင်းမှ ကာကွယ်ရန်အတွက်၊ လွန်ခဲ့သောကာလက လက်ခံရရှိ သို့မဟုတ် ပေးပို့ခဲ့သည့် အီးမေးလ်များမှ ပူးတွဲပါဖိုင်များကို ဖယ်ရှားရန် အကြံပြုအပ်ပါသည်။ ဤဆောင်းပါးသည် Outlook VBA ဖြင့် လျင်မြန်စွာ ပြီးမြောက်အောင် ကူညီပေးပါမည်။
ကျွန်ုပ်တို့အားလုံးသိကြသည့်အတိုင်း Outlook စာတိုက်ပုံးပိုကြီးလာသည်နှင့်အမျှ Outlook ဒေတာသည် ပိုမိုအားနည်းလာမည်ဖြစ်သည်။ ထို့ကြောင့်၊ ကျွန်ုပ်သည် ယခင်က ကျွန်ုပ်၏စက်တွင်းဒစ်တွင် ဤပူးတွဲပါဖိုင်များကို အများအားဖြင့် သိမ်းဆည်းထားသောကြောင့် သတ်မှတ်ထားသော ရက်စွဲထက် သက်တမ်းရှိသော အသက်ကြီးသော အီးမေးလ်များတွင် ပူးတွဲပါဖိုင်များကို ဖယ်ရှားရာတွင် အသုံးပြုလေ့ရှိပါသည်။ ဒါပေမယ့် ဘယ်အီးမေးလ်တွေက အသက်ကြီးနေပြီလဲဆိုတာ သိဖို့နဲ့ ပူးတွဲပါဖိုင်တွေကို ကိုယ်တိုင်ဖယ်ရှားရတာ နည်းနည်းတော့ အခက်အခဲရှိတယ်။ ကျွန်ုပ်၏စွမ်းဆောင်ရည်ကို မြှင့်တင်ရန်အတွက် Outlook VBA ဖြင့် ဖြေရှင်းချက်တစ်ခု ထွက်လာပါသည်။
သတ်မှတ်ထားသောရက်စွဲထက် ပိုကြီးသော လက်ခံရရှိထားသော အီးမေးလ်များမှ ပူးတွဲပါဖိုင်များကို ဖယ်ရှားပါ။
- စတင်ရန်၊ Outlook ကိုဖွင့်ပြီး "Developer" တက်ဘ်သို့လှည့်ပါ။
- ထို့နောက် “ကုဒ်” အုပ်စုရှိ “Visual Basic” ခလုတ်ကို နှိပ်ပါ။
- ဝင်းဒိုးအသစ်တစ်ခုပေါ်လာလိမ့်မည်။ ၎င်းတွင်၊ သင်သည် module အသစ်တစ်ခုကိုဖွင့်ပြီး အောက်ပါကုဒ်များကို ၎င်းထဲသို့ကူးယူသင့်သည်။
Sub RemoveAttachmentsfromAgedEmail()
Dim olInbox As Outlook.Folder
Dim varItem As Variant
Dim i As Integer
Dim intDatDiff As Integer
Dim Att As Attachment
Set olInbox = Session.GetDefaultFolder(olFolderInbox)
For i = olInbox.Items.Count To 1 Step -1
Set varItem = olInbox.Items.Item(i)
If varItem.Class = olMail Then
'calculate the period between now and the received time
intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)
'You can replace "50" as per your needs
If intDatDiff > 50 Then
For Each Att In varItem.Attachments
Att.Delete
Next Att
varItem.Save
End If
End If
Next
End Sub
- ယခု သင်သည် လက်ရှိ “Visual Basic” ဝင်းဒိုးမှ ထွက်နိုင်ပြီး Quick Access Toolbar သို့ မက်ခရိုကို ပေါင်းထည့်ရန် ဆက်လက်လုပ်ဆောင်ပါ။ အောက်ပါအဆင့်များကို လိုက်နာပါ-
- ပထမဦးစွာ၊ Quick Access Toolbar ရှိ အောက်မြှားကို နှိပ်ပြီး drop down list မှ "More Commands" ကို ရွေးချယ်ပါ။
- ထို့နောက် "Choose commands from" အကွက်တွင် "Macros" ကိုရွေးချယ်သင့်သည်။
- ထို့နောက် မှန်ကန်သော မက်ခရိုကို ရွေးပြီး အလယ်ဗဟိုရှိ “Add” ခလုတ်ကို နှိပ်ပါ။
- နောက်ဆုံးအနေဖြင့်၊ ၎င်းကိုဖွင့်ရန်နှင့် Outlook ပင်မဝင်းဒိုးသို့ပြန်သွားရန် "OK" ခလုတ်ကိုနှိပ်ပါ။
- နောက်ဆုံးတွင် သင်သည် Quick Access Toolbar တွင် ခလုတ်ကို ရှာပြီး နှိပ်နိုင်သည်။ သင်၏သတ်မှတ်ရက်စွဲထက် ပိုကြီးသော မေးလ်များရှိ ပူးတွဲပါဖိုင်များကို အမြန်ဖယ်ရှားပါမည်။
သတ်မှတ်ထားသောရက်စွဲထက် ပိုဟောင်းသော ပေးပို့ထားသော အီးမေးလ်များမှ ပူးတွဲပါဖိုင်များကို ဖယ်ရှားပါ။
ဤရည်ရွယ်ချက်အောင်မြင်ရန်၊ သင်သည် အထက်ဖော်ပြပါ VBA ကုဒ်များအားလုံးကို ကူးယူနိုင်သော်လည်း အောက်ပါသတိပေးချက်များကို လိုက်နာခြင်းဖြင့် အချို့သောလိုင်းများကို ပြောင်းလဲနိုင်သည်-
- ပထမဦးစွာ၊ VBA ကုဒ်များရှိ “olInbox” အားလုံးကို “olSentItemFolder” သို့ပြောင်းပါ။
- ထို့နောက် “Set olInbox = Session.GetDefaultFolder(olFolderInbox)” ဖြင့် အစားထိုးပါ။
Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)
- ထို့နောက် “intDatDiff = DateDiff(“d”၊ varItem.ReceivedTime, Now)” ဖြင့် အစားထိုးပါ။
intDatDiff = DateDiff("d", varItem.SentOn, Now)
စိတ်အနှောင့်အယှက်ဖြစ်စေသော Outlook အမှားများကိုဖယ်ရှားပါ။
သင် Outlook ကို အချိန်အကြာကြီး အသုံးပြုခဲ့လျှင် မကြာခဏ အမှားများသည် သာမန်ကိစ္စများ ဖြစ်လာရပေမည်။ ၎င်းတို့ကို သင်မခန့်မှန်းနိုင် သို့မဟုတ် လုံးဝဖယ်ရှားပစ်ရန် မဖြစ်နိုင်ကြောင်း ထင်ရှားသည်။ သင်လုပ်နိုင်သည်မှာ ၎င်းတို့ကို ဖြေရှင်းရန် အကောင်းဆုံးကြိုးစားရန်သာဖြစ်သည်။ ဥပမာအားဖြင့်၊ inbox ပြုပြင်ရေးကိရိယာ၊ Scanpest.exe ကို အသုံးပြုပါ။ Outlook အီးမေးလ်အမှားပြင်ဆင်ပါ။. ထို့အပြင်၊ သင် မမျှော်လင့်ထားသော ပျက်စီးမှုဖြစ်သည့်အခါ သင့် Outlook ဒေတာအတွက် ပုံမှန်အရန်ကူးယူရန် လိုအပ်ပါသည်။
စာရေးသူနိဒါန်း:
Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ ပြုပြင် SQL Server mdf ပျက်စီးခြင်း။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com