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


"Ken Slovak - [MVP - Outlook]" a écrit dans le message
de news: ...
A task item will have an RTF body. So what code did you use that gave you
the error? You didn't answer my question.

--
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
...
I did nothing else than openning a new task and customise it and add
script to and some function
I saved my form and populate it in Public Folder (Excahnge 2003)

Q1: How can I set an RTF item
Q2: My form is in the "Public Folder" the RTF format will be available
for every user ?

tks