Ako je možné hromadne presunúť všetky e-maily v súbore Outlook PST do konkrétneho priečinka pomocou VBA

Ak chcete presunúť všetky e-maily v súbore PST do konkrétneho priečinka v inom súbore PST, môžete použiť metódu uvedenú v tomto článku. Naučí vás, ako používať VBA na rýchle získanie.

Niekedy z niektorých dôvodov možno budete musieť presunúť všetky e-maily v konkrétnom súbore PST do konkrétneho priečinka v inom súbore PST. V takom prípade, ak to urobíte manuálne, bude to nepochybne dosť nepríjemné. Preto tu naučíme rýchlu metódu, ktorá pomocou VBA vytvorí slučku cez všetky priečinky v určitom súbore PST a presunie každý e-mail do konkrétneho priečinka. Čítajte ďalej a dosiahnite prepracované kroky a kódy.

Dávkové presunutie všetkých e-mailov v súbore PST programu Outlook do konkrétneho priečinka

1. Hneď na začiatku spustite aplikáciu Outlook.
2. Potom môžete prepnúť na kartu „Vývojár“ a kliknúť na tlačidlo „Visual Basic“. Alebo stlačte klávesové skratky „Alt + F11“.
3. Následne v kontextovom okne editora VBA otvorte nepoužívaný modul alebo rovno vložte nový.
4. Ďalej skopírujte a vložte nasledujúce kódy VBA do tohto 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. Potom zmeňte úroveň zabezpečenia makra programu Outlook na nízku.
6. Nové makro môžete prípadne spustiť kliknutím na ikonu „Spustiť“ na paneli nástrojov alebo stlačením klávesu „F5“.
7. Naraz budú všetky e-maily všetkých priečinkov v konkrétnom priečinku presunuté do vopred určeného priečinka v dávkach.

Zachráňte svoje údaje PST v čase

Ak bohužiaľ trpíš Poškodenie PST, čo potom urobíš? Všeobecne platí, že vašou prvou myšlienkou musí byť čo najskôr získať späť napadnuté údaje PST. Najjednoduchším spôsobom je ako obvykle obnova z aktuálnej zálohy údajov. Ak je však zálohovanie dát staré niekoľko týždňov, môže to byť zbytočné. V takom prípade vám nezostáva nič iné, ako sa vrátiť k silnému nástroju na zotavenie, ako je napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane mdf opraviť a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S