|With Category-Manager you can group your Outlook categories, share them with other users, filter a folder by category, automatically categorize new emails, and more. You can use the Addin even for IMAP.
Paste the code to the ThisOutlookSession module, then restart Outlook. After the first email was received while the macro was running, you can add the new property 'NumberAttachments' to the folder view (View Settings/Columns).
Private WithEvents m_Items As Outlook.Items
Private Sub Application_Startup()
Set m_Items = Application.Session.GetDefaultFolder(olFolderInbox).Items
Private Sub m_Items_ItemAdd(ByVal Item As Object)
Dim Atts As Outlook.Attachments
Dim Props As Outlook.UserProperties
Dim Prop As Outlook.UserProperty
Dim PropName As String
PropName = "NumberAttachments"
Set Atts = Item.Attachments
Set Props = Item.UserProperties
Set Prop = Props.Find(PropName, True)
If Prop Is Nothing Then
Set Prop = Props.Add(PropName, olText, True)
Prop.Value = Atts.Count