This is the way that I am doing it now:
==============================================
DoCmd.OpenReport stDocName, acPreview, , "[ID] =" & Me![ID]
DoCmd.SendObject acReport, "New User Report", "SnapShot Format", _
"my.name@work.com", , , "User Request Form", "User Request", False...