Mathematicaでgmailからメールを送る

Mathematica 
SendMail["To" -> "(送信先のアドレス)", 
 "Subject" -> "GMail Test Message", 
 "Body" -> "Test email sent via GMail.",
 "From" -> "(gmailのメールアドレス)@gmail.com",
 "Server" -> "smtp.gmail.com",
 "PortNumber" -> 587, 
 "EncryptionProtocol" -> "StartTLS",
 "UserName" -> "gmailアカウントのusername",
 "Password" -> "gmailアカウントのパスワード"]

まさに誰得。
問題はここからです。

SendMail["To" -> "(送信先のアドレス)", 
 "Subject" -> "GMail Test Message", 
 "Body" -> {"Test email sent via GMail.",
Sound[Play[Sin[4 Pi t]^2 Sin[440 2 Pi t], {t, 0, 1}]],
CreateDocument[{x + y, 1/x + 1/y}]
},
 "From" -> "(gmailのメールアドレス)@gmail.com",
 "Server" -> "smtp.gmail.com",
 "PortNumber" -> 587, 
 "EncryptionProtocol" -> "StartTLS",
 "UserName" -> "gmailアカウントのusername",
 "Password" -> "gmailアカウントのパスワード"]

Bodyの部分はリストの形で書くこともできて、例えば上の例だとSoundとCreateDocumentが渡されてます。
受信側では何とも気持ち悪いことに、それぞれwavファイルとnbファイル(mathematicaのファイル形式)の添付という形で送信されます・・・