И опять отправка почты

[Saper]

Нашел с сети примерчик:
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_SHOWNORMAL = 1

Private Sub cmdSendIt_Click()
Dim sText As String
sText="mailto:ppppp@mega.ru?Subject=Проба&Body=Тело Письма&Attach=""c:\readme.txt"""
Call ShellExecute(1, "open", sText, _
vbNullString, vbNullString, SW_SHOWNORMAL)

EndSub

Вроде работает, формирует письмо, открывает The Bat!, но вот аттач никак нехочет пристегивать. Можно ли это побороть?
И еще: какое значение имеет первый параметр ShellExecute?