Email to Pager from access

[InspectorJoe]

We have pagers with email addresses. The pagers, however, cannot view attachments. Is there a way to send a query object where the query being sent is in the body of the email text instead of an attachment?

 

[braindead2]

Joe, If I understand what you are asking then you should do something like this;

dim db as database
dim rst as recordset
dim strsend as string
set db= currentdb
set rst = db.openrecordset("queryname&quot
rst.move first
do until rst.eof
strsend = rst.fields(0) & "'" & rst.fields(1) 'you pick
rst.movenext
docmd.sendobject,acformattxt,"me@here.com",,strsend,false
loop
rst.close
set db = nothing
set rst = nothing

 

[InspectorJoe]

Am I to use that code to create a module? I guess I not sure where or how to implement the code you suggested.