Удалить все элементы из входящих, которые не являются письмами.

Option Explicit
'Удаление всех элементов, которые не являются письмами
Sub delete()

    Dim Inbox As Object
    Dim mi As Object 'раньше был mailitem и ничего не работало. Почему?
    Dim asdf As Integer
   
    Set Inbox = Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 'olFolderSentMail)
   
    asdf = Inbox.Items.Count
    For Each mi In Inbox.Items 'Inbox.Items.Restrict("[Unread]=TRUE")
        If mi.Class <> olMail Then
            'MsgBox (mi.Subject)
            Debug.Print (mi.Subject)
        End If
    Next mi

End Sub