Jak hromadně přesouvat všechny e-maily v souboru PST aplikace Outlook do konkrétní složky pomocí VBA

Pokud chcete přesunout všechny e-maily v souboru PST do konkrétní složky v jiném souboru PST, můžete použít metodu uvedenou v tomto článku. Naučí vás, jak používat VBA k jeho rychlému získání.

Někdy z některých důvodů možná budete muset přesunout všechny e-maily v konkrétním souboru PST do konkrétní složky v jiném souboru PST. V tomto případě, pokud to uděláte ručně, to bude nepochybně docela problematické. Proto zde naučíme rychlou metodu, která pomocí VBA provede smyčku ve všech složkách v určitém souboru PST a přesune každý e-mail do konkrétní složky. Čtěte dále, abyste dosáhli komplikovaných kroků a kódů.

Dávkové přesunutí všech e-mailů v souboru PST aplikace Outlook do konkrétní složky

1. Hned na začátku spusťte aplikaci Outlook.
2. Poté můžete přepnout na kartu „Vývojář“ a kliknout na tlačítko „Visual Basic“. Nebo stiskněte klávesové zkratky „Alt + F11“.
3. Následně v rozevíracím okně editoru VBA otevřete nepoužívaný modul nebo přímo vložte nový.
4. Dále zkopírujte a vložte následující kódy VBA do tohoto modulu.

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. Poté změňte úroveň zabezpečení maker aplikace Outlook na nízkou.
6. Nové makro můžete případně spustit kliknutím na ikonu „Spustit“ na panelu nástrojů nebo stisknutím klávesy „F5“.
7. Najednou budou všechny e-maily všech složek v konkrétní složce přesunuty do předem určené složky v dávkách.

Zachraňte svá data PST včas

Pokud bohužel trpíte Poškození PSTco tedy uděláš? Obecně platí, že vaše první myšlenka musí co nejdříve získat zpět kompromitovaná data PST. Nejjednodušším způsobem je jako obvykle obnova z aktuální zálohy dat. Pokud je však záloha dat stará několik týdnů, může to být k ničemu. V takovém případě vám nezbývá než se vrátit k účinnému nástroji pro obnovení, jako je například DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně mdf opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com