Help in email/access

M

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 [email protected] to make it
easier to understand.

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