Textbox et adresse Email

Bonjour,

Il vaut mieux l'affecter à uncontrôle Label...
Procédez alors comme suit:

Private Sub lblEmail_Click()
Dim lOpenMailbox As Long
Dim strCommand As String

'Pour Outlook
strCommand = "C:Program FilesMicrosoft OfficeOfficeOUTLOOK.EXE -c
IPM.Note /m mailto:" & lblEmail.Caption
lOpenMailbox = Shell(strCommand, vbMaximizedFocus)
End Sub

Private Sub lblEmail_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
lblEmail.ForeColor = RGB(128, 0, 255)
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
lblEmail.ForeColor = 0
End Sub

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour,

Est il possible de mettre dans un textbox, une adresse Email qui lance le
logiciel de messagerie ?

Merci par avance
José