Kuinka erä kerralla siirtää kaikki Outlook PST-tiedoston sähköpostit tiettyyn kansioon VBA: n kautta

Jos haluat siirtää kaikki PST-tiedoston sähköpostit tiettyyn kansioon toisessa PST-tiedostossa, voit käyttää tässä artikkelissa esitettyä menetelmää. Se opettaa sinulle, kuinka käyttää VBA: ta sen saamiseksi nopeasti.

Joskus joistakin syistä joudut ehkä joutumaan siirtämään kaikki tietyssä PST-tiedostossa olevat sähköpostit toisen PST-tiedoston tiettyyn kansioon. Tässä tapauksessa, jos teet sen manuaalisesti, se on kiistatta melko hankala. Siksi opetamme tässä nopean menetelmän, joka käyttää VBA: ta silmukkaamaan kaikki tietyn PST-tiedoston kansiot ja siirtämään jokaisen sähköpostin tiettyyn kansioon. Lue tarkat vaiheet ja koodit.

Erä Siirrä kaikki Outlook PST-tiedoston sähköpostit tiettyyn kansioon

1. Käynnistä Outlook-sovellus heti alusta.
2. Sitten voit siirtyä Kehittäjä-välilehdelle ja napsauttaa Visual Basic -painiketta. Tai paina “Alt + F11” -näppäinten pikanäppäimiä.
3. Tämän jälkeen avaa VBA-ponnahdusikkunan ponnahdusikkunassa ei-käytössä-moduuli tai lisää uusi suoraan.
4. Seuraavaksi kopioi ja liitä seuraavat VBA-koodit tähän moduuliin.

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. Muuta sen jälkeen Outlookin makrotason suojaustaso matalaksi.
6. Lopulta voit suorittaa uuden makron napsauttamalla työkalupalkin "Suorita" -kuvaketta tai painamalla "F5" -näppäintä.
7. Samalla kaikki tietyn kansion kaikkien kansioiden sähköpostit siirretään ennalta määritettyyn kansioon erissä.

Pelasta PST-tietosi ajoissa

Jos valitettavasti kärsit PST-vauriot, mitä teet sitten? Ensinnäkin sinun on palautettava vaarantuneet PST-tiedot mahdollisimman pian. Kuten tavallista, yksinkertaisin tapa on palauttaa ajan tasalla olevasta varmuuskopiosta. Jos tietojen varmuuskopiointi on useita viikkoja vanha, se voi kuitenkin olla hyödytöntä. Tässä tapauksessa sinulla ei ole muuta vaihtoehtoa kuin palata tehokkaaseen palautustyökaluun, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com