Datei mit e-Mail versenden über Visual Basic

Hallo

Mit dem nachfolgendem Code kann ich  eine e-Mail im Outlook öffnen und 
versenden. Ich möchte jedoch noch einen Datei hinzufügen, ist dies 
möglich?
Bitte,Danke.


Private Sub Command1_Click()
   Call Mail("empfaenger@provider.de", "Ein Betreff", "Vorgabetext")
End Sub

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