Email

wie muss ich den nachfolgenden Code abändern, damit eine geschlossenen Arbeitsmappe als Anhang mit versendet wird

Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub