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

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

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

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

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

Private Sub GetAllFolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get all the folders in a specific PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        Call MoveEmails(objFolder)
    Next
End Sub
 
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
    Dim objTargetFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
 
    'Get the specific destination folder
    'You can change it as per your case
    Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
 
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
    End If
 
    'Move each emails in the folder to the destination folder
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items.Item(i).Class = olMail Then
           Set objMail = objFolder.Items.Item(i)
           objMail.Move objTargetFolder
        End If
    Next i
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call MoveEmails(objSubFolder)
       Next
    End If
End Sub

5. ထို့နောက် သင်၏ Outlook မက်ခရိုလုံခြုံရေးအဆင့်ကို အနိမ့်သို့ပြောင်းပါ။
6. နောက်ဆုံးတွင် သင်သည် ကိရိယာဘားရှိ “Run” အိုင်ကွန်ကို နှိပ်ခြင်းဖြင့် သို့မဟုတ် “F5” ခလုတ်ကို နှိပ်ခြင်းဖြင့် သင်သည် မက်ခရိုအသစ်ကို လုပ်ဆောင်နိုင်သည်။
7. တစ်ချိန်တည်းတွင်၊ သီးခြားဖိုင်တွဲတစ်ခုရှိ ဖိုင်တွဲအားလုံး၏ အီးမေးလ်အားလုံးကို အစုလိုက်အစီအစဥ်ဖြင့် ကြိုတင်သတ်မှတ်ထားသော ဖိုဒါသို့ ရွှေ့သွားပါမည်။

သင်၏ PST ဒေတာကို အချိန်မီ ကယ်တင်ပါ။

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

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

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