Private Sub Command93_Click()
On Error GoTo Err_Command93_Click
Dim stDocName As String
stDocName = "rptA"
DoCmd.OpenReport stDocName, acViewPreview, , "[EmpID] = " & Me.EmpID & ""
DoCmd.SendObject acSendReport stDocName, "RichTextFormat(*.rtf)", "Someone@Somewhere.com", "Cc", "Bcc", "Subject", "Message", True
Exit_Command93_Click:
Exit Sub
Err_Command93_Click:
Err.Clear
Resume Exit_Command93_Click
End Sub