envoyer un mail avec mailto

[filtil]

Bonjour,
Je souhaite qu'en cliquant sur une cellule, outlook s'ouvre avec une adresse et un sujet déjà remplis.
J'utilise donc un lien hypertexte mais je dois remplir moi-même la zone "adresse de messagerie". Or, je voudrais qu'il aille chercher l'adresse dans une cellule de ma feuille... Est-ce possible?

 

[pierrejean]

Re : envoyer un mail avec mailto

bonjour filtil

voila un code qui repond peut-etre a ta demande (a adapter !!)

Sub Envoidemail()
    Dim HyperLien as String , Objet as String , Corps As String
    Objet = "L'objet du mail"
    Corps = "Le message"
    Corps = Application.WorksheetFunction.Substitute(Corps, vbCrLf, "%0D%0A")
    ad = "[EMAIL="adresse@free.fr"]adresse@free.fr[/EMAIL]"
    ' ou ad=range("la cellule ou est l'adresse")
    copie = "[EMAIL="adresse1@free.fr"]adresse1@free.fr[/EMAIL]"
    'ou copie= range("cellule ou est l'adresse en copie")
    HyperLien = "mailto:" & ad & "?cc=" & copie
    HyperLien = HyperLien & "&Subject=" & Objet & " (à " & Time() & ")"
    HyperLien = HyperLien & "&Body=" & Corps
    ActiveWorkbook.FollowHyperlink HyperLien
End Sub

 

[filtil]

Re : envoyer un mail avec mailto

Ca marche merci.
Mais j'ai une autre question (désolé je débute avec les macros..). Je sais affecter la macro à un objet mais comment l'affecter à une cellule??
En fait je fais un tableau ou chaque fois que l'utilisateur saisira une nouvelle ligne dans laquelle une des cellules contiendra le mail d'une personne, il aura à cliquer sur la dernière cellule de cette ligne pour envoyer un mail à cette personne...

 

[pierrejean]

Re : envoyer un mail avec mailto

bonsoir

voila un exemple ou le double click sur la cellule a droite de l'adresse envoie le message

attention les erreurs ne sont pas gérées

 

[filtil]

Re : envoyer un mail avec mailto

C'est parfait. Merci beaucoup 🙂