VBA : Lien hypertexte dans le corps d'un email
Bonjour,
Après avoir écumé les différents sites d'entraide Excel, je me tourne vers vous car je reste dans l'impasse.
Objectif : Insérer un lien hypertexte (fixe) dans le corps d'un email.
Alors j'arrive sans problème à créer un lien hypertexte vers une cellule Excel, mais j'ai beau essayer, je n'arrive pas à "affecter" ce lien à une variable, que j'appelle par la suite dans le corps de mon message.
Voici mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
With Sheets("Sheet1")
'CE QUE J'AIMERAI FAIRE MAIS QUI NE FONCTIONNE PAS
objLink = Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="D:\test.gif", SubAddress:="", TextToDisplay:="ici"
'REMPLISSAGE DES CHAMPS "ADRESSE, SUJET, MESSAGE"
MailAd = "azeaze@free.fr"
Subj = "Sujet du message"
Msg = "Vous trouverez " & objLink & " les informations souhaitées"
'CONSTITUTION ET ENVOI DU MAIL
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End With
End Sub |
Maintenant j'aimerais que cela envoie un email avec comme message "Vous trouverez ici les informations souhaitées"
Et le mot "ici" est un lien hypertexte vers le fichier "D:\test.gif"
En vous remerciant d'avance, je vous souhaite un bon appétit !