#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