Jak wsadowo oznaczyć wszystkie wiadomości e-mail jako przeczytane we wszystkich folderach programu Outlook za pomocą języka VBA

Wielu użytkowników tęskni za rozwiązaniem umożliwiającym wsadowe oznaczanie wszystkich wiadomości e-mail jako przeczytanych we wszystkich folderach programu Outlook. W tym artykule przedstawimy Ci taką metodę.  

Jak wszyscy wiemy, łatwo jest oznaczyć wszystkie wiadomości w folderze jako przeczytane. Po prostu wybierz i kliknij prawym przyciskiem myszy folder, a następnie wybierz opcję „Oznacz wszystko jako przeczytane” z menu kontekstowego. Jeśli jednak istnieje kilka folderów z nieprzeczytanymi wiadomościami e-mail, w powyższy sposób należy wykonać czynności w folderach jeden po drugim. To zbyt kłopotliwe. Dlatego tutaj podzielimy się z Tobą znacznie wydajniejszym sposobem, który pozwoli Ci zrealizować to masowo.

Oznacz wsadowo wszystkie wiadomości e-mail jako przeczytane we wszystkich folderach programu Outlook

1. Na początek uruchom aplikację Outlook.
2. Następnie naciśnij „Alt + F11”, aby uzyskać dostęp do edytora VBA programu Outlook.
3. Następnie w oknie „Microsoft Visual Basic for Applications” skopiuj poniższy kod do nieużywanego modułu.

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. Następnie umieść kursor w pierwszym podprogramie.
5. Następnie naciśnij przycisk klawisza „F5” lub kliknij ikonę „Uruchom” na pasku narzędzi.
6. Ostatecznie, po zakończeniu makra, możesz wrócić do listy folderów poczty.
7. Tam zobaczysz, że wszystkie nieprzeczytane e-maile zostały oznaczone jako przeczytane, jak pokazano na zrzucie ekranu.

Ucieczka od nieszczęśliwej utraty danych programu Outlook

Użytkownicy mogli zaakceptować fakt, że dokumenty programu Word i skoroszyty programu Excel można łatwo uszkodzić. W rzeczywistości, podobnie jak te pliki, plik danych programu Outlook jest również podatny na uszkodzenia. Dlatego jeśli nie chcesz tego doświadczyć, powinieneś podjąć pewne działania. Powinien zawierać środki ostrożności, takie jak regularne tworzenie kopii zapasowych i blokowanie wszelkiego złośliwego oprogramowania lub wirusów, a także pewne środki zaradcze, takie jak wiedza, jak uruchomić narzędzie do naprawy skrzynki odbiorczej, skanpst i utrzymywanie potężnego zewnętrznego narzędzia naprawczego, takiego jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com