[vb6] mailto

[xegallo]

Option Explicit
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 Sub Command1_Click()
    ShellExecute 0, vbNullString, "mailto:xegallo@html.it?subject=ciao
    invio mail&body=xegallo sei troppo il migliore!", 0&, 0&, 1
End Sub