Kuidas teisaldada e-kirjad ühe kausta kõigist alamkaustadest teise Outlooki kausta

Võib-olla on teil kaust, mille all on palju alamkaustu. Kui soovite neis olevaid e-kirju ümber korraldada, näiteks teisaldada kõik meilid kiiresti nendest alamkaustadest kindlasse kausta, võite kasutada selles artiklis kirjeldatud viisi.

Mõnikord peate võib-olla mõnel põhjusel e-kirjad ühe kausta kõigist alamkaustadest teise kausta teisaldama, näiteks kui soovite e-kirju ümber klassifitseerida, nii et need alamkaustad pole enam kasulikud. Sel juhul on nende alamkaustade ükshaaval töötlemine üsna tülikas. Seetõttu tutvustame siin teist viisi.

Teisaldage e-kirjad ühe kausta kõigist alamkaustadest teise kausta

1. Alguses käivitage oma Outlooki programm.
2. Seejärel puudutage Outlooki põhikuval klahvi "Alt + F11", mis viib teid VBA redaktorisse.
3. Järgmisena peate uues aknas "Microsoft Visual Basic for Applications" avama mooduli, mida ei kasutata.
4. Seejärel kopeerige ja kleepige sellesse moodulisse järgmine VBA kood.

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. Pärast seda saate seda makrot käivitada.

• Kõigepealt vajutage selles makroaknas klahvi "F5".
• Seejärel peate valima lähtekausta, mille alamkaustu töödeldakse.
• Pärast seda peate määrama sihtkausta, kuhu soovite meilid teisaldada.
• Seejärel hakkab see makro tööle. Kui see on lõpule viidud, kuvatakse teade „Valmis“.
• Lõpuks pääsete ligi sihtkaustale. Näete, et kõik lähtekausta alamkaustade meilid on sinna üle läinud.

Ohustatud Outlooki andmete taastamine

Vaatamata paljudele funktsioonidele, nagu ka teistele meiliklientidele, ei pääse Outlook siiski ka korruptsioonist. Kuna andmeid salvestatakse üha rohkem, on Outlookis üha enam vigu ja kahjustusi. Seetõttu peate käepärast hoidma tugevat remonditööriista, näiteks DataNumen Outlook Repair. See on spetsiaalselt ette nähtud parandada Outlook probleeme. Seega saab see hõlpsasti skannida ja taastada kahjustatud Outlooki faili.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datKanumen.com