GENiALi's Blog

inEN by MS

0TweetsRetweet

Zuerst mal Danke an alle die mir hier helfen wollten und konnten.
So macht es doch Spass. :-)

Ich musste merken, dass ich noch keine Kategorie "Lösung" habe.
Ich frage zwar immer mal wieder nach Hilfe aber bislang habe ich
noch nichts für die Lösung gemacht, wenn es denn eine gab.

Aber bei diesem Hilferuf schreit es nach einer Lösung.
So wie es scheint habe ich da mit der Frage so einiges in
Bewegung gesetzt. Das ist positiv. :-)

Hier eine Kurze History mit der Lösung.

1. Ich habe mal in meinem Blog gefragt ob es eine Lösung für mein Problemchen gibt.
2. Norbert meinte man kann das mit CTRL+Q machen. Zudem Postete er noch ein
   Link zu einer Shortcutsammlung für Outlook.
3. Ich erwiderte, dass das nur geht wenn man vorher alle Mails selektiert hat.
   Ich wollte aber alle als gelesen markieren wenn ich nur den Ordner markiere.
   Also CTRL+A und CTRL+Q.
4. Damir meint aber, dass das bei einigen Tausend Mails schon mal eine Weile dauern kann.
   Aus Erfahrung stimme ich dem zu. :-)
5. Jetzt kam Norbert wieder zum Zug. Er veröffentlichte bei mir auf dem Blog, unter den Kommentaren,
   ein VBA Makro das man dann mit einem Shortcut aufrufen könnte, dass genau
   das macht was ich will.
6. 11 Minuten später schrieb er mir im Blogkommentar, dass er das Problem
   auf seinem Blog zusammengefasst hat. Cool. Danke viel mal. :-)
   Das nennt man Hilfe.
7. Bei Damir ging es dann weiter. Es geht noch einfacher.
   Zu finden -> Hier
   Allerdings fehlt mir bei dieser Lösung die Tastenkombination.

Es kam also so allerhand zusammen. Das macht doch Spass so was mal auszulösen. :-D
Das muss ich öffters mal machen.

Hier noch kurz das VBA Snippet:
Sub SetAllRead()
Dim mItem As MailItem
If Outlook.ActiveExplorer.CurrentFolder.UnReadItemCount > 0 Then
For Each mItem In Outlook.ActiveExplorer.CurrentFolder.Items
mItem.UnRead = False
Next
End If
End Sub