Private Sub SendEmail_Click()
DoCmd.SendObject acSendReport, "MRqsttoManager", acFormatRTF, "hoang.hai.ngoc@gmail.com,,", "tran.trong.binh@gmail.com,,", , "M-CR:You have Received New Material Requestions"
End Sub
Vấn đề nữa là máy bạn đã cài sẵn outlook rồi thì mới automatic một email được.