Conflict Resolution

Like charity, diplomacy begins at home. Like so many of you out there in Netland, I live and die by the e-mail, and Outlook is the last place I need any kind of conflict. Since forewarned is forearmed, I decided to take the proactive approach and nip the whole thing in the bud right now, before WWIII (the big big big one) breaks out in my inbox.

Fortunately, I ran across a nifty code-hunk that, I'm told, will notify me of any insurrection that might be brewing before it becomes a brouhaha, or a hahabrew, or whatever it is these things turn into when they're fueled by cheap whisky.

Sub CheckConflicts()

 Dim myOlApp As Outlook.Application

 Dim myItem As Outlook.MailItem

 Dim myConflicts As Outlook.Conflicts

 Set myOlApp = CreateObject("Outlook.Application")

 Set myItem = myOlApp.ActiveInspector.CurrentItem

 Set myConflicts = myItem.Conflicts

 If (myConflicts.Count > 0) Then

    MsgBox ("This item is involved in a conflict.")

 Else

    MsgBox ("This item is not involved in any conflicts.")

 End If

End Sub

I'm no programmer, and I'm certainly no diplomat, but I know a can of worms when I'm told to. Now, thanks to a bit of clever programming, I won't have to worry about a few malcontents turning my e-mail to gewgaw.