How do i launch default HTML Editor or any External Application

[Srinu Tulluri]

How do i launch default HTML Editor or any External Application from an activex
control..

Thanks in advance
Srinu

[Bernie]

"Srinu Tulluri" <stulluri@siebel.com> wrote:
>
>How do i launch default HTML Editor or any External Application from an
activex
>control..
>
>Thanks in advance
>Srinu

[Bernie]

"Srinu Tulluri" <stulluri@siebel.com> wrote:
>
>How do i launch default HTML Editor or any External Application from an
activex
>control..
>
>Thanks in advance
>Srinu

[Bernie]

"Srinu Tulluri" <stulluri@siebel.com> wrote:
>
>How do i launch default HTML Editor or any External Application from an
activex
>control..
>
>Thanks in advance
>Srinu

Hi Srinu

Put this in a module and call function ViewURL(<any valid URL>).
'================================================================
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

Public Sub ViewURL(ByRef URLAddress As String)

'Don't do anything if no address is supplied...
If URLAddress = vbNullString Then Exit Sub

'Launch default browser whatever that might be...
Call ShellExecute(0&, _
vbNullString, _
URLAddress, _
vbNullString, _
vbNullString, _
vbMaximizedFocus)

End Sub
'=================================================================

Regards
Bernie

[Bernie]

"Srinu Tulluri" <stulluri@siebel.com> wrote:
>
>How do i launch default HTML Editor or any External Application from an
activex
>control..
>
>Thanks in advance
>Srinu

Hi Srinu

Put this in a module and call function ViewURL(<any valid URL>).
'================================================================
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

Public Sub ViewURL(ByRef URLAddress As String)

'Don't do anything if no address is supplied...
If URLAddress = vbNullString Then Exit Sub

'Launch default browser whatever that might be...
Call ShellExecute(0&, _
vbNullString, _
URLAddress, _
vbNullString, _
vbNullString, _
vbMaximizedFocus)

End Sub
'=================================================================

Regards
Bernie