Metti questo in un modulo:
codice:
Option Explicit
Public Const SW_SHOW = 1 'Dichiarazione costanti
Public 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 'Dichiarazione API
'**********************************************************************
'* Funzione utilizzata x richiama il browser o il mailer predefinito. *
'**********************************************************************
Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
Dim hBrowse As Long
hBrowse = ShellExecute(frm.HWnd, "open", WebPageURL, "", "", SW_SHOW)
End Sub
e ovunque vuoi (basta che hai un form a disposizione)
codice:
Navigate nomeform, "http://www.html.it"
Ti apre il browser di default
E anche:
codice:
Navigate nomeform, "mailto:sebamix@hotmail.com"
Ti epre il programma di posta predefinito per mandare una mail.
:mavieni: