Bagaimana Mengosongkan Semua Folder "Item yang Dihapus" di Semua Akun Email Outlook Anda

Jika Anda telah mengonfigurasi beberapa akun email di Outlook Anda dan setiap akun menggunakan file data Outlook terpisah, Anda akan memiliki beberapa folder "Item yang Dihapus". Jika Anda ingin mengosongkan setiap folder "Item yang Dihapus" di setiap akun email, Anda dapat menggunakan potongan kode VBA di artikel ini. Ini memungkinkan Anda untuk mengosongkannya secara massal.

Seperti kita ketahui bersama, Outlook memungkinkan pengguna untuk menambah dan mengkonfigurasi beberapa akun email. Selain itu, jika setiap akun menggunakan file data Outlook individual, setiap file akan datang dengan folder "Item yang Dihapus", yang menyimpan item yang telah dihapus. Saat Anda mengonfirmasi bahwa item di semua folder "Item yang Dihapus" tidak berguna, Anda akan cenderung mengosongkan folder. Dalam kasus ini, jika Anda mengosongkannya secara manual, itu bisa sangat membosankan. Anda lebih baik menerapkan tip untuk mengosongkannya, seperti yang berikut ini.

Batch Kosongkan Semua Folder "Item yang Dihapus" di Semua Akun Email

1. Pertama-tama, luncurkan program Outlook Anda.
2. Kemudian tekan tombol "Alt + F11" di jendela utama Outlook.
3. Selanjutnya di jendela "Microsoft Visual Basic for Applications", Anda perlu membuka modul kosong.
4. Selanjutnya, salin dan tempel kode 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. Setelah itu, Anda harus memeriksa pengaturan makro Outlook Anda, memastikan bahwa makro diizinkan di Outlook Anda.
6. Akhirnya, Anda dapat kembali ke modul dan menekan tombol "F5" untuk menjalankan makro ini.
7. Setelah makro berjalan, Anda dapat melihat bahwa semua folder "Item yang Dihapus" telah berhasil dikosongkan.

Dalam Acara Korupsi Outlook

Pernahkah Anda mengalami kerusakan Outlook atau bahkan kerusakan Outlook? Secara umum, bagaimana Anda akan menangani kasus-kasus yang mengerikan? Jika Anda telah menggunakan Outlook selama beberapa dekade, tidak dapat dihindari untuk menemui berbagai masalah di Outlook Anda. Oleh karena itu, Anda sebaiknya menyimpan beberapa cara perbaikan dan pemulihan dalam pikiran Anda, seperti menggunakan alat perbaikan kotak masuk, mencadangkan data Outlook secara teratur, mendapatkan Perbaikan Outlook alat, dll. Dengan semua tindakan pencegahan ini, bahkan saat file PST Anda disusupi, Anda masih dapat tetap tenang dan dengan mudah menemukan kembali data Outlook Anda.

Pengantar Penulis:

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