Kaip paketu perkelti visus el. laiškus Outlook PST faile į konkretų aplanką per VBA

Jei norite perkelti visus el. laiškus PST faile į konkretų aplanką kitame PST faile, galite naudoti šiame straipsnyje aprašytą metodą. Jis išmokys jus naudoti VBA, kad greitai jį gautumėte.

Kartais dėl tam tikrų priežasčių gali tekti perkelti visus konkrečiame PST faile esančius el. laiškus į konkretų kito PST failo aplanką. Tokiu atveju, jei tai padarysite rankiniu būdu, tai neabejotinai bus gana varginanti. Todėl čia mes išmokysime greitą metodą, kuris naudos VBA, kad peržiūrėtų visus tam tikro PST failo aplankus ir perkeltų kiekvieną el. laišką į konkretų aplanką. Skaitykite toliau, kad atliktumėte sudėtingus veiksmus ir kodus.

Paketas perkelkite visus el. laiškus Outlook PST faile į konkretų aplanką

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada galite pereiti į skirtuką „Kūrėjas“ ir spustelėti mygtuką „Visual Basic“. Arba paspauskite „Alt + F11“ sparčiuosius klavišus.
3. Tada iššokančiajame VBA redaktoriaus lange atidarykite nenaudojamą modulį arba tiesiai įdėkite naują.
4. Tada nukopijuokite ir įklijuokite šiuos VBA kodus į šį modulį.

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. Po to pakeiskite „Outlook“ makrokomandos saugos lygį į žemą.
6. Galų gale galite paleisti naują makrokomandą spustelėdami piktogramą "Vykdyti" įrankių juostoje arba paspausdami klavišą "F5".
7. Vienu metu visi konkretaus aplanko aplankų el. laiškai bus perkelti į iš anksto nustatytą aplanką grupėmis.

Išsaugokite savo PST duomenis laiku

Jei, deja, kenčiate PST žala, ką tada darysi? Apskritai, jūsų pirmoji mintis turi kuo greičiau susigrąžinti pažeistus PST duomenis. Kaip įprasta, paprasčiausias būdas yra atkurti iš naujausios duomenų atsarginės kopijos. Tačiau jei atsarginė duomenų kopija yra kelių savaičių senumo, ji gali būti nenaudinga. Tokiu atveju jūs neturite kito pasirinkimo, kaip tik pakartotinai naudoti galingą atkūrimo įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com