SendMail[ "To" -> "bobexample@wolfram.com", "Subject" -> "Mathematica Sound", "Body" -> { "Here's a sound file I generated in Mathematica.", Sound[{Play[Sin[1000 t (1 + t^2)], {t, 0, .2}], Play[Sin[500 t (1 + t^3)], {t, 0, .5}]}] } ];