You weren't too specific but since you are asking here, I suspect you mean VB6:
[CODE=VB]
Public Declare Function ShellExecute Lib "shell32.dl l" Alias "ShellExecu teA"
_
(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 cmdEmail_Click( )
Const SW_SHOW = 3
ShellExecute Me.hWnd, "open", "mailto:" & txt_EMail, vbNullString,
vbNullString, SW_SHOW
End Sub
[/CODE]
Not my code, have not tried it as of yet. Do let us know if it worked...
Comment