သင်၏ Outlook တွင် ဖွင့်ထားသော အီးမေးလ်များအားလုံးကို အစုလိုက်ပေးပို့နည်း

ယခုမျှဝေပါ-

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

ဥပမာအားဖြင့်၊ သင်သည် အီးမေးလ်အသစ်အချို့ကို ဖြည့်စွက်ပြီးသော်လည်း ၎င်းတို့ကို မပို့ဘဲ ဖွင့်ထားရုံသာဖြစ်သည်။ ပြီး​တော့ မင်း​တို့​ကို လွှတ်​လိုက်​ချင်​တယ်။ ယေဘူယျအားဖြင့်၊ သင်သည် အီးမေးလ်တိုင်းရှိ "ပို့ရန်" ခလုတ်ကို တစ်ချက်နှိပ်ရပါမည်။ ဤအခြေအနေတွင်၊ ဖွင့်ထားသောနှင့် ရေးစပ်ထားသော အီးမေးလ်အားလုံးကို အစုလိုက်ပေးပို့ရန် သင့်အား ပံ့ပိုးပေးနိုင်သည့် နည်းလမ်းကို သင်တောင့်တနေရပါမည်။

သင့် Outlook တွင် ဖွင့်ထားသော အီးမေးလ်များအားလုံးကို အသုတ်လိုက်ပို့ပါ။

အောက်ပါတို့၌ ဤကဲ့သို့ ထိရောက်သော နည်းလမ်းကို သင့်အား ထုတ်ဖော်ပါမည်။ ၎င်းသည် VBA ကိုအသုံးပြုသည်။ VBA ကို ဘယ်လိုသုံးရမလဲဆိုတာ မသိရင် ဆောင်းပါးကို ကိုးကားနိုင်ပါတယ် – “သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။“ဒီအချိန်မှာ။

အသုတ်လိုက်ဖွင့်ပြီး ရေးထားသော အီးမေးလ်များအားလုံးကို ပို့ပါ။

  1. စတင်ရန်၊ သင်သည် ပုံမှန်အတိုင်း သင့်အီးမေးလ်များကို ရေးဖွဲ့နိုင်ပြီး ၎င်းတို့ကို ဖွင့်ထားပါ။ဖွင့်ထားသော အီးမေးလ်များ
  2. ထို့နောက် VBA တည်းဖြတ်မှုသို့ဝင်ရောက်ရန် "Alt + F11" ကိုနှိပ်ပါ။
  3. ထို့နောက်၊ ဝင်းဒိုးအသစ်တွင်၊ အောက်ပါ VBA ကုဒ်ကို မော်ဂျူးတစ်ခုသို့ ကူးယူပါ။
Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

VBA ကုဒ် - အဖွင့်နှင့် ပေါင်းစပ်ထားသော အီးမေးလ်များအားလုံးကို အစုလိုက် ပေးပို့ပါ။

  1. ထို့နောက် “F5” ခလုတ်ကို တိုက်ရိုက်နှိပ်ခြင်းဖြင့်သော်လည်းကောင်း ဤ macro ကို စတင်လိုက်ပါ။
  2. နောက်ဆုံးတွင်၊ macro ပြီးသွားသောအခါ၊ ပေးပို့ရမည့် email အရေအတွက်ကို သင့်ထံ အချက်ပြပါလိမ့်မည်။ပေးပို့ရမည့် အီးမေးလ်ဖွင့်ထားသည့် အရေအတွက်အကြောင်း အချက်ပြပါ။
  3. ယခု၊ ယခင်ဖွင့်ထားသော အီးမေးလ်များအားလုံးကို ပို့ထားကြောင်း သင်မြင်နိုင်သည့် Outbox ကိုဖွင့်ပါ။အီးမေးလ်များ ပို့နေပါသည်။

မမျှော်လင့်ထားသော ပျက်စီးမှုမှ Outlook ကို ပြန်လည်ရယူပါ။

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

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

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

ယခုမျှဝေပါ-

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