# Re: 如何按下滑鼠连结到email软体呢？

Posted by AP on November 20, 1999 at 19:26:26:

In Reply to: 如何按下滑鼠连结到email软体呢？ posted by Jonah on November 02, 1999 at 15:56:20:

: 是不是有可能，在LABEL上输入EMAIL信箱
: 然后当滑鼠click时，就进入email软体，写信呢？
: 我用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_SHOWMAXIMIZED = 3
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOW = 5

Private Sub Label1_Click()
If LEFTButton = True Then
ShellExecute me.hWnd, "open", "mailto:xxxx@xxx.net.tw", "", "", SW_SHOW
end if
end sub

Follow Ups: