Can't set the meeting importance using Redemption and New Mail

[newscorrespondent]

I am trying to set the importance of a meeting notice from the new mail
event using redemption using this code:

If ((PR_OBJECT_TYPE_VALUE = 5) _
And (PR_MESSAGE_CLASS_VALUE = "IPM.Schedule.Meeting.Request")) Then
Const PR_IMPORTANCE = 1507331 '23 ' for meeting messages
Dim PR_IMPORTANCE_VALUE As Long
PR_IMPORTANCE_VALUE = SafeMailItem.Fields(PR_IMPORTANCE)
Debug.Print "PR_IMPORTANCE_VALUE 1(" & PR_IMPORTANCE_VALUE & ")"
SafeMailItem.Fields(PR_IMPORTANCE) = olImportanceHigh
PR_IMPORTANCE_VALUE = SafeMailItem.Fields(PR_IMPORTANCE)
Debug.Print "PR_IMPORTANCE_VALUE 2(" & PR_IMPORTANCE_VALUE & ")"
End If

PR_IMPORTANCE_VALUE 1(1)
PR_IMPORTANCE_VALUE 2(2)


I am able to read the initial value. Set it to a new value, look at the new
value. But when I look at the item in my in box the value has not changed.

What did I not do?

Thanks
Tom G.

 

[Sue Mosher [MVP-Outlook]]

Do you also have a statement that saves the item?