Torsten Weber’s Blog

Je nachdem was für eine Lösung eingesetzt wird, wächst die Anzahl der E-Mails im Junk-E-Mail Ordner mehr oder weniger schnell. Ich schaue den Ordner ganz selten mit der Hilfe einer benutzerdefinierten Ansicht durch. Wächst die Anzahl ungelesener (besser: nicht überprüfter) E-Mails von 3 auf 333 könnte man verleitet sein, Zeit mit einer Durchsicht zu verschwenden, anstatt den richtigen Zeitpunkt von alleine zu finden. Junk-E-Mails lasse ich deswegen durch ein Makro einfach automatisch als gelesen markieren. Fazit: Da wurde bei Microsoft nicht mitgedacht, wenn jemand überhaupt keine Anzahl angezeigt haben möchte (siehe Abb. 1 und 2).

Abb. 1: Einstellung der Anzeige der Elemente in einem Ordner

Abb. 2: Anzeige der Anzahl ungelesener Elemente beim Junk-E-Mail Ordner

Folgendes Makro markiert empfangene Junk-E-Mails automatisch als gelesen¹:

Public WithEvents olJunkItems As Outlook.Items

Private Sub Application_Startup()
    Set olJunkItems = ThisOutlookSession.Session.GetDefaultFolder(olFolderJunk).Items
End Sub

Private Sub olJunkItems_ItemAdd(ByVal Item As Object)
    If Item Is Nothing Or Item = "" Then
        Exit Sub
    End If

    Dim junkmail As MailItem
    Set junkmail = Item
        
    junkmail.UnRead = False
    junkmail.Save
End Sub

¹ wie ein solches Makro bei Outlook verwendet wird, steht hier