Hi Experts i found a script on http://www.slipstick.com/developer/delete-older-messages-new-message-arrives/
Sub DeleteOlderMessages(Item As Outlook.MailItem)
Dim objInbox As Outlook.MAPIFolder
Dim intCount As Integer
Dim objVariant As Variant
Set objInbox = Session.GetDefaultFolder(o
' Remove these lines if you don't want to add a category
Item.Categories = "Delete Older"
For intCount = objInbox.Items.Count To 1 Step -1
Set objVariant = objInbox.Items.Item(intCou
If objVariant.MessageClass = "IPM.Note" Then
If objVariant.Subject = Item.Subject And objVariant.SentOn < Item.SentOn Then
Set objInbox = Nothing
This will delete Mails with the same subject. I am in the need for the similar situation but my subjects are in one word different.
Explaination: I am getting from nagios status mails. I can not access directly to the system so i need to keep track of the status. So my idea is to have a rule set like this:
1.) when mail arrive i move them to a folder named like the system
2.) if in the subject is ** PROBLEM then it should keep it
3.) if in the subject is ** RESOLVED it should remove both the ** Problem one and the ** RESOLVED one
Can someone help me out?
If necessary i can install a tool instead of the rules in Outlook. But i did not find any tool what is doing that.
I have no access to exchange itself so i need a client solution.