Forgot to add my code:

Code:
Private Sub cmdMail_Click()
On Error GoTo Err_cmdMail_Click
    Dim stDocName As String
    stDocName = "Report Name"
    DoCmd.SendObject acSendReport, "Report Name", "Snapshot Format", , , , "Message Subject", "Message Text"
    
Exit_cmdMail_Click:
    Exit Sub

Err_cmdMail_Click:
    MsgBox
...