TextBox - Email hyperlink

[Xavier Lopes]

Je vraiment besoin que quelquún m´aide a trouver une solution sur ca:
J´ai un texBox qui se remplit de l´adresse electronique des societes que je choisis dans un ComboBox. Mais seulement je voudrais que ces adresses en s´affichant sur le textbox me permette de cliquer dessus et d´ouvrir outlook et me permettre d´envoyer un message a cette adresse. Donc qu´ils aient hyperlink. Je crois que vous comprenniez
Merci

 

[titin]

salut xavier

ajoute un bouton à ton userform et asigne lui cette macro

Private Sub CommandButton1_Click()

Dim MailAd As String
Dim URLto As String

If TextBox1.Value = '' Then Exit Sub

MailAd = TextBox1.Value
URLto = 'mailto:' & MailAd
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub


A+

 

[Xavier Lopes]

Merci beaucoup de votre aide...cela a marcher...mais il y a encore une petite chose. je voudrais que le sujet du message aussi provienne d´une textbox aussi se trouvant dans le formulaire.
est il aussi possible d´envoyer une copie conforme a une autre adresse toujours se trouvant dans un autre textbox? si oui...comment recuperer cette adresse??

Message envoyer a:
CC a:
Sujet: