Paano Batch Markahan ang Lahat ng mga Email bilang Basahin sa Lahat ng Mga Folder ng Outlook na may VBA

Maramihang mga gumagamit ang naghahangad ng isang solusyon sa batch na markahan ang lahat ng mga email bilang nabasa na sa lahat ng mga folder ng Outlook. Sa artikulong ito, ipakikilala namin sa iyo ang gayong pamamaraan.  

Tulad ng alam nating lahat, madaling markahan ang lahat ng mga mail sa isang folder tulad ng nabasa na. Piliin lamang at mag-right click sa folder at pagkatapos ay piliin ang pagpipiliang "Markahan lahat bilang nabasa" sa menu ng konteksto. Gayunpaman, kung maraming mga folder na hindi pa nababasa ang mga email, sa pamamagitan ng nasa itaas na paraan, kailangan mong isagawa ang mga folder nang paisa-isa. Ito ay masyadong mahirap. Samakatuwid, dito ibabahagi namin sa iyo ang isang mas mahusay na paraan, na magbibigay-daan sa iyo upang mapagtanto ito nang maramihan.

Batch Markahan ang Lahat ng mga Email bilang Basahin sa Lahat ng Mga Folder ng Outlook

1. Upang magsimula, ilunsad ang application ng Outlook.
2. Pagkatapos, pindutin ang "Alt + F11" upang ma-access ang editor ng VBA ng Outlook.
3. Susunod, sa window na "Microsoft Visual Basic for Applications", kopyahin ang code sa ibaba sa isang hindi nagamit na module.

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. Pagkatapos, ilagay ang cursor sa unang subroutine.
5. Kasunod, pindutin ang "F5" na pindutan ng key o i-click ang icon na "Run" sa toolbar.
6. Sa paglaon, pagkatapos makumpleto ang macro, maaari kang bumalik sa listahan ng folder ng mail.
7. Doon, makikita mo na ang lahat ng mga hindi nabasang email ay minarkahan bilang nabasa, tulad ng ipinakita sa screenshot.

Pagtakas mula sa Miserable Outlook Data Loss

Maaaring tinanggap ng mga gumagamit ang isang katotohanan na ang mga dokumento ng Word at mga workbook ng Excel ay maaaring madaling masira. Bilang isang bagay ng katotohanan, katulad ng mga file na ito, ang file ng data ng Outlook ay madaling kapitan ng pinsala. Samakatuwid, kung nag-aatubili kang maranasan iyon, dapat kang gumawa ng ilang mga aksyon. Dapat itong magsama ng pag-iingat, tulad ng regular na pag-backup at pag-block sa lahat ng malware o mga virus, at ilang mga hakbang sa pag-relief, tulad ng pag-alam kung paano ilunsad ang tool sa pag-aayos ng inbox, Scanpst at pinapanatili ang isang malakas na tool sa panlabas na pag-aayos, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa