Jak dávkově označit všechny e-maily jako přečtené ve všech složkách aplikace Outlook pomocí VBA

Více uživatelů touží po tom, aby řešení hromadně označilo všechny e-maily jako přečtené ve všech složkách Outlooku. V tomto článku vám takovou metodu představíme.  

Jak všichni víme, je snadné označit všechny e-maily ve složce jako přečtené. Stačí vybrat a kliknout pravým tlačítkem na složku a poté v kontextové nabídce zvolit možnost „Označit vše jako přečtené“. Pokud však existuje několik složek, které mají nepřečtené e-maily, výše uvedeným způsobem musíte složky provádět jeden po druhém. Je to příliš problematické. Proto vás zde budeme sdílet mnohem efektivnějším způsobem, který vám umožní realizovat to hromadně.

Dávkově označte všechny e-maily jako přečtené ve všech složkách aplikace Outlook

1. Pro začátek spusťte aplikaci Outlook.
2. Poté stiskněte „Alt + F11“ pro přístup k editoru Outlook VBA.
3. Dále v okně „Microsoft Visual Basic pro aplikace“ zkopírujte níže uvedený kód do nepoužívaného modulu.

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. Poté umístěte kurzor do prvního podprogramu.
5. Následně stiskněte klávesu „F5“ nebo klikněte na ikonu „Spustit“ na panelu nástrojů.
6. Nakonec, po dokončení makra, můžete přejít zpět do seznamu složek pošty.
7. Tam uvidíte, že všechny nepřečtené e-maily byly označeny jako přečtené, jak je znázorněno na snímku obrazovky.

Únik z úbohé ztráty dat v aplikaci Outlook

Uživatelé možná přijali fakt, že dokumenty Word a sešity aplikace Excel lze snadno poškodit. Ve skutečnosti, podobně jako u těchto souborů, je datový soubor aplikace Outlook také náchylný k poškození. Pokud se tedy zdráháte to zažít, měli byste podniknout určité kroky. Mělo by to zahrnovat opatření, jako je pravidelné zálohování a blokování veškerého malwaru nebo virů, a některá pomocná opatření, například vědět, jak spustit nástroj pro opravu doručené pošty, scanpst a udržování výkonného nástroje pro externí opravy, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com