I have done this using this code :
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim strUsr As String
DoCmd.Close , , acSaveYes
strUsr = InputBox("Who do you wish to e-mail this report to ? : ", "E-mail to ")
DoCmd.SendObject acSendReport, , "SnapShot Format(*.snp)", strUsr, , , "Committee Summary Report", , False
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
You will be asked who you wish to send the report to, and it will be done.
You may need to play with this a little, and change some of the details to coincide with your database.
HTH,
Lee.