vba - vbaで新しい受信Outlookメールのカテゴリを永久に変更する方法は?

Question

新しいメールを受信したときに、次のことをしようとしています。

Sub CheckReadReceipt(myMail As Outlook.MailItem)

If (myMail.ReadReceiptRequested = True) Then
    myMail.Categories = "Read Receipt Requested"
    myMail.Save
    'MsgBox "Read receipt for " & myMail.Subject & " found!"
    'eventually do something more creative..
End If

 End Sub

残念ながら、実際には新しく受信した電子メールのカテゴリは保存されません。明らかに何かが欠けています。

すべての受信メールのルールを介してこれを呼び出しています (これは、MsgBox を正しく表示することで正常に処理されます)。