Chris Tulino

' This module responds to new mail events, allowing you to 
' create unique rules.  I experimented with some coloring
' using one color for emails sent directly from my boss.
'
'
Public WithEvents myOlItems As Outlook.Items

Public Sub Initialize_handler()
    Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub Application_NewMail()
  'MsgBox "New mail!"
  Beep
End Sub

Private Sub Application_Startup()

   ' Reference the items in the Inbox. Because myOlItems is declared
   ' "WithEvents" the ItemAdd event will fire below.
   Initialize_handler
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
  ' Check to make sure it is an Outlook mail message, otherwise
  ' subsequent code will probably fail depending on what type
  ' of item it is.
  
  If TypeName(Item) = "MailItem" And 1 = 2 Then
    Set mi = Item
    
    ' Set UserProperties so that mail can be color coded.
    mi.UserProperties.Add "ToWho", olText
    ' Set mail directly to you
    If (InStr(1, mi.To, "ctulino", vbTextCompare) Or _
      InStr(1, mi.To, "tulino", vbTextCompare) Or _
      InStr(1, mi.To, "ChrisAndDori", vbTextCompare)) Then
      mi.UserProperties.Item("ToWho") = "TO"
    ' Set mail copied to you
    ElseIf (InStr(1, mi.CC, "ctulino", vbTextCompare) Or _
      InStr(1, mi.CC, "tulino", vbTextCompare) Or _
      InStr(1, mi.CC, "ChrisAndDori", vbTextCompare)) Then
      mi.UserProperties.Item("ToWho") = "CC"
    Else
    ' otherwise
      mi.UserProperties.Item("ToWho") = "NOT"
    End If

    ' Create a message box if my boss sends mail directly to me.
    If InStr(1, mi.SenderName, "bossesname", vbTextCompare) And _
      (mi.UserProperties.Item("ToWho") = "TO") Then
      MsgBox "Moser sent mail.", vbOKOnly, "Boss Alert"
    End If

    'Choose message color

    mi.Save

  End If
End Sub