Kaip paketu perkelti el. laiškus iš visų vieno aplanko poaplankių į kitą aplanką programoje „Outlook“.

Galbūt turite aplanką, kuriame yra daug poaplankių. Jei norite pertvarkyti juose esančius el. laiškus, pvz., greitai perkelti visus el. laiškus iš šių poaplankių į konkretų aplanką, galite naudoti šiame straipsnyje aprašytą būdą.

Kartais dėl tam tikrų priežasčių gali tekti perkelti el. laiškus iš visų vieno aplanko poaplankių į kitą aplanką, pvz., norint iš naujo klasifikuoti el. laiškus, todėl šie poaplankiai nebebus naudingi. Šiuo atveju šių poaplankių apdorojimas po vieną yra gana varginantis. Todėl čia pristatysime dar vieną būdą.

Pakeiskite el. laiškus iš visų vieno aplanko poaplankių į kitą aplanką

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ ekrane bakstelėkite „Alt + F11“ klavišų mygtukus, kurie nukreips jus į VBA redaktorių.
3. Tada naujame lange „Microsoft Visual Basic for Applications“ turite atidaryti nenaudojamą modulį.
4. Tada nukopijuokite ir įklijuokite šį VBA kodą į šį modulį.

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. Po to galite paleisti šią makrokomandą.

• Pirmiausia šiame makrokomandos lange paspauskite klavišo „F5“ mygtuką.
• Tada turėsite pasirinkti šaltinio aplanką, kurio poaplankius reikia apdoroti.
• Po to turite nurodyti paskirties aplanką, į kurį norite perkelti el.
• Vėliau ši makrokomanda pradės veikti. Jai pasibaigus, gausite pranešimą „Užbaigta“.
• Galiausiai galite pasiekti tikslinį aplanką. Pamatysite, kad visi el. laiškai iš šaltinio aplanko poaplankių buvo ten.

Atkurkite pažeistus „Outlook“ duomenis

Nepaisant daugybės funkcijų, kaip ir kitos el. pašto programos, „Outlook“ vis tiek negali išvengti korupcijos. Saugoma vis daugiau duomenų, „Outlook“ bus vis labiau linkusi į klaidas ir žalą. Vadinasi, po ranka turite turėti galingą remonto įrankį, pvz DataNumen Outlook Repair. Jis specialiai sukurtas pataisyti Outlook Problemos. Taigi jis gali lengvai nuskaityti ir atkurti sugadintą „Outlook“ failą.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite www.datKanumen.com