RTF to HTML

Hi,
I tried also to send email from RichText  control.
I tried also to send RichText format programmatically from Outlook object but the I got "ject doesn't support this property or method " Error.
The line .BodyFormat = olFormatRichText is the origin of this error.
    Dim oLapp As Object
    Dim oItem As Object

   Set oLapp = CreateObject("Outlook.application")
   Dim olNs As Outlook.NameSpace
   Set olNs = oLapp.GetNamespace("MAPI")
   olNs.Logon

    Set oItem = oLapp.CreateItem(0)
    '
    With oItem
      .subject = subject
       .To = recipient
       .BodyFormat = olFormatRichText
       .Body = message
       .Send
    End With
    '
    Set oLapp = Nothing
    Set oItem = Nothing

Another alternative is sending email in HTML format. But I need to I need to convert RichText Box format to  HTML witch is not easy.
Thank you in advance for any help. Regards