Sähköpostien erän siirtäminen yhden kansion kaikista alikansioista toiseen kansioon Outlookissa

Ehkä sinulla on kansio, jonka alla on useita alikansioita. Jos haluat järjestää niissä olevat sähköpostit uudelleen, esimerkiksi siirtää kaikki sähköpostit nopeasti näistä alikansioista tiettyyn kansioon, voit käyttää tässä artikkelissa jaettua tapaa.

Joskus saatat joutua siirtämään sähköpostit kansion kaikista alikansioista toiseen kansioon jostain syystä, esimerkiksi jos haluat luokitella sähköpostit uudelleen, joten näistä alikansioista ei ole enää hyötyä. Tässä tapauksessa näiden alikansioiden käsittely yksitellen on melko hankalaa. Siksi tässä esittelemme sinulle toisen tavan.

Eräsiirtosähköpostit yhden kansion kaikista alikansioista toiseen kansioon

1. Käynnistä Outlook-ohjelmasi aivan aluksi.
2. Napauta sitten Outlookin päänäytössä "Alt + F11" -näppäinpainikkeita, jotka vievät sinut VBA-editoriin.
3. Seuraavaksi sinun on avattava uudessa "Microsoft Visual Basic for Applications" -ikkunassa moduuli, joka ei ole käytössä.
4. Kopioi ja liitä seuraava VBA-koodi tähän moduuliin.

Dim objTargetFolder As Outlook.folder

Sub BatchMoveEmailsFromSubfoldersToAnotherFolder()
    Dim objSourceFolder As Outlook.folder
    Dim objFolder As Outlook.folder
  
    'Get the source folder whose subfolders to be processed
    Set objSourceFolder = Application.Session.PickFolder
 
    If Not (objSourceFolder Is Nothing) And objSourceFolder.DefaultItemType = olMailItem Then
       If objSourceFolder.folders.count > 0 Then
          'Select a target folder
          Set objTargetFolder = Application.Session.PickFolder
          If Not (objTargetFolder Is Nothing) Then
             For Each objFolder In objSourceFolder.folders
                 Call ProcessFolders(objFolder)
             Next
             MsgBox "Move Completed!", vbExclamation
          End If
       Else
          MsgBox "No subfolders!", vbExclamation
       End If
    End If
End Sub

Sub ProcessFolders(ByVal objFolder As Outlook.folder)
    Dim i As Long
    Dim objSubfolder As Outlook.folder
 
    For i = objFolder.Items.count To 1 Step -1
        'Move emails to the target folder
        If objFolder.Items(i).Class = olMail Then
           objFolder.Items(i).Move objTargetFolder
        End If
    Next
 
    'Process subfolders recursively
    If objFolder.folders.count > 0 Then
       For Each objSubfolder In objFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Sen jälkeen voit suorittaa tämän makron.

• Ensin tässä makroikkunassa paina "F5"-näppäintä.
• Sitten sinun on valittava lähdekansio, jonka alikansiot käsitellään.
• Tämän jälkeen sinun on määritettävä kohdekansio, johon haluat siirtää sähköpostit.
• Tämän jälkeen tämä makro alkaa toimia. Kun se on valmis, saat viestin, jossa lukee ”Valmis”.
• Lopulta pääset kohdekansioon. Näet, että kaikki lähdekansion alikansioiden sähköpostit ovat siellä.

Palauta vaarantuneet Outlook-tiedot

Huolimatta lukuisista ominaisuuksista, kuten muista sähköpostiohjelmista, Outlook ei silti voi paeta korruptiota. Kun tietoja tallennetaan yhä enemmän, Outlook on yhä alttiimpi virheille ja vaurioille. Siksi sinun on pidettävä tehokas korjaustyökalu kätevästi, kuten DataNumen Outlook Repair. Se on erityisesti suunniteltu korjaa Outlook ongelmia. Siten se voi skannata ja palauttaa vioittuneet Outlook-tiedostot vaivattomasti.

Tekijän esittely:

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