E-Mail mit ShellExecute und Anhang?

Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
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
Sub MailVersenden()
Dim EMAIL As String, Subject As String, Body As String, anhang As String
EMAIL = "test@test.de"
Subject = "Nachricht von "
Body = "Hallo das ist die Nachricht"
Call Mail(EMAIL, Subject, Body)
End Sub

Vielen Dank für eure Hilfe