abrir mail default con adjunto

[damid3]

Hola gente como va ?
bueno el tema es el siguiente quiero que abra un mail ( el q este por default ej si es el outlook o incredimail o el q sea) y ponerle subject attach y body. uso el siguiente codigo

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Navigate("mailto:[email protected]?subject=" & _
                 "tt&body=" & _
                 "te&attach=" & _
                 "c:\asd.txt")
End Sub
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 Const SW_SHOW = 1
 
Public Sub Navigate(ByVal NavTo As String)
        Dim hBrowse As Long
        hBrowse = ShellExecute(0, "open", NavTo, "", "", SW_SHOW)
End Sub
 

el punto es q no me agrega el adjunto, alguna idea ??

Saludos