thank Ken,

unfortunately, it does get blank everytime I use this code.

Btw, I tried your offered suggestion. However I'm not quite sure I
understood it, because now I get a compile error:
" Method or data not found" - with the new code line highlighted

should I make anymore changes in the code so that your offered change
would work?

Thanks

'Ken Slovak - [MVP - Outlook Wrote:
;438482']There's no reason I can see for subject to become blank.

If this is running in the Outlook VBA project use Application and don't
ever
use CreateObject or New:

If Not Application.ActiveInspector Is Nothing Then

etc.

--
Ken Slovak
[MVP - Outlook]
'Slovak Technical Services Home' (http://www.slovaktech.com)
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
'Slovak Technical Services Products'
(http://www.slovaktech.com/products.htm)


"newED" wrote in message
...

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: 'The Code Cage Forums - View Profile: newED'
(http://www.thecodecage.com/forumz/member.php?userid=603)
View this thread:
'A code that adds category to an outgoing mail message in outlook -
The Code Cage Forums'
(http://www.thecodecage.com/forumz/sh...d.php?t=121671)



--
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