Cara Batch Pindahkan E-mel dari Semua Subfolder Satu Folder ke Folder Lain di Outlook

Mungkin anda mempunyai folder di mana terdapat banyak subfolder. Sekiranya anda ingin menyusun semula e-mel di dalamnya, seperti memindahkan semua e-mel dari subfolder ini ke folder tertentu dengan cepat, anda boleh menggunakan cara yang dikongsi dalam artikel ini.

Kadang kala, anda mungkin perlu memindahkan e-mel secara besar-besaran dari semua subfolder dari satu folder ke folder lain kerana beberapa sebab, seperti anda ingin mengelaskan semula e-mel, jadi subfolder ini tidak lagi berguna. Dalam kes ini, memproses subfolder ini satu demi satu agak menyusahkan. Oleh itu, di sini kami akan memperkenalkan anda dengan cara lain.

Batch Pindah Emel dari Semua Subfolder Satu Folder ke Folder Lain

1. Pada mulanya, mulakan program Outlook anda.
2. Kemudian, di layar Outlook utama, ketuk butang kunci "Alt + F11", yang akan membawa anda ke editor VBA.
3. Selanjutnya, di tetingkap "Microsoft Visual Basic for Applications" yang baru, anda perlu membuka modul yang tidak digunakan.
4. Selepas itu, salin dan tampal kod VBA berikut ke dalam modul ini.

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. Selepas itu, anda boleh menjalankan makro ini.

• Pertama, di tetingkap makro ini, tekan butang kekunci "F5".
• Kemudian, anda akan diminta untuk memilih folder sumber yang subfoldernya akan diproses.
• Selepas itu, anda perlu menentukan folder tujuan yang ingin anda pindahkan e-mel.
• Seterusnya, makro ini akan mula berfungsi. Apabila ia selesai, anda akan mendapat mesej yang meminta "Selesai".
• Akhirnya, anda boleh mengakses folder sasaran. Anda akan melihat bahawa semua e-mel subfolder di bawah folder sumber berada di sana.

Pulihkan Data Outlook yang Berkompromi

Walaupun mempunyai banyak ciri, seperti pelanggan e-mel lain, Outlook masih tidak dapat lari dari rasuah. Dengan semakin banyak data yang tersimpan, Outlook akan semakin terdedah kepada kesilapan dan kerosakan. Oleh itu, anda perlu menyimpan alat pembaikan yang kuat seperti DataNumen Outlook Repair. Ia direka khas untuk betulkan Outlook isu. Dengan itu, ia dapat mengimbas dan memulihkan fail Outlook yang rosak dengan mudah.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datKanumen.com