Discussion :

[tremens]

Bonjour,

J'arrive au bout de mon code et j'aimerai insérer mon adresse e-mail pour contact en cas de problème ou d'information.

J'ai inséré la dite adresse, mais celle-ci n'est pas soulignée, donc pas de lien avec outlook.

merci pour aide

tremens

[sabzzz]

bonjour tremens,

dans cet exemple le Label1.Caption est = à l'adresse courriel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
With Me.Label1
.ForeColor = RGB(0, 0, 255)
.Font.Underline = xlUnderlineStyleSingle
End With
End Sub
 
Private Sub Label1_Click()
ActiveWorkbook.FollowHyperlink Address:="mailto:" & Label1.Caption, NewWindow:=True
End Sub
 
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.MousePointer = 14
End Sub

isabelle

[tremens]

Merci Isabelle, je vais l'intégrer à mon code...