I set olImportanceHigh but i outlook,the priority change to low?

[viwow]

Sub test()

Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim i As Long


Set objOutlookMsg = objOutlook.CreateItem(olMailItem)With objOutlookMsg
..To = "***"
..Subject = "*** "
..HTMLBody = "****"
..Importance = olImportanceHigh
..Send
End With
Set objOutlook = Nothing
End Sub


I use the code above ,I think i have set mail priority correctly,but in
outlook 2007,i see the sended mail's proprity is still low?
why?

Thanks a lot.