အလွန်ရှည်လျားသော အီးမေးလ်စာတစ်စောင်၏အဆုံးတွင် စာသားများကို အမြန်ထည့်သွင်းလိုသောအခါ၊ အဆုံးအထိ အောက်သို့ရွှေ့ရန် အချိန်အနည်းငယ်ကြာလိမ့်မည်။ ဤဆောင်းပါးသည် VBA မှတစ်ဆင့် အီးမေးလ်စာကိုယ်၏အဆုံးသို့ လျင်မြန်စွာ ခုန်တက်နိုင်စေမည့် နည်းလမ်းတစ်ခုကို ဖော်ပြပါမည်။
တစ်ခါတစ်ရံမှာ အီးမေးလ်ရှည်တစ်ခုကို ကြည့်ရှုနေချိန်မှာ cursor ကို မက်ဆေ့ချ်ရဲ့ အဆုံး ဒါမှမဟုတ် အစကို မြန်မြန်ဆန်ဆန် ကျော်သွားချင်တာမျိုး ဖြစ်နိုင်ပါတယ်။ ဥပမာအားဖြင့်၊ ပို့သူရဲ့ လက်မှတ်ကို စစ်ဆေးချင်တယ်ဆိုရင် အဆုံးကို ကျော်သွားရပါမယ်။ ယေဘုယျအားဖြင့် အဆုံးကို မရောက်မချင်း scroll down ဆက်လုပ်သွားရပါမယ်။ နည်းနည်းတော့ အဆင်မပြေဖြစ်နိုင်ပါတယ်။ ဒါကြောင့် VBA code တစ်ခုကို ပေးပါမယ်။ ဒါက အဆုံးကို ကျော်သွားနိုင်အောင် ဒါမှမဟုတ် တစ်ချက်နှိပ်ရုံနဲ့ စတင်နိုင်အောင် ကူညီပေးပါလိမ့်မယ်။
မက်ဆေ့ချ်၏အစ သို့မဟုတ် အဆုံးကို အမြန်ခုန်ပါ။
- အစပိုင်းမှာ Outlook ပရိုဂရမ်ကို စတင်ပါ။
- ထို့နောက် ပင်မ Outlook ဝင်းဒိုးတွင် Alt + F11 ခလုတ်များကို နှိပ်ပါ။
- ထို့နောက် သင်သည် “Microsoft Visual Basic for Applications” ဝင်းဒိုးထဲသို့ ဝင်သွားပါမည်။
- ဤအချိန်တွင် သင်သည် ဗလာ module တစ်ခုကိုဖွင့်ရန် သို့မဟုတ် အသစ်တစ်ခုကို တိုက်ရိုက်ထည့်သွင်းရန် လိုအပ်သည်။
- ထို့နောက်တွင်၊ သင်သည် အောက်ပါ VBA ကုဒ်ကို မော်ဂျူးဝင်းဒိုးထဲသို့ ကူးယူပြီး ကူးထည့်သင့်သည်။
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'လက်ရှိအီးမေးလ်သည် word editor ကို အသုံးပြုနေပါကသာ အလုပ်လုပ်ပါသည်။ objCurrentMail = Outlook.Application.ActiveInspector.CurrentItem Set objWordDocument = objCurrentMail.GetInspector.WordEditor မဟုတ်ပါက (objWordDocument သည် ဘာမှမဟုတ်ပါ) ထို့နောက် VarPosition = objWordDocument.Range.End - 1 objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub Sub JumpToStart() မဟုတ်ပါက (objWordDocument သည် ဘာမှမဟုတ်ပါ) ထို့နောက် VarPosition = objWordDocument.Range.Start objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub
- ထို့နောက်တွင်၊ သင်သည် မက်ဆေ့ချ်ဝင်းဒိုး၏ Quick Access Toolbar တွင် လုပ်ရိုးလုပ်စဉ်အသစ်နှစ်ခုကို ပိုမိုကောင်းမွန်စွာ ထည့်သွင်းနိုင်ခဲ့သည်။
- ပထမဦးစွာ Message window တွင် အီးမေးလ်တစ်ခုကို ဖွင့်ပါ။
- ထို့နောက် Quick Access Toolbar ရှိ အောက်မြှားကို နှိပ်ပါ။
- drop down list မှ၊ သင်သည် "More Commands" ကိုရွေးချယ်သင့်သည်။
- လာမည့်ဝင်းဒိုးတွင်၊ သင်သည် အောက်ပါစခရင်ပုံစခရင်ပုံကဲ့သို့ Quick Access Toolbar သို့ မက်ခရိုများကို ထည့်နိုင်သည်။
- နောက်ဆုံးအနေဖြင့် ပြောင်းလဲမှုများကို သိမ်းဆည်းရန် "OK" စီးရီးတစ်ခုကို နှိပ်ပါ။
- နောက်ဆုံးတွင်၊ ယခုမှစ၍ Quick Access Toolbar ရှိ ခလုတ်ကို နှိပ်ခြင်းဖြင့် အီးမေးလ်၏ အစ သို့မဟုတ် အဆုံးသို့ ကျော်သွားနိုင်ပြီး အောက်ပါပုံအတိုင်း ပြသထားသည်။
PST ဖိုင်ကို အခိုးခံရရင် ဘာဖြစ်မလဲ။
PST ဖိုင်သည် အမှားအယွင်းများနှင့် အကျင့်ပျက်ခြစားမှုကို ခံရနိုင်သောကြောင့်၊ သင်၏ PST ဒေတာကို ကာကွယ်ရန် အကောင်းဆုံးကြိုးစားသင့်သည်။ ဥပမာအားဖြင့်၊ သင်သည် သင်၏ PST ဖိုင်ကို အချိန်အခါအလိုက် အရန်သိမ်းဆည်းရန် လိုအပ်သည်။ ထိုမှတပါး ပြန်၍မရနိုင်သကဲ့သို့၊ ပျက်စီးနေသော PST ဒေတာအချိန်မီ၊ သင်အနီးတစ်ဝိုက်တွင်အားကောင်းသောကိရိယာတစ်ခုထားရှိရန်ပိုမိုကောင်းမွန်သည်။ DataNumen Outlook Repair. ၎င်းသည် PST ပြဿနာများကို ပြုပြင်ရန်နှင့် PST ဒေတာကို ရယူရာတွင် အထူးပြုပါသည်။
စာရေးသူနိဒါန်း:
Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ SQL Server ပုံသေတပ်ထား နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com