Outlook Makro um autom. auf gelesen zu setzen
09.03.2009 14:41:13
Diego
ich möchte dass ein Makro in Outlook mir alle Emails die in einem bestimmten Zeitraum oder vor einem bestimmten Zeitpuntk geschickt wurden automatisch auf gelesen gesetzt werden, ich habe momentan einen Code der alle auf gelesen setzt, wie mach ich es denn dass ich das Datum mit ins Spiel bringe?
Lg Diego
Option Explicit
Public Sub MarkItemsAsRead()
Call MarkAsRead(Outlook.Session.Folders(1).Folders("Posteingang").Folders("1"))
End Sub
Private Sub MarkAsRead(ByVal objFolder As Object)
Dim objItems As Outlook.Items
Dim objItem As Object
On Error Resume Next
Set objItems = objFolder.Items
For Each objItem In objItems
If objItem.UnRead Then objItem.UnRead = False
Next
End Sub