outlook vba 分類項目の変更が保存されない

実現したいこと

outlook vbaで分類項目を変更してメールを保存したい

発生している問題・分からないこと

分類項目を変更して、メールを保存しようとするとエラーが表示されます。
分類項目の変更は、メール受信したイベントで行っています。

エラーメッセージ

error

1メッセージが変更されたために、機能は実行できません 2とエラーメッセージが表示されます

該当のソースコード

outlook

1Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 2Dim myItem As Outlook.Items 3Dim objId As Object 4 5Set myNamespace = GetNamespace("MAPI") 6Set objId = myNamespace.GetItemFromID(EntryIDCollection) 7 8objId.Categories = "test" 9objId.Save 10 11End Sub

試したこと・調べたこと

上記の詳細・結果

エラーメッセージで調べましたが、解決する内容が見つかりませんでした

補足

特になし