Function fOlTryDo()
Dim i As Integer
Dim ol As New Outlook.Application
Dim olns As Outlook.Namespace
Dim cf As Outlook.MAPIFolder
Dim c As Outlook.MailItem
Dim objItems As Outlook.Items

   Set olns = ol.GetNamespace("MAPI")
   Set cf = olns.GetDefaultFolder(olFolderInbox)
   Set objItems = cf.Items
   
      For i =  1  To objItems.Count
         If TypeName(objItems(i)) = "MailItem" Then
            Set c = objItems(i)
            Debug.Print c.Subject 'что сюда нужно поставить, чтобы узнать статус письма?
         End If
      Next i

End Function