eMail mit Anhang öffnen VB

Hallo

Ich kann eine eMail durch ein Vb-Programm öffnen (mit Adresse, Betreff 
und  Text ausgefüllt) aber die angegebene Datei wird nicht angehängt.
Der Pfad ist ok.
Wo liegt bitte der Fehler?
Danke.

Call Mail(varBestEmailAdr, varBestEmailBetreff, varBestEmailText, 
varBestListName, varFileSend)

*****



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

end sub