hbTIP : Email Body Html

[AUGE_OHR]

hi,

i got hbTIP working and can use GetBody()
now when cBody is Html ... how to "encode" and "display" it

i found in c:\hmg.3.4.4\HARBOUR\contrib\hbtip\tests\dbtohtml.prg

Code: Select all

   oDoc := THtmlDocument():new()
   ...
      ? tip_HtmlToStr( oDoc:body:getText() )

so i try it this Way and fail

Code: Select all

    cBody := aEmail:getBody()
    DO CASE
       CASE EMPTY(cBody)
       CASE "DOCTYPE html" $ cBody
       ALTD()
          cBody := tip_HtmlToStr(cBody)

can someone please tell me how "encode" and "display" Html Email