Kuidas märkida VBA abil kõik meilid loetuks kõigis Outlooki kaustades

Mitu kasutajat igatseb lahendust, mis märgiks kõik meilid loetuks kõigis Outlooki kaustades. Selles artiklis tutvustame teile sellist meetodit.  

Nagu me kõik teame, on lihtne kõik kaustas olevad kirjad loetuks märkida. Valige lihtsalt kaust ja paremklõpsake sellel ning seejärel valige kontekstimenüüst valik "Märgi kõik loetuks". Kui aga lugemata kirju on mitmes kaustas, tuleb ülaltoodud vahenditega kaustadel ükshaaval tegutseda. See on liiga tülikas. Seetõttu jagame siin teile palju tõhusamat viisi, mis võimaldab teil seda hulgi realiseerida.

Märgistage kõik meilid kõigis Outlooki kaustades loetuks

1. Alustamiseks käivitage Outlooki rakendus.
2. Seejärel vajutage Outlooki VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
3. Järgmisena kopeerige aknas „Microsoft Visual Basic for Applications” allolev kood kasutamata moodulisse.

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. Seejärel asetage kursor esimesse alamprogrammi.
5. Seejärel vajutage klahvi "F5" või klõpsake tööriistaribal ikooni "Käivita".
6. Lõpuks, pärast makro lõpetamist, saate naasta meilikaustade loendisse.
7. Seal näete, et kõik lugemata meilid on märgitud loetuks, nagu on näidatud ekraanipildil.

Põgenemine õnnetu Outlooki andmekao eest

Kasutajad võivad nõustuda tõsiasjaga, et Wordi dokumendid ja Exceli töövihikud võivad kergesti rikkuda. Tegelikult võib sarnaselt nendele failidele ka Outlooki andmefail kahjustada. Seega, kui te ei soovi seda kogeda, peaksite võtma mõned meetmed. See peaks sisaldama ettevaatusabinõusid, nagu regulaarne varundamine ja pahavara või viiruste blokeerimine, ning mõningaid abimeetmeid, nagu teadmine, kuidas käivitada postkasti parandustööriist, scanpst ja võimsa välise parandustööriista hoidmine, nt DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom