#6625
rfaude
Participant

Thanks for the information. Here is the function which do the work.

Function PlainToRTF(cBodyText)

dim iList
dim Msg

set iList = Utilities.StringList

iList.Text = cBodyText

for iCount = 0 to iList.Count – 1
if (iCount = 0) Then
Msg = “{” & iList.Strings(iCount) & “}”
else
Msg = Msg & “{par ” & iList.Strings(iCount) & “}”
end if
next

PlainToRTF = Msg

End Function

Best Regards

Ralf