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

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

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

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

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

Dim objTargetFolder As Outlook.folder

Sub BatchMoveEmailsFromSubfoldersToAnotherFolder()
    Dim objSourceFolder As Outlook.folder
    Dim objFolder As Outlook.folder
  
    'Get the source folder whose subfolders to be processed
    Set objSourceFolder = Application.Session.PickFolder
 
    If Not (objSourceFolder Is Nothing) And objSourceFolder.DefaultItemType = olMailItem Then
       If objSourceFolder.folders.count > 0 Then
          'Select a target folder
          Set objTargetFolder = Application.Session.PickFolder
          If Not (objTargetFolder Is Nothing) Then
             For Each objFolder In objSourceFolder.folders
                 Call ProcessFolders(objFolder)
             Next
             MsgBox "Move Completed!", vbExclamation
          End If
       Else
          MsgBox "No subfolders!", vbExclamation
       End If
    End If
End Sub

Sub ProcessFolders(ByVal objFolder As Outlook.folder)
    Dim i As Long
    Dim objSubfolder As Outlook.folder
 
    For i = objFolder.Items.count To 1 Step -1
        'Move emails to the target folder
        If objFolder.Items(i).Class = olMail Then
           objFolder.Items(i).Move objTargetFolder
        End If
    Next
 
    'Process subfolders recursively
    If objFolder.folders.count > 0 Then
       For Each objSubfolder In objFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. ၎င်းနောက်၊ သင်သည်ဤ macro ကို run နိုင်သည်။

• ပထမဦးစွာ ဤမက်ခရိုဝင်းဒိုးတွင် “F5” ခလုတ်ခလုတ်ကို နှိပ်ပါ။
• ထို့နောက်၊ စီမံဆောင်ရွက်ရမည့် ဖိုင်တွဲခွဲများ၏ အရင်းအမြစ်ဖိုင်တွဲကို သင်ရွေးချယ်ရန် လိုအပ်မည်ဖြစ်သည်။
• ၎င်းနောက်၊ သင်သည် အီးမေးလ်များကို ရွှေ့လိုသည့် ဦးတည်ရာ ဖိုင်တွဲကို သတ်မှတ်ရန် လိုအပ်သည်။
• ထို့နောက် ဤမက်ခရိုသည် စတင်အလုပ်လုပ်ပါလိမ့်မည်။ ၎င်းပြီးဆုံးသွားသောအခါ “ပြီးစီး” ဟု ඉදිරියට යටත්သော မက်ဆေ့ချ်တစ်ခု ရရှိမည်ဖြစ်သည်။
• နောက်ဆုံးတွင်၊ သင်သည် target folder ကို ဝင်ရောက်ကြည့်ရှုနိုင်ပါသည်။ source folder အောက်ရှိ subfolder များမှ အီးမေးလ်များအားလုံး ထိုနေရာတွင် ရှိနေသည်ကို သင်တွေ့ရပါလိမ့်မည်။

ခိုးယူခံရသော Outlook ဒေတာကို ပြန်ယူပါ။

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

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

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