Another Text Formating Question

[Fred in Thailand]

The following script is used in my messaging solution to reply to messages.

Freeze Window

Set Error Capture [ On ]

Set Variable [ $ReplyTo; Value:Messages::From ]

Set Variable [ $ReplyFrom; Value:Messages::EmployeeID ]

Set Variable [ $OriginalMessage; Value:Messages::Message ]

Go to Layout [ “Reply” (Messages) ]

New Record/Request

Set Field [ Messages::From; $ReplyFrom ]

Set Field [ Messages::EmployeeID; $ReplyTo ]

Set Selection [ Messages::Message; Start Position: 1 ]

Insert Calculated Result [ Messages::Message; TextColor ( ¶ & ">" & $OriginalMessage; RGB ( 250; 0; 0) ) ]

Set Selection [ Messages::Message; Start Position: Get(ActiveSelectionStart)+2 ]

Pause/Resume Script [ Indefinitely ]

Show/Hide Status Area [ Hide ]

Go to Layout [ original layout ]

It does exactly what i want it to do except for one thing. After i reset the start position i want the new text that is typed in to be black not red. I have tried to add a textformat function after the last set selection step but it does nothing.

Any ideas?

[_henry_]

Hello Fred,

Greetings !

Have you tried to remove the color with TextColorRemove(text{;RGB(red;green;blue)})?

[Lee Smith]

or

TextStyleRemove ( text ; styles )

Lee

[Fred in Thailand]

Tanks again guys,

Henry,

?

This is the script I came up with. It seems to do exactly what i want it to do.

Any comments greatly appreciated... This is the way I learn. Only problem is at my age I forget what I learn on a daily basis... (OLD AGE SYNDROME)

Reply_Script.pdf