|OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or e-mails.|
For some item types Outlook doesn't offer a command to mark them as read, or unread, for instance for appointment items. However, with a VBA macro it's possible.
Paste the code to the ThisOutlookSession module. Then select any appointments in your calendar, and press ALT+F8 to run the macro.
Public Sub ReadItems() SetItemsUnread False End Sub Public Sub UnreadItems() SetItemsUnread True End Sub Private Sub SetItemsUnread(ByVal Unread As Boolean) Dim coll As VBA.Collection Dim obj As Object For Each obj In GetCurrentItems obj.Unread = Unread obj.Save Next End Sub Private Function GetCurrentItems() As VBA.Collection Dim coll As VBA.Collection Dim Win As Object Dim Sel As Outlook.Selection Dim obj As Object Dim i& Set coll = New VBA.Collection Set Win = Application.ActiveWindow If TypeOf Win Is Outlook.Inspector Then coll.add Win.CurrentItem Else Set Sel = Win.Selection If Not Sel Is Nothing Then For i = 1 To Sel.Count coll.add Sel(i) Next End If End If Set GetCurrentItems = coll End Function
|Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.|