Outlook VBA မှတဆင့် စကားဝိုင်းတစ်ခုတွင် အီးမေးလ်များအားလုံးကို စာသားဖိုင်များအဖြစ် အစုလိုက်ထုတ်နည်း

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

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

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

စကားဝိုင်းတစ်ခုတွင် စာများအားလုံးကို စာသားဖိုင်များအဖြစ် အသုတ်လိုက်ထုတ်ပါ။

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

Public strFilePath, strFileName As String

Sub ExportMailsInConversationAsTXT()
    Dim objSelectedMail As Outlook.MailItem
    Dim objConversation As Outlook.Conversation
    Dim objMail As Outlook.MailItem

    Set objSelectedMail = ActiveExplorer.Selection.Item(1)
    Set objConversation = objSelectedMail.GetConversation
 
    If Not (objConversation Is Nothing) Then
       'Get all root items in this conversation
       For Each objMail In objConversation.GetRootItems
 
          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), " ")

          strFileName = Format(objMail.ReceivedTime, "YYYY-MM-DD") & "_" & strFileName & ".txt"
 
         'Export as Text files
         'Change "E:\" to other local folder path as per your needs
         strFilePath = "E:\" & strFileName
         objMail.SaveAs strFilePath, OLTXT

         'Process all children as well
         Call ProcessChildren(objMail, objConversation)
      Next
   End If

   MsgBox "Complete!", vbExclamation
End Sub

Sub ProcessChildren(objCurMail As Outlook.MailItem, objCurConversation As Outlook.Conversation)
    Dim objItems As Outlook.SimpleItems
    Dim objItem As Outlook.MailItem
 
    Set objItems = objCurConversation.GetChildren(objCurMail)

    If objItems.Count > 0 Then
       For Each objItem In objItems
 
           strFileName = objItem.Subject
 
           strFileName = Replace(strFileName, "/", " ")
           strFileName = Replace(strFileName, "\", " ")
           strFileName = Replace(strFileName, ":", "")
           strFileName = Replace(strFileName, "?", " ")
           strFileName = Replace(strFileName, Chr(34), " ")
 
           strFileName = Format(objItem.ReceivedTime, "yyyy-mm-dd") & "_" & strFileName & ".txt"
 
           strFilePath = "E:\" & strFileName
           objItem.SaveAs strFilePath, OLTXT
 
           'Process all children recursively
           Call ProcessChildren(objItem, objCurConversation)
       Next
    End If
End Sub

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

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

အကျင့်ပျက်ခြစားပြီးနောက် PST ဒေတာကို ပြန်လည်ရယူခြင်းအတွက် အကြံပြုချက်များ

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

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

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

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