Starting Internet Explorer

[Thead7]

I am trying to start Internet explorer from one of my programs and set the web page it connect to.
I can't seem to find any help for this, I have written code to start Outlook with a new blank email but not to start IE.
Any relevant web pages or comments would be much appreciated.

 

[sunaj]

Hi,

Here is a sub that launches all file that have program associated with them (like .htm files, when you have a browser installed).

----------------------------------------------------------
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

Public Function LaunchFile(TheFile As String)
Dim retval, Dummy As String, prog As String
Dim StrTmp As String


' Then find the application associated with it.
prog = Space(255)
retval = FindExecutable(TheFile, Dummy, prog)
' If an application is found, launch it!
If retval > 32 Then
StrTmp = Left$(prog, InStr(1, prog, ".exe&quot + 3) & " " & TheFile
LaunchFile = Shell(StrTmp, vbNormalFocus)
Else
LaunchFile = retval
End If
End Function
----------------------------------------------------------
Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[Thead7]

Thanks Sunaj.

 

[Guest_imported]

hi,

its easy mate all you do is click on the "e" icon on your desktop or your other internet connection button.

glad i could have been of help.

thanks mate

 

[1127]

put a label on Your form and name it lblGo

Private Sub lblGo_Click()
On Error Resume Next
Me.lblGo.HyperlinkAddress = "

http://"

& Me.lblGo.Caption
Me.lblGo.Hyperlink.Follow
End Sub