XL 2013 ouvrir outlook via clic sur label

[grisan29]

bonjour a tous

dans un fichier que je teste je voudrais lancer la procédure d'ouverture d'outlook via le clic sur un label quand l'addresse mail est rentrer dans un textbox
j'ai trouvé un code pour le faire mais je bug au clic sur le label

dans le classeur ou j'ai trouvé le code le label apparait quand l'adresse mail est inscrite et qui redimensionne le textbox en fonction
donc je bloque ici

Private Sub LBoutlook_Click()
ouvre_outlook==================<' erreur de sub
End Sub

[CODE]Private Sub ouvre_oulook()

j'ai fini par trouver la création du post mis a aider la sub n'aime pas les _

 

[jecherche]

Re : ouvrir outlook via clic sur label

Bonsoir Grisan

À tester :

Private Sub LBoutlook_Click()
Dim RetVal
' Exécute Outlook.
RetVal = Shell("OUTLOOK.EXE", 1)
End Sub

Jecherche