Ej lästa borttagna mail

Har du många ej lästa borttagna mail?

Mängder med ej lästa borttagna mailVisar Outlook att du har många ej lästa borttagna mail? Vore det inte skönt om Outlook automatiskt kunde avflagga olästa mail när man tar bort dem?

Säga vad man vill om Outlook, men det är en förbannat bra epostklient.
Dock är det ju så att även solen har sina mörka fläckar och ofta är det de små detaljerna som bidrar till detta.

Det finns en lösning.

Öppna VBA editorn (ALT+F11) och klistra in koden nedan i modulen ”ThisOutlookSession”.
Säkerställ att makron är aktiverade och tillåtna, starta sedan om Outlook. Observera dock att denna variant har jag endast testat med Outlook 2010, men det kan hända att den även fungerar i andra versioner också.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
 Dim olNs As Outlook.NameSpace
 Dim Folder As Outlook.MAPIFolder

 Set olNs = Application.GetNamespace("MAPI")
 Set Folder = olNs.GetDefaultFolder(olFolderInbox)
 Set Folder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
 Set Items = Folder.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
 Item.UnRead = False
 Item.Save
End Sub

VBA kod - Ej lästa borttagna mail

Nu skall alla mail som tas bort, automatiskt bli markerade som lästa och du slipper irritera dig på att indikatorn för olästa mail sitter bredvid in mapp för borttagna meddelanden.