Sub EnumerateSubFolders(fld As folders)

Dim oItem       As PostItem
Dim oFolder     As MAPIFolder

Dim bad         As Boolean
Dim Messages    As String

Debug.Print "Scanning ..."

For Each oFolder In fld
    If oFolder.Items.Count > 1 Then
        bad = True
        
        For Each oItem In oFolder.Items
            If DateDiff("h", oItem.ReceivedTime, Now) < 24 Then
                If InStr(1, oItem.Body, "</table>") Then
                    bad = False
                    Exit For
                End If
            End If
            
            If DateDiff("d", oItem.ReceivedTime, Now) > 3 Then
                Exit For
            End If
        Next
        
        If bad Then
            Messages = Messages & oFolder.Name & vbCrLf
        End If
    End If
Next

MsgBox Messages, vbInformation Or vbOKOnly, "Sites that haven't sent a notification in the last 24 hours"

Debug.Print "Done"

End Sub

Sub EnumerateFolders(fld As MAPIFolder)

Dim oFolder     As MAPIFolder

For Each oFolder In fld.folders
    If oFolder.Name = "Panther Notifications – Production" Then
        EnumerateSubFolders oFolder.folders
    End If
Next

End Sub

Sub FindBrokenSysmon()

EnumerateFolders Session.GetDefaultFolder(olPublicFoldersAllPublicFolders)

End Sub