Cara Batch Kosongkan Semua Folder "Item yang Dihapus" di Semua Akaun E-mel Outlook Anda

Sekiranya anda telah mengkonfigurasi beberapa akaun e-mel di Outlook dan setiap akaun menggunakan fail data Outlook yang berasingan, anda akan mempunyai beberapa folder "Item yang Dihapus". Apabila anda ingin mengosongkan setiap folder "Item Dihapus" di setiap akaun e-mel, anda boleh menggunakan potongan kod VBA dalam artikel ini. Ini membolehkan anda mengosongkannya secara pukal.

Seperti yang kita semua tahu, Outlook membolehkan pengguna menambah dan mengkonfigurasi beberapa akaun e-mel. Selain itu, jika setiap akun menggunakan file data Outlook individual, setiap file akan dilengkapi dengan folder "Item yang Dihapus", yang menyimpan item telah dihapus. Apabila anda mengesahkan bahawa item dalam semua folder "Item Dihapus" tidak berguna, anda cenderung mengosongkan folder. Dalam kes ini, jika anda mengosongkannya secara manual, ia akan menjadi sangat membosankan. Sebaiknya gunakan petua untuk mengosongkannya, seperti yang berikut.

Kumpulan Kosongkan Semua Folder "Item yang Dihapus" di Semua Akaun E-mel

1. Pada awalnya, lancarkan program Outlook anda.
2. Kemudian tekan butang kekunci "Alt + F11" di tetingkap Outlook utama.
3. Selanjutnya di tetingkap "Microsoft Visual Basic for Applications", anda perlu membuka modul kosong.
4. Selepas itu, salin dan tampal kod VBA berikut ke dalam modul ini.

Sub BatchEmptyAllDeletedItemsFolder()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object
 
    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim i, n As Long
 
    If objCurrentFolder.Name = "Deleted Items" Then
       'Delete all the items in "Deleted Items" folder
       For i = objCurrentFolder.Items.Count To 1 Step -1
           objCurrentFolder.Items.Item(i).Delete
 
           'Delete all the subfolders under "Deleted Items" folder
           For n = objCurrentFolder.folders.Count To 1 Step -1
               objCurrentFolder.folders.Item(n).Delete
           Next
       Next
    End If
End Sub

5. Selepas itu, anda harus memeriksa tetapan makro Outlook anda, memastikan bahawa makro dibenarkan di Outlook anda.
6. Akhirnya, anda boleh kembali ke modul dan tekan butang "F5" untuk menjalankan makro ini.
7. Setelah makro berjalan, anda dapat melihat bahawa semua folder "Item Dihapus" berjaya dikosongkan.

Sekiranya Berlaku Kerosakan Outlook

Adakah anda pernah mengalami kerosakan Outlook atau bahkan kerosakan Outlook? Secara umum, bagaimana anda akan menangani kes-kes yang mengerikan itu? Sekiranya anda telah menggunakan Outlook selama beberapa dekad, tidak dapat dielakkan untuk menghadapi pelbagai masalah dalam Outlook anda. Oleh itu, anda lebih baik menyimpan beberapa kaedah pembaikan dan pemulihan dalam fikiran anda, seperti menggunakan alat pembaikan peti masuk, menyandarkan data Outlook secara berkala, mendapatkan maklumat Pembaikan Outlook alat, dll. Dengan semua langkah berjaga-jaga ini, walaupun fail PST anda terganggu, anda masih boleh bertenang dan mencari kembali data Outlook anda dengan mudah.

Pengenalan Pengarang:

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