Outlook VBA ဖြင့် မူကြမ်းအီးမေးလ်များစွာကို အစုလိုက်ပေးပို့နည်း

Outlook ဖြေရှင်းချက် စက်တင်ဘာလ 29, 2025

အကြောင်းအမျိုးမျိုးကြောင့် သင့် Outlook တွင် မူကြမ်းအီးမေးလ်များစွာကို သိမ်းဆည်းနိုင်ပါသည်။ Outlook VBA ဖြင့် ဖန်တီးထားသည့် ၎င်းတို့အားလုံးကို ကလစ်တစ်ချက်နှိပ်ရုံဖြင့် ၎င်းတို့အားလုံးကို အစုလိုက်ပေးပို့နည်းကို ဤဆောင်းပါးတွင် သင်ပေးပါမည်။

တခါတရံမှာ အီးမေးလ်တွေကို အခုချက်ချင်း ပို့ဖို့ မမျှော်လင့်ထားပါဘူး။ ထို့ကြောင့်၊ သင်သည် ၎င်းတို့အား Drafts mail folder တွင် သိမ်းဆည်းမည်ဖြစ်ပြီး ၎င်းတို့ကို နောက်ပိုင်းတွင် ပေးပို့ရန် ရည်ရွယ်ထားသည်။ ထုံးစံအတိုင်း၊ သင်သည် မူကြမ်းများကို ပေးပို့လိုပါက ၎င်းတို့ကို တစ်ဦးချင်းဖွင့်ပြီး "ပို့ရန်" ခလုတ်ကို တစ်ခုပြီးတစ်ခု နှိပ်ရမည်ဖြစ်သည်။ ပေးပို့ရမည့်မူကြမ်းများ အများအပြားရှိနေပါက၊ ၎င်းသည် အချိန်ကုန်စေမည်ဖြစ်သည်။ ထို့ကြောင့်၊ အသုံးပြုသူအများအပြားသည် ခလုတ်တစ်ချက်နှိပ်ရုံဖြင့် ၎င်းတို့အား Outlook မှ မူကြမ်းများအားလုံးကို ထုတ်ပေးနိုင်မည်ဟု မျှော်လင့်ပါသည်။ သို့သော် ပုံမှန်အားဖြင့်၊ ထိုသို့သောခလုတ်မရှိပါ။ သို့သော် ၎င်းကိုဖန်တီးရန် Outlook VBA ကို သင်သုံးနိုင်သည်။ ဤသည်မှာ အသေးစိတ်အဆင့်များနှင့် VBA ကုဒ်များဖြစ်သည်။

အသုတ် အီးမေးလ်များ အားလုံးကို ပေးပို့ပါ။

ပထမဦးစွာ Outlook အပလီကေးရှင်းကိုဖွင့်ပြီး “Alt + F11” ဖြတ်လမ်းလင့်ခ်များကို နှိပ်ပါ။
ထို့နောက် module အသစ်တစ်ခုဖွင့်သင့်သော VBA တည်းဖြတ်ဝင်းဒိုးကိုသင်ဖွင့်လိမ့်မည်။
ထို့နောက် အောက်ပါ VBA ကုဒ်များကို ကော်ပီကူးပြီး ၎င်းထဲသို့ ကူးထည့်ပါ။

Sub SendAllDraftEmails()
    Dim objDrafts As Outlook.Items
    Dim objDraft As Object
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
 
    If objDrafts.Count > o Then
       strPrompt = "Are you sure to send out all the drafts?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objDrafts.Count To 1 Step -1
              objDrafts.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No Drafts!")
    End If
End Sub

၎င်းနောက်၊ သင်သည် VBA တည်းဖြတ်သူမှထွက်နိုင်ပြီး Quick Access Toolbar သို့မဟုတ် ribbon သို့ VBA ပရောဂျက်ကို ထည့်သွင်းရန် ဆက်လက်လုပ်ဆောင်နိုင်သည်။ ဤနေရာတွင် ကျွန်ုပ်တို့သည် Quick Access Toolbar ကို နမူနာအဖြစ် ယူပါမည်။

ပထမဦးစွာ “File” > “Options” > “Quick Access Toolbar” tab သို့သွားပါ။
ထို့နောက် Quick Access Toolbar တွင် macro အသစ်ကို ထည့်ရန် အောက်ဖော်ပြပါ ပုံတွင် ပြထားသည့် အဆင့်များကို လိုက်နာပါ။

နောက်ဆုံးတွင် သင်သည် ပင်မ Outlook ဝင်းဒိုးသို့ ပြန်သွားနိုင်သည်။ Quick Access Toolbar တွင် ခလုတ်အသစ်ကို သင်တွေ့ရပါမည်။

Drafts ဖိုဒါတွင် မည်သည့်အရာမှမရှိပါက၊ ခလုတ်ကိုနှိပ်လိုက်သောအခါတွင်၊ သင်သည် အောက်ပါစခရင်ပုံစခရင်ပုံကဲ့သို့ မက်ဆေ့ချ်တစ်ခုကို လက်ခံရရှိမည်ဖြစ်သည်။
သို့သော် Drafts ဖိုဒါတွင် အရာများရှိနေပါက၊ အောက်ပါပုံကဲ့သို့ အမှာစာတစ်ခု သင်လက်ခံရရှိမည်ဖြစ်သည်။ "Yes" ကိုရွေးချယ်ပြီးသည်နှင့်၊ Outlook သည်မူကြမ်းအားလုံးကိုစတင်ပေးပို့လိမ့်မည်။

ရွေးချယ်ထားသော မူကြမ်းအီးမေးလ်များကို အသုတ်လိုက်ပို့ပါ။

ရွေးချယ်ထားသော မူကြမ်းများကိုသာ ပေးပို့ရန် မျှော်လင့်ပါက၊ အထက်ဖော်ပြပါ ကုဒ်များသည် အဆင်မပြေပါ။ ၎င်းအစား အောက်ပါကုဒ်များကို သင်သုံးနိုင်သည်။

ပထမဦးစွာ၊ ၎င်းတို့ကို module အသစ်တစ်ခုသို့ကူးယူပါ။

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

ထို့နောက် ပုံမှန်အတိုင်း Quick Access Toolbar သို့ မက်ခရိုအသစ်ကို ထည့်ပါ။
ပြီးနောက်၊ သင်ရွေးချယ်နိုင်သည်။ tarမူကြမ်းအီးမေးလ်များကိုရယူပြီး ခလုတ်ကိုနှိပ်ပါ၊ ပုံကဲ့သို့ အချက်ပြချက်တစ်ခုကို သင်ရရှိပါမည်-
နောက်ဆုံးအနေနဲ့၊ "Yes" ကိုနှိပ်လိုက်သရွေ့ ရွေးချယ်ထားတဲ့ အီးမေးလ်ကြမ်းတွေကို ပို့ပေးပါလိမ့်မယ်။

စိတ်အနှောင့်အယှက်ဖြစ်စေသော Outlook ပြဿနာများကိုဖယ်ရှားပါ။

သင့်တွင် ရှုပ်ထွေးသော Outlook ပြဿနာများစွာကို သင်ကြုံတွေ့ရပေမည်။ သူတို့ကို သင် ဘယ်လို ဖယ်ရှားနိုင်မလဲ။ ပုံမှန်အတိုင်း၊ သင်သည် ၎င်း၏ထည့်သွင်းထားသော ပြုပြင်ရေးကိရိယာ Scanpst.exe ကို စမ်းသုံးနိုင်သည်။ ၎င်းသည်သေးငယ်သော Outlook PST ဖိုင်ပြဿနာများကိုဖြေရှင်းနိုင်သည်။ ဒါပေမဲ့ ကံမကောင်းရင် ကြုံဆုံရတာမျိုးလိုမျိုး ပြင်းထန်တဲ့ဒုက္ခ PST အီးမေးလ် ပျက်စီးခြင်း။Inbox tool သည် အကျိုးသက်ရောက်မှုများကို ပြုလုပ်မည်မဟုတ်ပါ။ ထိုအချိန်တွင်၊ ကဲ့သို့သော ပို၍ထင်ရှားသောကိရိယာကို အသုံးပြုရန် သင့်တွင် ရွေးချယ်စရာမရှိပေ။ DataNumen Outlook Repair.

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

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

မှတ်ချက်များကိုပိတ်ထားကြသည်။