Email rtf file as Body rather than attachment

[jasonphillipstx]

I have an rtf file created by using the docmd.output method and I want to send it as the body and not as an attachement. Is there a way to do this?

 

[Remou]

Hi
This seems to work, but I imagine there is a better way:

Sub RTFBody()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Dim RTFBody
Dim MyApp As New Outlook.Application
Dim MyItem As Outlook.MailItem

'Using the FileSystemObject to read in RTF
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\MyFile.rtf", ForReading)
RTFBody = f.readall
f.Close

'Create email
Set MyItem = MyApp.CreateItem(olMailItem)
With MyItem
    .To = "Contact@hotmail.com"
    .Subject = "Subject Line"
    .Body = RTFBody
End With

'Show email
MyItem.Display
End Sub