not picking up

i have rceived items and send items in the shared folder in inbox
the macro runs but if the new received item it is not picking up. here is the code. could you help me. great appreciated.
thanks

Code:

---

  Set Fldr = myStore.Folders("Inbox")

    For Each olMail In Fldr.Items

    If Mid(olMail.Subject, 5, 10) = "PassNotify" Then  ' Received items
        MyDate = Format(olMail.SentOn + 3, "mmmm dd,yyyy")
   
      With ActiveSheet.Range("A6:A" & Range("A65536").End(xlUp).Row) '' adds name to file
            Set c = .Find(olMail.To, LookIn:=xlValues)
                   
            If c Is Nothing Then '' To was not found add to worksheet
            ''''' get last row ''
           
              i = Sheets("Password").Range("A65536").End(xlUp).Row + 1
              ActiveSheet.Cells(i, 3).Value = olMail.ReceivedTime
                MyDate = Format(olMail.SentOn + 3, "mmmm dd,yyyy")
                ActiveSheet.Cells(i, 4).Value = MyDate '' expected date
               
            End If
      End With


  Else
            MyArray = Trim(Split(olMail.Subject, "-")(0))
          If MyArray = "PassNotify" Then                        '  sent items
          MyDate = Format(olMail.SentOn + 3, "mmmm dd,yyyy")
          With ActiveSheet.Range("A6:A" & Range("A65536").End(xlUp).Row) '' adds name to file
            Set c = .Find(olMail.To, LookIn:=xlValues)
            If c Is Nothing Then  '' To was not found add to worksheet
            ''''' get last row ''
            '  i = Sheets("Password").Range("A65536").End(xlUp).Row + 1
               
              ActiveSheet.Cells(i, 1).Value = olMail.To
              ActiveSheet.Cells(i, 2).Value = olMail.SentOn
              End If
             
   
              ActiveSheet.Cells(i, 4).Value = MyDate
       
                If ActiveSheet.Cells(i, 3).Text > MyDate Then
                    Range(Cells(i, 1), Cells(i, 4)).Interior.ColorIndex = 35  '' color rec date greater than expected date
                End If
          End With
            ''' this will moe the active mail msg to another folrder however you need to provide an if statmnt so it will kno to move msg
                i = i + 1


    Next olMail
   
 
    Set Fldr = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
     
 
  Application.ScreenUpdating = True
      For Each Myrng In Range("C6:C" & i)
 
        If Myrng.Text = "" Then
            Range(Cells(Myrng.Row, 1), Cells(Myrng.Row, 4)).Interior.ColorIndex = 36 ''' you need to changeto the color index you want to see
        End If
       
    Next
 
 
End Sub

---