Попытка изменить цветовую категорию для случайного выбора писем с помощью Outlook VBA

Question

Я пытаюсь случайным образом отобрать некоторые электронные письма и изменить их на Фиолетовую категорию.

С помощью следующего кода (с закомментированной l oop) я могу получить одно электронное письмо, которое поменяется на фиолетовый, когда я используйте Step Into , но ничего не произойдет, если я просто запустите его. Кто-нибудь видит, где может быть моя проблема?

Sub RandomEmails()

    'made this just because I couldn't get it to work with colItems alone
    Dim UseThisEmail As MailItem

    Set colItems = Outlook.Application.ActiveExplorer.CurrentFolder.Items

    intHighNumber = colItems.Count

    intLowNumber = 1

    Randomize

    'Dim i As Integer
    'For i = 1 To probably 50
    intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
    Set UseThisEmail = colItems.Item(intNumber)
    UseThisEmail.Categories = "Purple Category"
    'Next i    
End Sub