အီးမေးလ်များစွာမှ ပူးတွဲပါဖိုင်အားလုံးကို Outlook တွင် အီးမေးလ်အသစ်တစ်ခုသို့ ကူးယူနည်း

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

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

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

ပူးတွဲပါဖိုင်အားလုံးကို အီးမေးလ်များစွာမှ အီးမေးလ်အသစ်သို့ ကူးယူပါ။

အစပိုင်းမှာတော့ ပုံမှန်အတိုင်း Outlook ပရိုဂရမ်ကို စတင်ပါ။
ပင်မ Outlook ဝင်းဒိုးတွင် နောက်တစ်ခု၊ “Alt + F11” သော့ခလုတ်များကို နှိပ်ပါ။
နောက်ဆက်တွဲ “Microsoft Visual Basic for Applications” ဝင်းဒိုးတွင်၊ မော်ဂျူးအသစ်တစ်ခုကို ထည့်သွင်းပါ သို့မဟုတ် အသုံးမပြုသော မော်ဂျူးတစ်ခုကို ဖွင့်ပါ။
ထို့နောက် အောက်ပါ VBA ကုဒ်များကို ထိုသို့သော မော်ဂျူးတစ်ခုထဲသို့ ကူးယူပြီး ကူးထည့်ပါ။

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

၎င်းနောက်၊ သင်သည် Quick Access Toolbar သို့ VBA ပရောဂျက်အသစ်ကို ထည့်သွင်းရန် ဆက်လက်လုပ်ဆောင်သင့်သည်။ ၎င်းကို "Outlook Options" တွင် သင်ဖြည့်သွင်းနိုင်ပါသည်။
နောက်ပိုင်းတွင် သင်သည် သင်၏ Outlook မက်ခရိုလုံခြုံရေးအဆင့်ကို အနိမ့်သို့ ပြောင်းသင့်သည်။
နောက်ဆုံးတော့ သင်ကြိုးစားကြည့်နိုင်ပါတယ်။

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

မကြာခဏ Outlook PST ပြဿနာများကို စိန်ခေါ်ပါ။

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

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

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

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