Outlook VisualBasic Script

Sub TestSendObject()
    DoCmd.SendObject acSendTable, "tblEmployees", acFormatXLS, "someone@yahoo.com", , , "Employee List", "For your review.", False
End Sub