Email via résultat ListView
Salut à Tous,
Besoin de Votre Aide S.V.P.
Dans un ListView, est-ce possible quand cliquant sur l'adresse Email du résultat de la ListView, (Voir Photo),
qu'Outlook puisse ouvrir avec l'adresse du destinataire?
Merci Beaucoup.
Jean
Je joins mon fichier via:
https://www.cjoint.com/c/EAcrYaYkuqt
Hello,
Quand je clique sur le lien hypertexte, ça m'ouvre bien mon client de messagerie. A moins que tu veuilles envoyer le résultat ?
Salut SoumZoum,
Merci pour avoir répondu.
Mais ce que j'aimerais, c'est que Outlook ouvre dans la ListView (UserForm) via la colonne Courriel,
car la feuille de calcul est cachée.
Merci.
Jean.
Alors c'est biennnnnn au-delà de ce que je sais faire.
Par contre, avec ça tu devrais pouvoir t'en sortir :
http://www.vbaexpress.com/kb/getarticle.php?kb_id=597
Ca a pas l'air si compliqué.
Si ça ne marche pas, y'a pu qu'à rajouter un bouton :0)
Bon j'ai tripatouillé rapidement.
Private Sub TextBox1_Change()
'Force la Majuscule ds le TextBox'
TextBox1 = UCase(TextBox1)
ThisWorkbook.FollowHyperlink Address:="mailto:" & Range("I2")
End SubJ'ai vu, je sais plus où dans ton code, que tu prenais la cellule "I2" comme référence pour le la colonne "courriel" de ta listview.
Du coup, remplace le code de TextBox1 par celui que je viens de te donner. Chez moi, en cliquant sur la listbox ça fonctionne
Salut SoumZoum,
C'est un bon début, Outlook ouvre en cliquant sur la ligne sélectionnée dans la ListView.
Mon idéal, c'est qu'Outlook ouvre en cliquant dans la colonne Courriel seulement.
Je vais continuer à travailler sur ton code.
Un GROS MERCI pour ton aide.
Jean
j'ai plus ton code sous la main mais de deux choses l'une :
Soit la ligne entière ne fait qu'un bloc et auquel cas il faut essayer de jouer avec les coordonnées;
Soit je n'ai pas pointé le bloc correspondant au courriel, auquel cas il faut que tu trifouilles.
Salut SoumZoum,.
Avec ce code, Outlook ouvre en un double clic dans le TextBox Courriel avec l'adresse du
destinataire. Dans ta réponse, le code proposé m'a fait penser à TextBox au lieu de ListView.
Un Gros MERCI de ton AIDE.
Jean.
Private Sub TextBox8_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ThisWorkbook.FollowHyperlink "mailto:" & Me.TextBox8.Text
End Sub