ما هو كود إرسال بريد Mailto

السلام عليكم..

ما عو الكود الي يقوم باستدعاء برنامج إرسال الرسائل الافتراضي (OutLook) لإرسال رسالة إلى البريد المحدد

على الرغم من سجاذة الكود ...لم أجد حتى الآن بال MSDN ..حاولت تطيبق الكود الذي كنا نستخدمه في vb6.

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 = 5

Private Sub Form_Load()
	ShellExecute hwnd, "open", "mailto:vbcode@vbcode.com", vbNullString, vbNullString, SW_SHOW

End Sub

ولم ينجح .. حاولت تحويل الكود و لكن المحول في النسخة الي عندي فيه مشاكل على مايبدو.