That code doesn't use RTFEditor at all or even use Redemption at all. You
said the Redemption sample didn't work. So at this point I have no idea what
you're talking about.

If you want to change the format of the text you need to use Redemption
code, the RTFEditor object and format you're text correctly for RTF
formatting.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"bbnimda" wrote in message
...
Dim CurUsr,YesNo,2Send,2Save,StampColor

Function Item_Open()
Set FormPage = Item.GetInspector.ModifiedFormPages("Tasks_ON")
Set Control = FormPage.Controls("ComboBox6")
Control.PossibleValues = "Normale;Haute"

CurUsr = application.GetNameSpace("MAPI").CurrentUser
Select case CurUsr
case "User1"
StampColor = 1

case "UserX"
StampColor = 1
end select
if len(body) = 0 then
body = & CurUsr & " " & date & chr(13)
else body = body & chr(13) & chr(13) & CurUsr & " " & date & chr(13)
end if