Kako grupno označiti sve e-poruke kao pročitane u svim Outlook fasciklama pomoću VBA

Više korisnika žudi za rješenjem za grupno označavanje svih e-poruka kao pročitanih u svim Outlook folderima. U ovom članku ćemo vam predstaviti takvu metodu.  

Kao što svi znamo, lako je označiti sve poruke u folderu kao pročitane. Samo odaberite i desnim klikom na mapu, a zatim u kontekstnom izborniku odaberite opciju “Označi sve kao pročitano”. Međutim, ako postoji nekoliko foldera koji imaju nepročitane e-poruke, na gore navedene načine morate izvršiti na folderima jedan po jedan. To je previše problematično. Stoga ćemo vam ovdje podijeliti mnogo efikasniji način, koji će vam omogućiti da ga realizujete na veliko.

Grupno označite sve e-poruke kao pročitane u svim Outlook fasciklama

1. Za početak, pokrenite Outlook aplikaciju.
2. Zatim pritisnite “Alt + F11” da pristupite Outlook VBA editoru.
3. Zatim, u prozoru „Microsoft Visual Basic za aplikacije“, kopirajte donji kod u neiskorišteni modul.

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. Nakon toga, stavite kursor u prvi potprogram.
5. Zatim pritisnite dugme „F5“ ili kliknite na ikonu „Pokreni“ na traci sa alatkama.
6. Na kraju, nakon što se makro završi, možete se vratiti na listu foldera za poštu.
7. Tamo ćete vidjeti da su sve nepročitane poruke e-pošte označene kao pročitane, kao što je prikazano na snimku ekrana.

Izbjegnite mizeran gubitak podataka u Outlooku

Korisnici su možda prihvatili činjenicu da se Word dokumenti i Excel radne sveske mogu lako oštetiti. Zapravo, slično ovim datotekama, Outlook datoteka podataka je također sklona oštećenju. Stoga, ako nerado doživite to, trebali biste poduzeti neke radnje. Trebao bi uključivati ​​mjere opreza, poput redovnog pravljenja sigurnosnih kopija i blokiranja svih zlonamjernih programa ili virusa, te neke mjere za olakšanje, kao što je znanje kako pokrenuti alat za popravak pristigle pošte, scanpst i zadržavanje moćnog vanjskog alata za popravke, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com