Application VisualBasic Script

Sub mail()
     DoCmd.SendObject acSendTable, "tblIceCream", acFormatXLS, _
            "A", "B; C", _
            "d@w.com", "Prices", _
            "our latest price list."
End Sub