Public appOl As New Outlook.Application
Public ns As Outlook.NameSpace
Public Inbox As Outlook.MAPIFolder
Public DestFolder As Outlook.MAPIFolder
Public Atmt As Outlook.Attachment
Public olApp As Outlook.Application
Public olNewMail As Outlook.MailItem
Public Item As Object

Private Sub Check_Support_Mailbox()
   On Error GoTo Check_Support_Mailbox_err
  Dim subText As String
   Set ns = appOl.GetNamespace("MAPI")
   Set Inbox = ns.Folders("Mailbox - MyName").Folders("Inbox")
   '
   For Each Item In Inbox.Items.Restrict("[UnRead] = True")
      ' Added this flag to see if it was looking at each msgs
      ' Based on this flag, it is not touching every email
      Item.FlagIcon = olYellowFlagIcon
      If (Item.Class = olMail) And (Item.UnRead) Then
         '
         ' I removed the reference to all states, 3 is a good sampling
         '
         If InStr(Item.Subject, "AL -")  0 Then NorthIncidents
        If InStr(Item.Subject, "AZ -")  0 Then WestIncidents
         If InStr(Item.Subject, "AR -")  0 Then EastIncidents
      End If
   Next Item
Check_Support_Mailbox_exit:
   Set Atmt = Nothing
   Set Item = Nothing
   Set ns = Nothing
   Set appOl = Nothing
   Exit Sub
Check_Support_Mailbox_err:
   MsgBox "Error has occurred " & Err.Number & “: “ & Err.Description, vbCritical, "Error!"
   Resume Process_Report_Emails_exit
End Sub