Sub RTF_email()

    Dim EmailHTMLFile As Integer
    Dim EmailHTMLFilePath As String
    Dim newFileContents As String
    Dim OutApp As Object
    Dim OutMail As Object


    EmailHTMLFilePath = "D:\Stuff\Email template.rtf"
    EmailHTMLFile = FreeFile()
    Open EmailHTMLFilePath For Input As #EmailHTMLFile

    'Reading the Email contents into an array which e are going to use and manipulate from here
    newFileContents = Input$(LOF(EmailHTMLFile), #EmailHTMLFile)
    Close #EmailHTMLFile


       Set OutApp = CreateObject("Outlook.Application")
       Set OutMail = OutApp.CreateItem(0)

       ' Change the mail address and subject in the macro before you run this procedure.
       'On Error Resume Next
       With OutMail
        .to = "mlw@sierrawireless.com"
        .CC = ""
        .BCC = ""
        .Subject = "Test Email"
        .BodyFormat = 3
        .RTFBody = newFileContents
        
        .Display
       End With
        
End Sub