Link to home
Create AccountLog in
Avatar of mimoben
mimoben

asked on

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
ASKER CERTIFIED SOLUTION
Avatar of pearlsoft
pearlsoft

Link to home
membership
Create an account to see this answer
Signing up is free. No credit card required.
Create Account