Report to email message body

[Timoty]

Hello all once again. I have used the below method sto send email before but now I need to send information from a report (or the form for that matter) directly to the message body of an email as opposed to attaching the information. The email needs to be read on some people's blackberries and, unfortunately, those with older blackberries can't open attachments. This is what I have now.

Private Sub Command36_Click()
Dim stDocName As String
Dim EmailApp, NameSpace, EmailSend As Object

DoCmd.OutputTo acReport, "Email", acFormatRTF, "h:\email.rtf"

Set EmailApp = CreateObject("Outlook.Application")
Set NameSpace = EmailApp.getNameSpace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)

EmailSend.To = "Managers"
EmailSend.subject = "EMERGENCY"
EmailSend.Attachments.Add "h:\email.rtf"
EmailSend.Display

Set EmailApp = Nothing
Set NameSpace = Nothing
Set EmailSend = Nothing

Kill "h:\email.rtf"

End Sub

What I want to do is to send the report's information directly to the emai's message body instead as opposed to attaching the report.

Can this be done?

On a side note, if someone could tell me how to send information input into a form created in Outlook as plain text you would certainly win the price of the year in my book.

 

[Guus2005]

Search www.planetsourcecode.com for "rtf to txt" or click here

You don't always have to know the answer, just knowing where to find it is often enough!

Be creative

 

[Timoty]

Thanks Guus2005. I will check it out. I was ill all of last week so this is the first chance I have had to check.