Warn me when there is a duplicate followup.That has a exact Subject match.

Hi,

Warn me when there is a duplicate followup.That has a exact Subject match.
I click the followup flag red as to do jobs as and when i get and read the email. There are times when i click the followup on similiar mails. So when there is a match with the subject of just the followup mails then popup a box with the subject and say it has a duplicate.

Regards
Sharath
LVL 11
bsharathAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

peakpeakCommented:
You might find some code to scratch from here:
http://www.outlookcode.com (download Sues code examples)
http://www.slovaktech.com/code_samples.htm
0
David LeeCommented:
sharath,

I may be able to do this, but I don't think the result will be practical.  Especially if you want it to search more than a few folders for items with matching subjects.  Unfortunately Outlook doesn't trigger a unique event when an item is flagged.  The best you can do is watch for the item changing when the flag is applied.  That's a little cumbersome.  Then there's the problem of searching for a duplicate.  Outlook's advanced search requires specifying the folders to search.  Searching a few folders, a half-dozen or less, isn't a problem, but searching dozens of folders would be.  Then there's the speed of the search to consider.  Searching one folder with a few hundred items is pretty quick, but searching thousands of messages spread across multiple folders is going to produce a very noticeable lag.  I just don't think it's very practical.

peakpeak,

You post the same information to a lot of questions.  You might as well post "Go search Google for an answer."  It doesn't help the author of the question.  You should at least take the time to search those sites for code that's relevant to what the person is asking.  I know your moto is "Never reinvent the Wheel. Use Google." and I agree with you that authors could answer a lot of their own questions by doing a simple search.  The fact is that folks are paying money to get help with a question not to be told to go search for it themselves.  It'd be like you taking your car to a mechanic to diagnose a problem and the mechanic telling you to look in an auto manual because he knows the answer is there.  
0
bsharathAuthor Commented:
Hi David,

The only place i want to check for Duplicate Subjecdts when flagged is the Mailbox (Inbox)
I will have 1 flagged already and if i flag the 2nd one then popup a box.

I guess this would be easier...
As once i comple all the jobs only then i Move the mails to my psts and relevant folders
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

bsharathAuthor Commented:
Hi David,

The only place i want to check for Duplicate Subjecdts when flagged is the Mailbox (Inbox)
I will have 1 flagged already and if i flag the 2nd one then popup a box.

I guess this would be easier...
As once i comple all the jobs only then i Move the mails to my psts and relevant folders
0
bsharathAuthor Commented:
Hi David any views on this
0
bsharathAuthor Commented:
Hi David any views....
0
bsharathAuthor Commented:
Hi David...Any views on this please...
0
David LeeCommented:
This should do it.  This code goes in the ThisOutlookSession module.
Dim WithEvents olkExplorers As Outlook.Explorers
Dim WithEvents olkExplorer As Outlook.Explorer
Dim WithEvents olkItem As Outlook.MailItem
Dim bolDuplicateItem As Boolean
 
Private Sub Application_Quit()
    Set olkExplorers = Nothing
    Set olkExplorer = Nothing
    Set olkItem = Nothing
End Sub
 
Private Sub Application_Startup()
    Set olkExplorers = Application.Explorers
    Set olkExplorer = Application.ActiveExplorer
End Sub
 
Private Sub olkExplorer_Activate()
    Set olkExplorer = Application.ActiveExplorer
End Sub
 
Private Sub olkExplorer_SelectionChange()
    Set olkItem = Application.ActiveExplorer.Selection(1)
End Sub
 
Private Sub olkExplorers_NewExplorer(ByVal Explorer As Explorer)
    Set olkExplorer = Explorer
End Sub
 
Private Sub olkItem_PropertyChange(ByVal Name As String)
    If Name = "FlagStatus" Then
        If olkItem.FlagStatus = olFlagMarked Then
            bolDuplicateItem = IsDuplicate()
        End If
    End If
End Sub
 
Private Sub olkItem_Write(Cancel As Boolean)
    If bolDuplicateItem Then
        If msgbox("You already have an item with this subject flagged for action." & vbCrLf & "Flag anyway?", vbQuestion + vbYesNo, "Check for Flagged Duplicates") = vbNo Then
            Cancel = True
        Else
            Cancel = False
        End If
    End If
    bolDuplicateItem = False
End Sub
 
Function IsDuplicate() As Boolean
    Dim olkItems As Outlook.Items, olkMessage As Outlook.MailItem
    Set olkItems = Session.GetDefaultFolder(olFolderInbox).Items.Restrict("[Subject] = '" & olkItem.Subject & "'")
    For Each olkMessage In olkItems
        If olkMessage.FlagStatus = olFlagMarked Then
            If olkMessage.EntryID <> olkItem.EntryID Then
                IsDuplicate = True
                Exit For
            End If
        End If
    Next
    Set olkItems = Nothing
    Set olkMessage = Nothing
End Function

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
bsharathAuthor Commented:
Thanks David...
Mailed you the code...I get a sub error... Can you help combine my code with this code please...
0
David LeeCommented:
Done.
0
bsharathAuthor Commented:
David i did add the code you gave and when i select the Flag on 2 identical Subject mails i get no warning...
0
David LeeCommented:
Are the messages in the Inbox?
0
bsharathAuthor Commented:
Yes both the messages are in the inbox
0
David LeeCommented:
Did you close and restart Outlook after adding the code?
0
bsharathAuthor Commented:
Yes i did restart... Just going to try a log off
0
bsharathAuthor Commented:
Thanks a lot David Worked perfect after a restart... :-)
0
bsharathAuthor Commented:
Hi David,

When i click on the deleted folder. I get the attached error. Can you please suggest

Capture.JPG
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Outlook

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.