This code adds a category name to an outgoing mail message in outlook.
However when using it - the subject disappears. Do you happen to know
why and how to fix it ?

Public Sub TagMessage()
Set objOL = CreateObject("Outlook.Application")
If Not objOL.ActiveInspector Is Nothing Then
Set objItem = objOL.ActiveInspector.CurrentItem
objItem.Categories = "my category"
End If
End Sub

Thanks for your help


--
newED
------------------------------------------------------------------------
newED's Profile: http://www.thecodecage.com/forumz/member.php?userid=603
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=121671