outlook macro that parses subjects of all emails present in a folder

I have a few questions to determine how complicated or tricky we have to try to make this solution.

When the new messages arrive that you want to leave as unread - do you leave those as unread or do we have to try to manage keeping these marked as unread (this is difficult and may be impossible based on how you use outlook).

If you leave those as unread, then really we just need a solution to manage moving the matching emails.  At that point I suggest creating a rule that runs each time you receive an email from your system.  In the rule, have it run a script and then put this macro into a module in the Outlook VBA:

Public Sub ProcessingEmails(Item As Outlook.MailItem)
    Dim objFolder As Outlook.Folder
    Dim strSubject As String
    Dim objProbEmail As Outlook.MailItem
    
    If Right(Item.Subject, 2) = "OK" Then
        Set objFolder = Outlook.Session.Folders("YourArchiveNameHere")
        
        ' Find Matching Email
        strSubject = Left(Item.Subject, Len(Item.Subject - 2)) & "PROBLEM"
        
        Set objProbEmail = Item.Parent.Items.Find("[Subject] = " & strSubject)
        
        Item.Move objFolder
        objProbEmail.Move objFolder
        
    End If
End Sub

Select allOpen in new window

Hi ltlbearand3
thank you very much for your reply!!
what I wish to know is, at any time, if I look at the folder of my monitoring system email, all the problem are still not solved. They could be neither read nor unread... due the fact I wish to move the solved problems on another folder.

but how can I implement the macro that will be called by the rule?

your solution can be applied on any kind of subject? because as you can imagine I've more than 50 checks that Zabbix does with their related alert.

thank you very much.
Nick

OK.  Lets back up a few steps and really define what is required.  

First off, lets deal with the read / unread nature. For the problem emails, are these required to stay in an unread status or can we not worry about that if we will automatically move them to a different folder once the OK email is received?  If they need to stay in an unread status, why and what events would cause them to be marked as read?

Next, lets deal with the incoming OK emails.  Is the from email always from the same email address?  If so, is this the same email address as the problem emails?  If it is the same email for both, is there any distinguishing text in the subject line of all OK email to distinguish them from the problem emails?  

These answer determine how to proceed.  As a side note, to set up a rule click on Rules from Home Ribbon, then click create rule and then click advanced options.  Then follow the prompts.  We will need to the script set up first, though.

The script can work on a variety of subject, but will be dependent upon some consistency such as all OK emails will have a similar format (though some words can change) and that the problem emails all have basically the same subject.  This is where we need more defined requirements to make this actually work.

Hi,
I try to answer your question as simpler as possible:
1st. I wish that the emails will be marked as read once the problem has been solved (so both the email with the problem and the email with the OK have been arrived).
2nd. they are coming from the same email address. normally the text is the following (as I wrote in the example above):
Problem subject:
"Check Last Transcoded - PROBLEM"
solution subject:
"Check Last Transcoded - OK"
As you can see the alert is in the first part of the subject, the situation (OK or Problem) at the end of the subject...
could be a small list of email subject:
"Queries per seconds"
"Number of audio transfers"
"No XML received"
"Disk I/O overloaded"
and many others...

hope it helps.
thank you a lot.
regards
Nick

OK.  Lets try this.  Copy This code into a macro in Outlook.

1.  Open the VBA Editor - The easiest way is to press ALT-F11
2.  on the menu click Insert >> Module
3.  Paste this code into the module window

Public Sub ProcessingzabbixEmails(Item As Outlook.MailItem)
    Dim objFolder As Outlook.Folder
    Dim strSubject As String
    Dim objProbEmail As Outlook.MailItem
    
    If Right(Item.Subject, 2) = "OK" Then
        Set objFolder = Outlook.Session.Folders("YourArchiveNameHere")
        
        ' Find Matching Email
        strSubject = Left(Item.Subject, Len(Item.Subject - 2)) & "PROBLEM"
        
        Set objProbEmail = Item.Parent.Items.Find("[Subject] = " & strSubject)
        objProbEmail.UnRead = False
                
        Item.Move objFolder
        objProbEmail.Move objFolder
        
        Item.UnRead = False
        Item.Move objFolder
    End If
End Sub

Select allOpen in new window

You will need to update the line of code that says "YourArchiveNameHere" with the name of your archive folder where you want the emails to be moved after the OK email is received.  

Now the next time you get an email from zabbix do the following to set up the rule:
On the Home Ribbon click Rules >> Create Rule
Select the top box "From  . . . "
Click Advanced Options
Click Next
Select the option in the list to "run a script"
Click on the link for "a script" and select the ProcessingZabbixEmails option

That should be all you need.  The script will then be run each time you get an email from zabbix.  It will look for the word OK at the end of the subject line (ex.  "Number of audio transfers - OK").  It will mark that email as read and move it to the archive folder.  It will also look for the associated problem email ex "Number of audio transfers - PROBLEM", mark it as read and move it to the archive folder.

Give it a try and let us know how it works.

Hi,
I've update my outlook rule with the one you see in the printscreen
but I got this error:

what could it be?
thank you very much
Nick

modified this line:

 
        ' Find Matching Email
        strSubject = Left(Item.Subject, (Len(Item.Subject) - 2)) & "PROBLEM"

Select allOpen in new window

Hi,
after fixing the problem with the parenthesis, I got a problem with the folder. In my account structure I've the folder:
"Archived Production Alerts"

but I got this problem:

This is the code:

thank you very much
Regards
Nick

Sorry about the parenthesis problem.  Glad you got that fixed.  Now for the folder problem.  It looks like this folder a sub folder of another folder.  In the properties box there should be a line for location (just below where you cut off the screen shot).  

So if we are drilling down to a subfolder, you need to use code like this:

    Set objF = Session.Folders("MainFolder").Folders("SubFolderName")

Select allOpen in new window

If the location shows something like "\\Archive"  Then an example that might work for you would be:

    Set objF = Session.Folders("Archive").Folders("Archived Production Alerts")

Select allOpen in new window

Hi,
thank you for your reply.
As you can see in the printscreen
this is my structure. My Mailbox Name is my email address and then the folders are just below. In the
"Current_Production_Alerts" should be populated by current problems
"Archived_Production_Alerts" should be populated with old (and solved) problems.

I guess the should be:
Set objF = Session.Folders("myemailaddress").Folders("Archived_Production_Alerts")
correct?
thank you again
Nick

HI,
now is quite weird, because seems that the script is no more called... I tried putting a msgbox, restoring the error with the parenthesis but nothing happens.
... wtf... no idea why... if I put as action to do a sound works correctly. when I put to run the script nope...

Now seems to work if I keep the open issue in the Inbox.
There's a way to move the emails with problem in a dedicated folder (Current_Production_Alerts) and then move away from there once archived?
I did with the moving option in the rules but works correctly the for the problem. but once I got the OK the scripts checks in the Inbox and I got an error...


thank you very much.
Nick

... second issue:
I've got some subject with special characters:
"Number of active audio transfers is below 6! - OK"
while processing these subject I got a problem on the line

Set objProbEmail = Item.Parent.Items.Find("[Subject] = " & strSubject)
(I've deleted the popup and I don't remember the exact message).

thank you again
Nick

THANK YOU for your support.
this work like a charm.
thank you very much for all your time!
really really appreciate
Kind regards
Nick

Hi ltlbearand3,
first of all thank you very much for your answer... everything works fine except when I have special characters in the subject like this one:

"OMNEON2 NFS Free space on rsis-cp-haproxy1 /mnt/fs2< 10% - PROBLEM" and
"OMNEON2 NFS Free space on rsis-cp-haproxy1 /mnt/fs2< 10% - OK"

there's a way to skip all special characters or to replace them?
thank you again
regards
Nick

I just ran a test and the code found that subject just fine on my machine.  What makes you think it is not working?

I suggest adding in

Debug.Print Replace(strSubject, "'", "''")

Select allOpen in new window

right after

strSubject = Left(Item.Subject, Len(Item.Subject) - 2) & "PROBLEM"

Select allOpen in new window

to verify what subject it is trying to find.  Also put

Debug.Print objProbEmail.Subject

Select allOpen in new window

right after

Set objProbEmail = objProductionFldr.Items.Find("[Subject] = '" & Replace(strSubject, "'", "''") & "'")

Select allOpen in new window

to see what it found.

Hi,
since I put the debug.print I don't have any more issue... I don't know why...
thank you again.
best regards
Nick