VBA更改任务项敏感度

Question

如果在Outlook中为任务指定了特定类别，我正在尝试将其敏感性更改为“私人”。

如果打开任务，设置类别并保存并关闭，我拥有的代码将起作用。在不打开任务的情况下更改类别不会改变灵敏度。

如何修改代码以使其正常运行？

Public Sub Initialize_handler()
    Set OlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks).Items
End Sub

Private Sub OlItems_ItemChange(ByVal Item As Object)

If Item.Categories = "Test" Then Item.Sensitivity = olPrivate Else Item.Sensitivity = olNormal

End Sub