Email automatisch als gelesen markieren

Im Beispiel wird die Email als gelesen markiert, wenn Sie die in den einen Unterordner des Posteingangs verschieben. Der Ordner heißt 'test'; passen Sie den Namen für Ihre Bedürfnisse an.

  So fügen Sie Makros in Outlook ein

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim F As Outlook.MAPIFolder

  Set Ns = Application.GetNamespace("MAPI")
  Set F = Ns.GetDefaultFolder(olFolderInbox)
  Set F = F.Folders("test")
  Set Items = F.Items
End Sub

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