Pasting RTF text into Outlook note

I am using VB6, MS SQL Server and MS Office 2003.

I have the following function that accepts several Outlook related parameters and uses them to prepare a note and either send it or display it depending on the contents of the "Method" param. I was originally getting all of the data from various fields from a SQL database, putting in some HTML formatting tags and sending it on its merry way. That worked wonderfully.

Then I was asked to provide the users a way to format part of the text on their own from within my application. I found a neat control from TX Text Control to use for my purposes and save the contents of that text control as an .RTF file. My issue now is how to retain or recreate the formatting I have as HTML while programmatically inserting the contents of the .RTF file at a specific point in the Outlook note?

My current code which works just fine...

VB Code:

Function SendHTMLeMail(ToList As String, CCList As String, BCCList As String, _
                   SubjectText As String, MsgText As String, Method As String) As Boolean
'***************************************************************
'    Purpose: Sends or displays an Oulook message
'      INPUT: ToList:     ID's that will go on the To: line
'             CCList:     ID's that will go on the CC: line
'             BCCList:    ID's that will go on the BCC: line
'             SubjectText:Text for the subject line
'             MsgText:    Text for the body of the message
'             Method:     String to determine to Send or Display
'     Output: True or False
'***************************************************************
 
  Dim olMAPI As New Outlook.Application
  Dim itmMail As Outlook.MailItem
  
  Set itmMail = olMAPI.CreateItem(olMailItem)
  With itmMail
    .To = ToList
    .CC = CCList
    .BCC = BCCList
    .Subject = SubjectText
    .BodyFormat = olFormatHTML
    .HTMLBody = "<HTML><Head></Head><Body>"
    .HTMLBody = .HTMLBody & "<table border=0 align=center><tr bgcolor=tomato><td align=center><font style=color:white;font-size:14pt;>This automated message is being sent to you by the Proprietary Document Central (PDC) website.<br>You will find important information and/or instructions below this announcement.</font></td></tr>"
    .HTMLBody = .HTMLBody & "<tr bgcolor=OldLace><td><hr></td></tr>"
    .HTMLBody = .HTMLBody & "<tr bgcolor=OldLace><td><font style=color:navy;font-size:12pt;>" 
 
    .HTMLBody = .HTMLBody & "<tr bgcolor=OldLace><td><font style=color:navy;font-size:12pt;>" & MsgText & "</font></td></tr>"
 
    .HTMLBody = .HTMLBody & "<tr bgcolor=OldLace><td><hr></td></tr></table>"
    .HTMLBody = .HTMLBody & "</body></html>"
  End With
  
  If Method = "Send" Then
    itmMail.Send
  Else
    itmMail.Display
  End If
 
 
End Function

I can automate Word to open the .RTF file and copy the contents...

VB Code:

Dim oApp As New Word.Application
  Dim oAbstractDoc As Word.Document
  Dim oAbstractRange As Word.Range
 
    oApp.Visible = True
    Set oAbstractDoc = oApp.Documents.Open(RTFFileName)
    Set oAbstractRange = oAbstractDoc.Range
    With oAbstractRange
      .Select
      .Copy
    End With

...but then, how can I get the copied .RTF text pasted into the Outlook note?

I'm sorry if this went on too long, but I'd rather give too much instead of too little information. Many thanks for your help.

Zero_Duck