VBA မှတဆင့် Word Document တစ်ခုထဲသို့ များစွာသော Outlook အီးမေးလ်များကို အစုလိုက်ထုတ်နည်း

Outlook အီးမေးလ်အများအပြားကို စာလုံးတစ်လုံးတည်းသို့ အစုလိုက်ထုတ်လိုပါက၊ ဤဆောင်းပါးတွင်ပြသထားသည့် VBA ကုဒ်ကို သုံးနိုင်သည်။ ဒီတာဝန်ကို စက္ကန့်ပိုင်းအတွင်း ပြီးမြောက်အောင် ကူညီပေးနိုင်ပါတယ်။

ကျွန်ုပ်၏ယခင်ဆောင်းပါးတွင် Outlook အီးမေးလ်ကို Word စာရွက်စာတမ်းအဖြစ်သို့မည်သို့ပြောင်းလဲရမည်ကိုကျွန်ုပ်မိတ်ဆက်ပေးခဲ့သည် - "2 Outlook အီးမေးလ်ကို Word စာရွက်စာတမ်းအဖြစ်သို့ပြောင်းလဲရန်ထိရောက်သောနည်းလမ်းများ” သို့သော် ၂ ပါးစလုံးကို ဆိုလိုသည်မှာ ထိုပစ္စယောost Word document တစ်ခုထဲသို့ အီးမေးလ်များစွာကို အစုလိုက် တင်ပို့လိုသောအခါတွင် အကူအညီမဲ့ဖြစ်လိမ့်မည်။ ထို့ကြောင့် ဤနေရာတွင် ကျွန်ုပ်တို့သည် သင့်အား အခြားနည်းဖြင့် သင်ကြားပေးပါမည်။ ကဲ အသေးစိပ်ရဖို့အတွက် ဆက်ဖတ်ကြည့်လိုက်ပါ။

Outlook အီးမေးလ်များစွာကို စကားလုံးစာရွက်စာတမ်းတစ်ခုတည်းသို့ အစုလိုက်ထုတ်ပါ။

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

Sub ExportMultipleEmails_OneWordDocument()
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim strFileName As String
    Dim objWordApp As Word.Application
    Dim objNewWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim strWordDocument As String
    Dim i As Long
  
    'Create a temp folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "YYYYMMDDhhmmss")
    MkDir (strTempFolder)
 
    On Error Resume Next
    'Save each selected email as an individual Word document in a temp folder
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    For Each objMail In objSelection
        strFileName = objMail.Subject
 
        'Remove the unsupported characters in email subject
        strFileName = Replace(strFileName, "/", " ")
        strFileName = Replace(strFileName, "\", " ")
        strFileName = Replace(strFileName, ":", "")
        strFileName = Replace(strFileName, "?", " ")
        strFileName = Replace(strFileName, Chr(34), " ")
 
        objMail.SaveAs strTempFolder & "\" & strFileName & ".doc", olDoc
    Next
 
    'Merge all the Word documents into a single document
    Set objWordApp = CreateObject("Word.Application")
    Set objNewWordDocument = objWordApp.Documents.Add
 
    strWordDocument = Dir(strTempFolder & "\" & "*.doc")
    i = 0
    Do Until strWordDocument = ""
       i = i + 1
       Set objWordRange = objNewWordDocument.Range
       With objWordRange
           .Collapse wdCollapseEnd
           If i > 1 Then
             .InsertBreak wdSectionBreakNextPage
             .End = objNewWordDocument.Range.End
             .Collapse wdCollapseEnd
           End If
           .InsertFile strTempFolder & "\" & strWordDocument
      End With
      strWordDocument = Dir()
    Loop
 
    'Change the path as per your own needs
    objNewWordDocument.SaveAs "E:\Exported Emails " & Format(Now, "YYYY-MM-DD hh-mm-ss")
    objWordApp.Quit
 
    'Delete the temp folder
    objFileSystem.DeleteFolder (strTempFolder)
End Sub

5. ၎င်းနောက်၊ သင်သည် ဤ VBA ပရောဂျက်အသစ်ကို Quick Access Toolbar သို့မဟုတ် ribbon သို့ပေါင်းထည့်ခြင်းက ပိုကောင်းပါသည်။
6. အဆုံးစွန်အားဖြင့် သင်ကြိုးစားနိုင်သည်။

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

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

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

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

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