အီးမေးလ်များစွာကို အမြန်ထည့်နည်းနှင့် ထပ်ဆင့်ပို့နည်း Zip Outlook တွင် ပူးတွဲပါရှိသည်။

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

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

တစ်ခုအဖြစ် အီးမေးလ်များစွာကို ပေါင်းထည့်ကာ ထပ်ဆင့်ပို့ပါ။ Zip attachment

1. အစပိုင်းမှာတော့ Outlook ကို ပုံမှန်အတိုင်း စတင်ပါ။
2. ထို့နောက် Outlook ဝင်းဒိုးတွင် Alt + F11 ခလုတ်များကို နှိပ်ပါ။
3. နောက်ပိုင်းတွင်၊ အောင်မြင်စွာ Outlook VBA တည်းဖြတ်ဝင်းဒိုးသို့ သင်ဝင်ရောက်ခွင့်ရရှိပါမည်။
4. ဤအချိန်တွင် သင်သည် အသုံးမပြုသော module တစ်ခုကိုဖွင့်နိုင်သည် သို့မဟုတ် အသစ်တစ်ခုထည့်သွင်းနိုင်သည်။
5. ထို့နောက်၊ သင်သည် အောက်ပါ VBA ကုဒ်ကို ဤ module သို့ ကူးယူရန် လိုအပ်သည်။

Sub ForwardMultipleEmailsAsZipAttachment()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim strSubject As String
    Dim strTempFolder As String
    Dim varTempFolder As Variant
    Dim objShell As Object
    Dim varZipFile As Variant
    Dim objForward As Outlook.MailItem
 
    Set objSelection = Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       'Save selected emails to Temporary folder
       strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
       varTempFolder = strTempFolder & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-")
       MkDir (varTempFolder)
       varTempFolder = varTempFolder & "\"

       For Each objMail In objSelection
 
           strSubject = objMail.Subject
 
           'Remove unsupported characters in the subject
           strSubject = Replace(strSubject, "/", " ")
           strSubject = Replace(strSubject, "\", " ")
           strSubject = Replace(strSubject, ":", "")
           strSubject = Replace(strSubject, "?", " ")
           strSubject = Replace(strSubject, Chr(34), " ")
 
           objMail.SaveAs varTempFolder & strSubject & ".msg", olMsg
       Next
    
       'Create a new zip file
       varZipFile = InputBox("Specify a name for the new zip file", "Name Zip File")
       varZipFile = strTempFolder & "\" & varZipFile & ".zip"
       Open varZipFile For Output As #1
       Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
       Close #1
 
       'Copy all the saved emails to the new zip file
       Set objShell = CreateObject("Shell.Application")
       objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items

       'Keep macro running until compressing is done
       On Error Resume Next
       Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count
          Application.Wait (Now + TimeValue("0:00:01"))
       Loop
       On Error GoTo 0
 
       Set objMail = Application.CreateItem(olMailItem)
 
       'Add the zip attachment to a new email
       With objMail
            .Attachments.Add varZipFile
            .Display
       End With
    End If
End Sub

6. ၎င်းနောက်၊ သင်သည် လက်ရှိ macro မှထွက်နိုင်သည်။
7. နောက်ပိုင်းတွင် အဆင်ပြေစေရန်အတွက်၊ သင်သည် ဤမက်ခရိုကို Quick Access Toolbar သို့ ထည့်ခြင်းက ပိုကောင်းပါသည်။
8. နောက်ဆုံးအနေနဲ့ စမ်းကြည့်လို့ရပါတယ်။

• ပထမဦးစွာ အခြားသူတစ်ဦးထံ သင်ပေးပို့လိုသော အီးမေးလ်များကို ရွေးချယ်ပါ။
• ထို့နောက် Quick Access Toolbar ရှိ မက်ခရိုခလုတ်ကို နှိပ်ပါ။
• ထို့နောက် ချုံ့ထားသောဖိုင်အတွက် အမည်တစ်ခု ထည့်သွင်းရန် လိုအပ်မည်ဖြစ်သည်။
• နာမည်တစ်ခုဖြည့်ပြီး “OK” ကိုနှိပ်ပြီးနောက်၊ အီးမေးလ်အသစ်တစ်ခုပေါ်လာမည်၊ ၎င်းတွင်သင်တွေ့လိမ့်မည်။ zip အောက်ဖော်ပြပါ screenshot ကဲ့သို့ ဖိုင်ကို ပူးတွဲပါ-

ထင်ရှားသော ပြုပြင်ရေးတူးလ်ကို အနီးအနားတွင်ထားပါ။

Outlook တွင် သိမ်းဆည်းထားသော အီးမေးလ်များ ပိုများလာသည်နှင့်အမျှ PST ဖိုင်သည် ပိုကြီးပြီး ပိုကြီးလာမည်ဖြစ်သည်။ ထိုသို့သောအခြေအနေမျိုးတွင်၊ Outlook သည် အမှားအယွင်းအမျိုးမျိုးနှင့် ပျက်စီးမှုများပင် ကြုံတွေ့ရလိမ့်မည်။ ထို့ကြောင့် ခိုင်ခံ့မြဲမြံစွာ ထားရန်မှာ ပိုကောင်းသည်။ PST ပြုပြင်ခြင်း။ အနီးနားက tool လိုမျိုး DataNumen Outlook Repair. ၎င်းသည် ပြန်လည်ရယူနှုန်းမြင့်မားသောကြောင့် အလွန်အကြံပြုထားသည့်ကိရိယာတစ်ခုဖြစ်သည်။

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

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