Microsoft 365 Lien hyper tetxe email

Cédric06400

XLDnaute Junior
Bonjour à vous tous,

J'ai besoin de votre science.

J'ai créer un email automatique en html avec un lien hypertexte qui renvoi sur un lien de paiement CB

Ce lien change et il est présent dans une cellule.

xStrBody = "Hello" & "<br>" _
& "<a href=" & Lien & ">" & Range("F169").Value & "</a> " & "<br>" _
& "Merci."

J'aimerai que le lien hypertexte apparaisse dans le corp du mail comme une texte "Cliquez ici pour paiement sécurisé".
J'arrive à le faire si le lien est écrit en dur dans le code mais pas plus.
"SVP" & ""<a href=" & "https://paiement.systempay.fr/t/xcf533ng"">Cliquez ici pour paiement sécurisé</a> merci" & "<br>" _

Merci de votre aide

Cédric
 

TooFatBoy

XLDnaute Barbatruc
Bonjour,

Je crois me rappeler qu'il faut que l'URL soit entre guillemets, donc peut-être ceci :
Enrichi (BBcode):
xStrBody = "Hello" & "<br>" _
& "<a href="" & Lien & "">" & Range("F169").Value & "</a> " & "<br>" _
& "Merci."

Sinon, essayer avec le code ASCII 34.
 

dysorthographie

XLDnaute Accro
Et une connerie de plus à mon compteur qui va pouvoir me servir de ventilateur !...
Non tu n'as pas tord.

Simple ou double ça fonctionne mais avec le mixe HTML VBA les double quote ça ce complique.

En VBA il faut doubler les "" et oui pour si retrouver on utilise souvent CHR(32) . Mais vu qu'HTML accepte le ['] pour encadrer du texte alors simplifions nous la vie avec de simples cote.
 
Dernière édition:

Cédric06400

XLDnaute Junior
Hello
Merci de vos promptes réponses, je dois être un quiche.
Le mail part bien mais à la reception ce n'est plus un lien hypertexte
Voici mon code avec la modif que je suppose etre faite ;)

Sub Email_avec_lien()
'Test mail avec lien hype texte
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
xStrBody = "Hello" & "<br>" _
& "<a href='" & Lien & "'>" & Range("F169").Value & "Ici</a> " & "<br>" _
& "Merci."
On Error Resume Next
Set xOtl = CreateObject("Outlook.Application")
Set xOtlMail = xOtl.CreateItem(olMailItem)
With xOtlMail
.To = "
.CC = ""
.BCC = ""
.Subject = "Test paiement"
.HTMLBody = .HTMLBody & xStrBody
.Display
End With
Set xOtl = Nothing
Set xOtlMail = Nothing
End Sub
 

Discussions similaires

Réponses
6
Affichages
513
Réponses
3
Affichages
560

Membres actuellement en ligne

Statistiques des forums

Discussions
314 121
Messages
2 106 129
Membres
109 495
dernier inscrit
jerome bonneau