Tagging messages - code

[NewED]

I have outlook 2003.

I use the following macro in order to tag an outgoing message by category and by message sensetivity.

Public Sub TagMessage()
ActiveInspector.CurrentItem.Categories = "business"
ActiveInspector.CurrentItem.sensetivity = olsensetivity
End Sub

However each time I use this macro, the subject line is deleted from the mail.

What is the reason ?

[NewED]

Is it a complex code?

[Crocus Crow]

This works for me in ThisOutlookSession.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Item.categories = "Business"
Item.Sensitivity = olPrivate
End Sub