သင့်စာတိုက်ပုံးကို စနစ်တကျထားရန်၊ သတ်မှတ်ထားသော အီးမေးလ်များကို သီးခြားဖိုင်တွဲတွင် သိမ်းဆည်းရာတွင် အသုံးပြုနိုင်သည်။ သင်ပေးပို့ပြီးနောက် အီးမေးလ်ကို အလိုအလျောက်ရွှေ့ရန် Outlook VBA ကို အသုံးပြုနည်းကို ဤဆောင်းပါးတွင် ပြောပြပါမည်။
အလားတူအီးမေးလ်များကို သီးခြားမေးလ်ဖိုင်တွဲတစ်ခုတွင် သိမ်းဆည်းခြင်းသည် အီးမေးလ်အများအပြားကို စီမံခန့်ခွဲရန် ကောင်းမွန်သော အကြံပြုချက်ဖြစ်သည်။ မတူညီသောအသုံးပြုသူများသည် မေးလ်အမျိုးအစားခွဲခြားခြင်းနှင့် စီမံခန့်ခွဲမှုအတွက် ၎င်းတို့၏ကိုယ်ပိုင်စံနှုန်းများ ရှိရမည်မှာ သေချာပါသည်။ ဥပမာအားဖြင့်၊ သင်သည် ၎င်းတို့၏အီးမေးလ်များကို ပြန်ကြားခြင်း၊ ထပ်ဆင့်ပို့ခြင်း သို့မဟုတ် အခြားအရာများကဲ့သို့ ၎င်းတို့အပေါ် သင်၏နောက်ဆက်တွဲလုပ်ဆောင်မှုများအရ သင့်အီးမေးလ်များကို အမျိုးအစားခွဲရန် နှစ်သက်နိုင်သည်။ အီးမေးလ်ကို "Forwarded" ကဲ့သို့ သီးခြားဖိုင်တွဲတစ်ခုသို့ အလိုအလျောက် ရွှေ့လိုပါက၊ ၎င်းကို ပေးပို့သည့်အခါတွင်၊ ၎င်းကို အချိန်တိုအတွင်း ရရှိရန် အောက်ပါလုပ်ဆောင်ချက်များနှင့် VBA ကုဒ်များကို သင်အသုံးပြုနိုင်ပါသည်။
သင် ပေးပို့ပြီးနောက် အီးမေးလ်ကို သီးခြား ဖိုင်တွဲတစ်ခုသို့ အလိုအလျောက် ရွှေ့ပါ။
- ပထမနေရာတွင် Outlook ကိုဖွင့်ပါ။
- ထို့နောက် "ဆော့ဖ်ဝဲအင်ဂျင်နီယာ" တက်ဘ်သို့ပြောင်းပါ။
မှတ်စု: ဤတက်ဘ်ကို ရှာမတွေ့ပါက၊ သင်သည် ၎င်းကို ဦးစွာဖွင့်ရန် "File" > "Options" > "Customize Ribbon" သို့ သွားသင့်သည်။
- ဤတက်ဘ်ကို မြင်နိုင်ပြီးနောက်၊ ၎င်းအောက်ရှိ “Visual Basic” ခလုတ်ကို သင်ရှာပြီး နှိပ်နိုင်သည်။
- ထို့နောက်တွင်၊ “Microsoft Visual Basic for Applications” ဝင်းဒိုးအသစ်တစ်ခု ပေါ်လာပါမည်။ ၎င်းတွင်၊ ၎င်းကိုဖွင့်ရန် ဘယ်ဘက်ရှိ “ThisOutlookSession” ပရောဂျက်ကို နှစ်ချက်နှိပ်သင့်သည်။
- ထို့နောက် အောက်ပါ VBA ကုဒ်များကို ကော်ပီကူးပြီး ၎င်းထဲသို့ ကူးထည့်နိုင်ပါသည်။
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub objExplorer_SelectionChange()
On Error Resume Next
Set objMail = objExplorer.Selection.Item(1)
End Sub
Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
Dim objInboxFolder As Folder
Dim objTargetFolder As Folder
Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
On Error Resume Next
Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
If objTargetFolder Is Nothing Then
Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
End If
objMail.Categories = "Forwarded"
objMail.Move objTargetFolder
End Sub
- နောက်ပိုင်းတွင် သင်သည် VBA ပရောဂျက်အသစ်ကို လက်မှတ်ထိုးရန် လိုအပ်ပါသည်။
- ပထမဦးစွာ၊ ဒစ်ဂျစ်တယ်လက်မှတ်တစ်ခုဖန်တီးရန် "VBA ပရောဂျက်များအတွက် ဒစ်ဂျစ်တယ် လက်မှတ်များ" ပါ၀င်သည့်ကိရိယာကို အသုံးပြုပါ။
- ထို့နောက် အောက်ပါဖန်သားပြင်ဓာတ်ပုံကဲ့သို့ ဤ macro သို့ အသိအမှတ်ပြုလက်မှတ်ကို သတ်မှတ်ပေးပါ။
- နောက်ပိုင်းတွင် ဒစ်ဂျစ်တယ်ဖြင့် လက်မှတ်ထိုးထားသော မက်ခရိုများကို ခွင့်ပြုရန် သင်၏ macro ဆက်တင်များကို ပြောင်းလဲနိုင်သည်။
- နောက်ဆုံးတော့ restart မက်ခရိုအသစ်ကို အသက်သွင်းရန် Outlook။ ယခုမှစ၍၊ သင်သည် အီးမေးလ်ကို ရွေးချယ်ပြီး "ရှေ့ဆက်" ခလုတ်ကို နှိပ်လိုက်သောအခါ၊ အီးမေးလ်ကို "ထပ်ဆင့်ပို့သည်" ဖိုင်တွဲသို့ တစ်ကြိမ်တည်း ပြောင်းရွှေ့သွားပါမည်။
မလိုလားအပ်သော Outlook PST ဒေတာ ဖောက်ပြန်ခြင်းကို ရှောင်ကြဉ်ပါ။
မီတာတစ်ခုost Outlook အသုံးပြုသူများကို အချိန်အတော်ကြာ အနှောက်အယှက်ဖြစ်စေသည့် ပြဿနာမှာ Outlook သည် အကျင့်ပျက်ခြစားမှုဖြစ်နိုင်ခြေရှိသည်။ ဆိုလိုတာက ဒုက္ခ PST ပျက်စီးခြင်း။ ဖြစ်ရိုးဖြစ်စဉ်တစ်ခုဖြစ်သည်။ ထို့ကြောင့်၊ အလားအလာဒေတာများ ဆုံးရှုံးခြင်းမှ ကာကွယ်ရန်အတွက်၊ သင်သည် သင်၏ PST ဒေတာအတွက် တသမတ်တည်းနှင့် နောက်ဆုံးပေါ် အရန်ကူးယူမှုကို ပိုမိုကောင်းမွန်စွာ ပြုလုပ်ရပါမည်။
စာရေးသူနိဒါန်း:
Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ အကျင့်ပျက်ခြစားမှု SQL Server နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com

