
HTML Mailto and automatic mail
Public Function Navigate(frm As Form, ByVal WebPageURL As String)
Dim hBrowse As Long
hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", "", SW_SHOW)
End Function
Label1_Click()
'you can also put URL
End Sub
Sub Form_Load ()
Label1.mouseicon = "PATH TO HAND ICON"
Label1.mousepointer = 99
Label1.forecolor = vbblue
Label1.fontunderline = true
Label1.AutoSize = true
'This will make the label blue and change the cursor to a little hand
(which you must supply)
End Sub
Quote:
>in a VB Form.
>The goal is to put a e-mail adress in a form so that, by clicking, it
>sends an e-mail automatically.
>Thank You
>Francois from France
>STEPWARE
>99 bis, avenue du Gnral Leclerc
>75014 PARIS