Help in email/access

[MarkyMark]

I have created a report and I was able to attach it in an email by a
command button. I would like to add a specific email address to send
the report to every time the record changes by clicking on the button.
Here is what I currently have.

Private Sub EmailTMI_Click()
On Error GoTo Err_EmailTMI_Click

Dim stDocName As String

stDocName = "Employees"
DoCmd.SendObject acReport, stDocName

Exit_EmailTMI_Click:
Exit Sub

Err_EmailTMI_Click:
MsgBox Err.Description
Resume Exit_EmailTMI_Click

End Sub
Let's say I want to send the email to (e-mail address removed) to make it
easier to understand.

How can I add that email to the email that the file is attached to?

 

[MarkyMark]

thank you, it worked just the way I want it to do.