Email a single Report?

[Patrick]

I am trying to create a button on the form to generate an email with the
active page as an attachment, the only thing I have been able to do so far is
attach all messages to the email. This is the command I have so far but it is
attaching all messages to the email.

stDocName = "Phone Message"
DoCmd.SendObject acSendForm, stDocName

Any and all help is appreciated, thanks in advance.

 

[Patrick]

For clarification my question is how do I filter the email report to only
show the current/active page?