
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.ApplicationDim myItem As Outlook.MailItemDim myConflicts As Outlook.ConflictsSet myOlApp = CreateObject("Outlook.Application")Set myItem = myOlApp.ActiveInspector.CurrentItemSet myConflicts = myItem.ConflictsIf (myConflicts.Count > 0) ThenMsgBox ("This item is involved in a conflict.")ElseMsgBox ("This item is not involved in any conflicts.")End IfEnd 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