Hyperlinks and email addresses..
>I need some help guys..
>I need to be able to include clickable links on my forms.
>One more my email address and one for my URL
>For the email click it needs to launch the users email program so that they
>are ready to compose a message.
>For the URL it needs to launch their web browser and go to the URL.
To open a URL with your default browser:
Private Const SW_SHOWNORMAL = 1
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 Declare Function GetDesktopWindow Lib "user32" () As Long
'Then, to open the URL (stored in sURL) :
Dim rc as Long
rc = GetDesktopWindow()
rc = ShellExecute(rc, "open", sURL, vbNullString, "C:\",
If rc <= 32 Then
MsgBox "Unable to connect to web site.", vbExclamation
Hope this helps,