Cara Batch Memindahkan Email dari Semua Subfolder dari Satu Folder ke Folder Lain di Outlook

Mungkin Anda memiliki folder di mana terdapat banyak subfolder. Jika Anda ingin mengatur ulang email di dalamnya, seperti memindahkan semua email dengan cepat dari subfolder ini ke folder tertentu, Anda dapat menggunakan cara yang dibagikan dalam artikel ini.

Terkadang, Anda mungkin perlu mengelompokkan email dari semua subfolder dari satu folder ke folder lain karena beberapa alasan, seperti Anda ingin mengklasifikasi ulang email, sehingga subfolder ini tidak berguna lagi. Dalam hal ini, memproses subfolder ini satu per satu cukup merepotkan. Oleh karena itu, di sini kami akan memperkenalkan Anda cara lain.

Batch Memindahkan Email dari Semua Subfolder dari Satu Folder ke Folder Lain

1. Pertama-tama, jalankan program Outlook Anda.
2. Kemudian, di layar Outlook utama, ketuk tombol "Alt + F11", yang akan membawa Anda ke editor VBA.
3. Selanjutnya, di jendela "Microsoft Visual Basic for Applications" yang baru, Anda perlu membuka modul yang tidak digunakan.
4. Selanjutnya, salin dan tempel kode 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. Setelah itu, Anda dapat menjalankan makro ini.

• Pertama, di jendela makro ini, tekan tombol tombol "F5".
• Kemudian, Anda akan diminta untuk memilih folder sumber yang subfoldernya akan diproses.
• Setelah itu, Anda perlu menentukan folder tujuan yang ingin Anda pindahkan email.
• Selanjutnya, makro ini akan mulai bekerja. Setelah selesai, Anda akan mendapatkan pesan yang bertuliskan “Selesai”.
• Pada akhirnya, Anda dapat mengakses folder target. Anda akan melihat bahwa semua email dari subfolder di bawah folder sumber telah berada di sana.

Pulihkan Data Outlook yang Disusupi

Meskipun memiliki banyak fitur, seperti klien email lainnya, Outlook juga tidak dapat lepas dari korupsi. Dengan semakin banyak data yang disimpan, Outlook akan semakin rentan terhadap kesalahan dan kerusakan. Karenanya, Anda perlu menyimpan alat perbaikan yang kuat, seperti DataNumen Outlook Repair. Ini dirancang khusus untuk perbaiki Outlook masalah. Dengan demikian, ia dapat memindai dan memulihkan file Outlook yang rusak dengan mudah.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datKanumen.com