Kako grupno označiti sve poruke e-pošte kao pročitane u svim Outlook mapama pomoću VBA

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

Kao što svi znamo, lako je označiti sve poruke u mapi kao pročitane. Samo odaberite i kliknite desnom tipkom miša na mapu, a zatim odaberite opciju "Označi sve kao pročitano" u kontekstnom izborniku. Međutim, ako postoji nekoliko mapa s nepročitanim porukama e-pošte, na gore navedene načine morate raditi na mapama jednu po jednu. Previše je problematično. Stoga ćemo ovdje podijeliti s vama mnogo učinkovitiji način koji će vam omogućiti da to realizirate u velikom broju.

Skupno označavanje svih poruka e-pošte kao pročitanih u svim mapama programa Outlook

1. Za početak, pokrenite Outlook aplikaciju.
2. Zatim pritisnite “Alt + F11” za pristup Outlook VBA uređivaču.
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, postavite pokazivač na prvu potprogram.
5. Nakon toga pritisnite tipku "F5" ili kliknite ikonu "Pokreni" na alatnoj traci.
6. Na kraju, nakon dovršetka makronaredbe, možete se vratiti na popis mapa pošte.
7. Tamo ćete vidjeti da su sve nepročitane poruke e-pošte označene kao pročitane, kao što je prikazano na snimci zaslona.

Pobjegnite od jadnog gubitka podataka u Outlooku

Korisnici su možda prihvatili činjenicu da se Word dokumenti i Excel radne knjige mogu lako oštetiti. Zapravo, slično ovim datotekama, podatkovna datoteka programa Outlook također je sklona oštećenjima. Stoga, ako nerado to doživite, trebali biste poduzeti neke radnje. To bi trebalo uključivati ​​mjere opreza, poput redovitih sigurnosnih kopija i blokiranja svih zlonamjernih programa ili virusa, te neke mjere pomoći, poput znanja o tome kako pokrenuti alat za popravak pristigle pošte, scanpst i čuvanje snažnog vanjskog alata za popravak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com