Kako skupno premjestiti sve poruke e-pošte u Outlook PST datoteci u određenu mapu putem VBA

Ako želite premjestiti sve poruke e-pošte u PST datoteci u određenu mapu u drugoj PST datoteci, možete upotrijebiti metodu predstavljenu u ovom članku. Naučit ćete kako koristiti VBA da biste ga brzo dobili.

Ponekad, iz nekih razloga, možda ćete morati premjestiti sve poruke e-pošte u određenoj PST datoteci u određenu mapu u drugoj PST datoteci. U ovom slučaju, ako to učinite ručno, bit će nesumnjivo prilično problematično. Stoga ćemo ovdje podučiti brzu metodu koja će koristiti VBA za prolazak kroz sve mape u određenoj PST datoteci i premještanje svake e-pošte u određenu mapu. Čitajte dalje kako biste postigli razrađene korake i kodove.

Skupno premjestite sve poruke e-pošte u Outlook PST datoteci u određenu mapu

1. Na samom početku pokrenite svoju Outlook aplikaciju.
2. Zatim se možete prebaciti na karticu "Developer" i kliknuti na gumb "Visual Basic". Ili pritisnite tipke prečaca "Alt + F11".
3. Nakon toga, u skočnom prozoru uređivača VBA otvorite modul koji se ne koristi ili izravno umetnite novi.
4. Zatim kopirajte i zalijepite sljedeće VBA kodove u ovaj 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. Nakon toga promijenite razinu sigurnosti Outlook makroa na nisku.
6. Na kraju možete pokrenuti novu makronaredbu klikom na ikonu "Pokreni" na alatnoj traci ili pritiskom na tipku "F5".
7. Odjednom će se sve e-poruke svih mapa u određenoj mapi premjestiti u unaprijed određene mape u serijama.

Spasite svoje PST podatke na vrijeme

Ako nažalost patite PST oštećenje, što ćeš onda učiniti? Općenito, vaša prva pomisao mora što je prije moguće vratiti ugrožene PST podatke. Kao i obično, najjednostavniji način je vratiti iz ažurirane sigurnosne kopije podataka. Međutim, ako je sigurnosna kopija podataka stara nekoliko tjedana, može biti beskorisna. U ovom slučaju, nemate drugog izbora nego se vratiti moćnom alatu za oporavak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com