(VBA) Insérer un lien Hypertexte changeant dans un e-mail
Bonjour à tous,
Je suis en train de me casser la tête et j'ai besoin de votre aide.
Je suis en train de créer un fichier pour envoyer des e-mails automatiques en fonction des informations que je dois partager. J'ai essayé de détailler le plus possible le code pour que ce soit plus facile. j'aurais besoin qu'à chaque email que je génère le lien Hypertexte renvoi à celui qui est présent en case D5 avec le texte de la cellule C9.
C'est vraiment la partie du code 'Lien Hypertexte qui ne fonctionne pas.
strHTML = strHTML & "<A href=Lien><Range("C9")/A>"Sub email()
' E_mail Macro
Dim MaMessagerie As Object
Dim MonMessage As Object
Dim strHTML As String 'Pour créer un Code HTML dans le corps du Mail'
Dim Cell As Range
Dim Lien As String
Lien = Range("D5")
'Afficher les Liens Hypertexte'
On Error Resume Next
For Each Cell In Range("C5:C" & Range("C30").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
'Ecrire le Message de l'email'
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour Alexandre,<BR> <BR>Nous avons reçu hier les cuirs pour couper le:<BR><BR><BR><BR>" '<BR> Pour les retours à la lignes'
strHTML = strHTML & "Est-ce que le modèle est validé pour lancer en production pour le cuir " & Range("D2") & " en couleur " & Range("E2")
'Lien Hypertexte'
strHTML = strHTML & "<A href=Lien><Range("C9")/A>"
strHTML = strHTML & "<BR><BR>Il n'y a aucun fichier de coupe sur le PLM, peux-tu me confirmer qu'on peut utiliser les fichiers de ce modèle:"
strHTML = strHTML & "<BR><BR><BR><BR><BR>Un tout grand merci pour ta réponse, <BR><BR>" & Environ("UserName") & "<BR>" 'Environ("Username") Renvoi au Nom du PC sur lequel le message est envoyé, du coup ça sera parfait, vu que 3 Personnes vont l'utiliser, on pourra différencier facilement.'
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
'Créer l'email'
Set MaMessagerie = CreateObject("outlook.Application")
Set MonMessage = MaMessagerie.CreateItem(0)
MonMessage.To = Range("K6")
MonMessage.CC = Range("K9") & " ;" & Range("K10") & " ;" & Range("K8") & " ;" & Range("K7")
MonMessage.Subject = "(" & Range("C2") & ")" & " Lancement Production"
MonMessage.HTMLBody = strHTML
'afficher l'email pour modifier ce qu'on veut'
MonMessage.Display
Set MaMessagerie = Nothing
End SubUn tout grand merci,
Bonjour,
Pouvez-vous essayer en remplaçant ainsi :
strHTML = strHTML & "<A href=" & Lien & ">" & Range("C9").value & "</A>"Cdlt,
Oh, c'est vraiment super c'est parfait, juste une erreur de syntaxe .. décidément.
Un tout grand merci, je vais enfin pouvoir laisser mes cheveux tranquille sur ma tête.
Super ! Merci du retour et bonne continuation !