Cara Batch Pindahkan Semua E-mel dalam Fail PST Outlook ke Folder Tertentu melalui VBA

Sekiranya anda ingin memindahkan semua e-mel dalam fail PST ke folder tertentu dalam fail PST lain, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini. Ini akan mengajar anda bagaimana menggunakan VBA untuk mendapatkannya dengan cepat.

Kadang-kadang, atas beberapa sebab, anda mungkin perlu memindahkan semua e-mel dalam fail PST tertentu ke folder tertentu dalam fail PST lain. Dalam kes ini, jika anda melakukannya secara manual, pasti akan menyusahkan. Oleh itu, di sini kita akan mengajarkan kaedah cepat, yang akan menggunakan VBA untuk melingkari semua folder dalam fail PST tertentu dan memindahkan setiap e-mel ke folder tertentu. Teruskan membaca untuk mencapai langkah dan kod yang terperinci.

Batch Pindahkan Semua E-mel dalam Fail PST Outlook ke Folder Tertentu

1. Pada awalnya, lancarkan aplikasi Outlook anda.
2. Kemudian anda boleh beralih ke tab "Pembangun" dan klik pada butang "Visual Basic". Atau tekan pintasan kekunci "Alt + F11".
3. Selepas itu, di tetingkap editor VBA pop timbul, buka modul yang tidak digunakan atau masukkan yang baru secara langsung.
4. Selanjutnya salin dan tampal kod 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. Selepas itu, ubah tahap keselamatan makro Outlook anda menjadi rendah.
6. Akhirnya anda dapat menjalankan makro baru dengan mengklik ikon "Jalankan" di bar alat atau tekan kekunci "F5".
7. Sekaligus, semua e-mel semua folder dalam folder tertentu akan dipindahkan ke folder yang telah ditentukan secara berkelompok.

Selamatkan Data PST Anda dalam Masa

Sekiranya anda menderita Kerosakan PST, apa yang akan anda lakukan kemudian? Secara umum, pemikiran pertama anda mesti mendapatkan kembali data PST yang dikompromikan secepat mungkin. Seperti biasa, kaedah paling mudah adalah memulihkan dari sandaran data terkini. Walau bagaimanapun, jika sandaran data berusia beberapa minggu, ia mungkin tidak berguna. Dalam kes ini, anda tidak mempunyai pilihan selain menggunakan alat pemulihan yang kuat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

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