Conflict Resolution

Not very diplomatic.

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.

 

No comments:

Post a Comment