Embed 2 queries in email body

[air1access]

I am messing with some code.. Sample posted below...
I need to embed 2 queries in the body of the email message. I can get 1 query embedded, but I can't get 2...!!

Any suggestions or examples...???
Thanks in advance..!!
air1access

DoCmd.OutputTo acOutputQuery, "Required Materials", acFormatHTML, "D:\UPSDATA\SMP\ReqdMaterials.htm"
Set fs = CreateObject("Scripting.FileSystemObject")
Set J = fs.OpenTextFile("D:\UPSDATA\SMP\ReqdMaterials.htm", ForReading)
MRTFBody = J.ReadAll
J.Close

With MyItem
.BodyFormat = olFormatHTML
.To = "Component EO Group"
.Subject = "Fleet EO - Notification"
.HTMLBody = MRTFBody
.Display
End With

 

[Frink]

Hallo,

Not sure about specifics of this language, but can't you create an MRTFBody2 with the text you want in the same way you create the first one and then replace:
.HTMLBody = MRTFBody
with
.HTMLBody = MRTFBody & MRTFBody2

If .HTMLBody includes a </body> you might have to get rid of it?
Just guessing really...

- Frink