Как назначить категории в Outlook с VBA после сканирования вложений

Question

Я довольно новичок в VB / VBA и хочу создать макрос, который будет сканировать вложения из полученного электронного письма и автоматически классифицировать их для меня. Я немного покопался и придумал это из нескольких источников.

Sub CategorizeEmails(Item As Outlook.MailItem)
Dim olkAtt As Outlook.Attachment
'Check each attachment
 For Each olkAtt In Item.Attachments
    'If the attachment's file name ends with .dwg
    If Right(LCase(olkAtt.FileName), 4) = ".dwg" Then
        'Categorize email
        Item.Categories = "Native Files;Drawings/Model Shots"
        Exit For
    End If
Next
Set olkAtt = Nothing
End Sub

сейчас это не работает для меня с тестами, которые я сделал.

Я снова включил запуск сценария из реестра, поскольку хочу, чтобы это правило применялось ко всей получаемой почте, а не только из папки «Входящие».

Любое понимание приветствуется.