Cara Batch Memindahkan Semua Email di File Outlook PST ke Folder Tertentu melalui VBA

Jika Anda ingin memindahkan semua email dalam file PST ke folder tertentu di file PST lain, Anda dapat menggunakan metode yang diperkenalkan di artikel ini. Ini akan mengajari Anda cara menggunakan VBA untuk mendapatkannya dengan cepat.

Terkadang, karena alasan tertentu, Anda mungkin perlu memindahkan semua email di file PST tertentu ke folder tertentu di file PST lain. Dalam hal ini, jika Anda melakukannya secara manual, pasti akan sangat merepotkan. Oleh karena itu, di sini kami akan mengajarkan metode cepat, yang akan menggunakan VBA untuk menelusuri semua folder dalam file PST tertentu dan memindahkan setiap email ke folder tertentu. Baca terus untuk mendapatkan langkah dan kode yang rumit.

Batch Pindahkan Semua Email di File Outlook PST ke Folder Tertentu

1. Pertama-tama, luncurkan aplikasi Outlook Anda.
2. Kemudian Anda dapat beralih ke tab "Pengembang" dan klik tombol "Visual Basic". Atau tekan pintasan tombol "Alt + F11".
3. Selanjutnya, di jendela editor popup VBA, buka modul yang tidak digunakan atau langsung masukkan yang baru.
4. Selanjutnya salin dan tempel kode VBA berikut ke dalam modul ini.

Private Sub GetAllFolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get all the folders in a specific PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        Call MoveEmails(objFolder)
    Next
End Sub
 
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
    Dim objTargetFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
 
    'Get the specific destination folder
    'You can change it as per your case
    Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
 
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
    End If
 
    'Move each emails in the folder to the destination folder
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items.Item(i).Class = olMail Then
           Set objMail = objFolder.Items.Item(i)
           objMail.Move objTargetFolder
        End If
    Next i
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call MoveEmails(objSubFolder)
       Next
    End If
End Sub

5. Setelah itu, ubah tingkat keamanan makro Outlook Anda ke rendah.
6. Akhirnya Anda dapat menjalankan makro baru dengan mengklik ikon "Jalankan" di bilah alat atau tekan tombol "F5".
7. Sekaligus, semua email dari semua folder di folder tertentu akan dipindahkan ke folder yang telah ditentukan secara berkelompok.

Selamatkan Data PST Anda Tepat Waktu

Jika Anda sayangnya menderita Kerusakan PST, Apa yang akan anda lakukan selanjutnya? Secara umum, pikiran pertama Anda harus mendapatkan kembali data PST yang dikompromikan sesegera mungkin. Seperti biasa, cara paling sederhana adalah memulihkan dari cadangan data terbaru. Namun, jika cadangan data berumur beberapa minggu, mungkin tidak berguna. Dalam hal ini, Anda tidak punya pilihan selain menggunakan alat pemulihan yang ampuh, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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