Access Report as Email Body 3

[sunmorgus]

Hello all, I have a quick question. I use the code from faq705-1634 to send multiple report attachements via email, but I would like to know if it is possible to make one of these reports the body of the email. Can anyone help me figure this out? Thanks!

 

[2Grandpa]

The linked FQA sets up the body of the messsage with this satement:

mobjNewMessage.Body = aBody

You have to set 'aBody' to the message text you want.

aBody = myreportname

 

[sunmorgus]

Well, I tried that already, and all that does is put the name of my report in there as text.

 

[Remou]

Hi
Something like this? The idea is to save the report as HTML or RTF, then read it in:

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\Report.rtf", ForReading)
RTFBody = f.readall
f.Close
'Then
aBody=RTFBody

You could also use:

Open "C:\Report.rtf" For Input As #1   
Do While Not EOF(1)
    Line Input #1, TextLine
    RTFBody = RTFBody & TextLine
Loop
Close #1

The above example is RTF, if you want to use a HTML report, you need change .Body to .HTMLBody.

 

[Remou]

Please insert into the first snippet of code above:
Const ForReading = 1, ForWriting = 2, ForAppending = 3

 

[sunmorgus]

Thanks! I will give that a try and report back.

 

[sunmorgus]

Hopefully I won't sound too dumb by asking, but what do I declare fs and f as?

 

[JerryKlmns]

If you dont select the Microsoft Scripting Runtime

Dim fs As Object
Dim f As Object

Else

Dim fs As Scripting.FileSystemObject
Dim f As Object

 

[sunmorgus]

You are a friggin' genius. Thanks man!

 

[JerryKlmns]

I think Remou would appreciate aknowledgement, too. He did the most of it if not all ..........

 

[sunmorgus]

Sorry remou, that is what I get for paying attention. Excellent job by the way, exactly what I needed!

 

[Sirey4]

Is there any possible way to do this without having to save the file and go back and delete it? I'm looking for a solution to a similar problem but I don't want it saved on the clients computer.

 

[Sirey4]

bump