Lien Hypertext VBA Outlook 2003 [Résolu]

[crashyear]

Bonjour,

Je suis en train de développer une application en vba sous outlool 2003, et je voudrais mettre un lien vers l'intranet de mon entreprise dans mon "userform".
Celui-ci se déclencherai sur un évènement "click" d'une image.
Comme je suis un peu débutant en vba je ne sais pas comment faire, pouvez-vous m'aider svp?

Merci d'avance.

[wape]

Bonjour,

Une possibilité serait de passer par l'API ShellExecute :

Dans un module

Code :

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowcmd&) As Long

Dans le userform

Code :

1
2
3
4
5
Private Sub Image1_Click()
 
ShellExecute 0, "open", "http://www.developpez.com", "", "", vbNormalFocus
 
End Sub

wape

[ThierryAIM]

Envoyé par wape

Une possibilité serait de passer par l'API ShellExecute :

et je n'en vois pas d'autre

en cadeau le petit curseur qui va bien
MousePointer = 99 - custom
et charger la propriété MousePointer avec le curseur personnalisé

[crashyear]

Merci

Ca fonctionne très bien, c'est exactement ce qu'il me fallait.
Juste un truc pour ceux qui un jour peut-etre utiliseront ceci, il faut bien mettre le ...

Code :

1
2
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowcmd&) As Long

... au début du module, sinon il risque d'y avoir une erreur si vous avez d'autres fonctions dans votre module.

Pour le curseur c'est de la transmission de pensé... car c'est ce que je cherchais depuis vendredi aprés-midi.
Dis moi tu l'as trouvé où? et est-ce que tu sais ou je peux trouvé ce type d'image?
Merci encore.