Bagaimana Menandai Semua Email Sebagai Sudah Dibaca di Semua Folder Outlook dengan VBA

Beberapa pengguna merindukan solusi untuk menandai semua email sebagai telah dibaca di semua folder Outlook. Pada artikel ini, kami akan memperkenalkan metode seperti itu kepada Anda.  

Seperti yang kita semua ketahui, mudah untuk menandai semua email di folder sebagai telah dibaca. Cukup pilih dan klik kanan pada folder tersebut dan kemudian pilih opsi "Tandai semua sebagai telah dibaca" di menu konteks. Namun jika ada beberapa folder yang memiliki email yang belum terbaca, maka cara diatas harus anda lakukan pada folder tersebut satu per satu. Itu terlalu merepotkan. Karenanya, di sini kami akan membagikan kepada Anda cara yang jauh lebih efisien, yang akan memungkinkan Anda merealisasikannya secara massal.

Tandai Batch Semua Email sebagai Dibaca di Semua Folder Outlook

1. Pertama-tama, luncurkan aplikasi Outlook.
2. Kemudian, tekan "Alt + F11" untuk mengakses editor Outlook VBA.
3. Selanjutnya, di jendela "Microsoft Visual Basic for Applications", salin kode di bawah ini ke modul yang tidak digunakan.

Sub MarkAllItemsAsRead()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process all Outlook files
    Set objStores = Outlook.Application.Session.Stores
  
    For Each objStore In objStores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            'Process mail folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objUnreadItems As Outlook.Items
    Dim i As Integer
    Dim objItem As Object
    Dim objSubFolder As Outlook.Folder
 
    Set objUnreadItems = objCurFolder.Items.Restrict("[Unread]=True")
 
    'Mark all unread emails as read
    For i = 1 To objUnreadItems.Count
        Set objItem = objUnreadItems.Item(i)
        objItem.UnRead = False
        objItem.Save
    Next
 
    'Process subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubFolder In objCurFolder.Folders
           Call ProcessFolders(objSubFolder)
       Next
    End If
End Sub

4. Setelah itu, letakkan kursor di subrutin pertama.
5. Selanjutnya, tekan tombol "F5" atau klik ikon "Run" pada toolbar.
6. Akhirnya, setelah makro selesai, Anda bisa kembali ke daftar folder email.
7. Di sana, Anda akan melihat bahwa semua email yang belum dibaca telah ditandai sebagai telah dibaca, seperti yang ditunjukkan pada tangkapan layar.

Keluar dari Kehilangan Data Outlook yang Menyedihkan

Pengguna mungkin telah menerima fakta bahwa dokumen Word dan buku kerja Excel dapat dengan mudah rusak. Faktanya, mirip dengan file-file ini, file data Outlook juga rentan terhadap kerusakan. Karenanya, jika Anda enggan mengalaminya, Anda harus mengambil beberapa tindakan. Ini harus mencakup tindakan pencegahan, seperti pencadangan biasa dan pemblokiran semua malware atau virus, dan beberapa tindakan bantuan, seperti mengetahui cara meluncurkan alat perbaikan kotak masuk, scanpst dan mempertahankan alat perbaikan eksternal yang kuat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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