Problema con ShellExecute

"Jaime" escribió:

He utilizado el método ShellExecute para que un programa
me abra una página web cuyo link es el caption de un
control label y para mandar un email.

Hola, Jaime:

Siempre y cuando tengas bien declarada la función
API «ShellExecute», entiendo que se tiene que abrir la
dirección web especificada en el navegador predeterminado
de tu sistema (en el caso del evento «lblWeb_Click»), y el
programa de correo electrónico predeterminado (en el
evento «lblEmail_Click»).

Si la función termina correctamente, su valor de retorno
será un número mayor de 32, por lo que es mejor que
declares una variable tipo «Long» para verificar el valor
devuelto:

Private Sub lblWeb_Click()

Dim dl As Long

dl = ShellExecute (Form1.hWnd, "Open", lblWeb.Caption, _
vbNullString, "", 0)

If dl > 32 Then
MsgBox "La función se ha ejecutado correctamente."
End If


End Sub

Sin embargo, no se si es debido a esto o no, el
explorador no me funciona correctamente. Algunos links
no se ejecutan. ¿Alguien sabe si puede ser debido a
esto, y como resolverlo?

Si posteriormente tu navegador no ejecuta algunos links,
ignoro el motivo al que se pueda deber, pero no creo yo
que se deba a la utilización de la función
API «ShellExecute».

Un saludo.

Enrique Martínez
[MS MVP - VB]