установить категории почты с VBA (внешний вид)

Question

Я пытаюсь установить категории всех писем в указанной подпапке c в такую ​​категорию:

Sub color_kategories()
    Dim oFolder As Outlook.Folder, oFolder2 As Outlook.Folder, oFolder3 As Outlook.Folder
    Dim oFolders As Outlook.Folders
    Dim oItems As Outlook.Items
    Dim oMail As Outlook.MailItem

    Set oFolders = Application.Session.Folders

    For Each oFolder In oFolders
        If oFolder.Name = "myname@company.com" Then
            For Each oFolder2 In oFolder.Folders
                If oFolder2.Name = "subfolder1" Then
                    For Each oFolder3 In oFolder2.Folders
                        If oFolder3.Name = "subfolder2" Then
                            Set oItems = oFolder3.Items

                            For Each oMail In oItems
                                Debug.Print "Before: " & oMail.Categories
                                oMail.Categories = "catName"
                                Debug.Print "After: " & oMail.Categories
                            Next
                        Else
                            'More Code here
                        End If
                    Next
                Else
                    'Do something Else
                End If
            Next
        End If
    Next

End Sub

В консоли я вижу, что категория установлена ​​правильно, то есть первое Debug.Print -статист возвращает пустую строку, а второй оператор возвращает "catName".

Однако сообщения в папке не обновляются, цвет сообщений не меняется. Если я снова запускаю Программу, я вижу, что первое Debug.Print -статист снова возвращает пустую строку.

Кто-нибудь сталкивался с этой проблемой и имеет решение?