Item don't save

[Benoit Greuzat]

I use this code to add a text to a message body :

Sub moretxt_Click()
Dim more
more = Item.UserProperties.Find("Text").value
Item.Body = Item.Body + more
Item.UserProperties.Find("Text")=""
End Sub

In Outlook 2002 it's works fine. but in outlook 2003 outlook doesn't detect
that the item has been modified and then don't ask to save.

Thanks for you help.

Benoit