So markieren Sie alle E-Mails im Stapel als eingelesen in allen Outlook-Ordnern mit VBA

Mehrere Benutzer sehnen sich nach einer Lösung, mit der alle E-Mails als gelesen markiert werden können in allen Outlook-Ordnern. In diesem Artikel stellen wir Ihnen eine solche Methode vor.  

Wie wir alle wissen, ist es einfach, alle Mails in einem Ordner als gelesen zu markieren. Wählen Sie einfach den Ordner aus und klicken Sie mit der rechten Maustaste darauf. Wählen Sie dann im Kontextmenü die Option „Alle als gelesen markieren“. Wenn es jedoch mehrere Ordner mit ungelesenen E-Mails gibt, müssen Sie auf die oben beschriebene Weise die Ordner einzeln bearbeiten. Es ist zu lästig. Daher werden wir Ihnen hier einen viel effizienteren Weg vorstellen, der es Ihnen ermöglicht, ihn in großen Mengen zu realisieren.

Batch Markieren Sie alle E-Mails als in allen Outlook-Ordnern eingelesen

1. Starten Sie zunächst die Outlook-Anwendung.
2. Drücken Sie dann „Alt + F11“, um auf den Outlook VBA-Editor zuzugreifen.
3. Kopieren Sie anschließend im Fenster "Microsoft Visual Basic für Applikationen" den folgenden Code in ein nicht verwendetes 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. Setzen Sie anschließend den Cursor in die erste Unterroutine.
5. Drücken Sie anschließend die Taste „F5“ oder klicken Sie in der Symbolleiste auf das Symbol „Ausführen“.
6. Nach Abschluss des Makros können Sie schließlich zur E-Mail-Ordnerliste zurückkehren.
7. Dort sehen Sie, dass alle ungelesenen E-Mails als gelesen markiert wurden, wie im Screenshot gezeigt.

Entfliehen Sie dem miserablen Outlook-Datenverlust

Benutzer haben möglicherweise akzeptiert, dass Word-Dokumente und Excel-Arbeitsmappen leicht beschädigt werden können. Ähnlich wie diese Dateien ist auch die Outlook-Datendatei anfällig für Beschädigungen. Wenn Sie dies nur ungern erleben, sollten Sie daher einige Maßnahmen ergreifen. Es sollte Vorsichtsmaßnahmen wie regelmäßige Sicherungen und das Blockieren aller Malware oder Viren sowie einige Hilfsmaßnahmen enthalten, z. B. das Starten des Reparaturwerkzeugs für den Posteingang. scanpst und ein leistungsfähiges externes Fix-Tool wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX