Microsoft 365 Lien hyper tetxe email

[Cédric06400]

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]

Bonjour,

Je crois me rappeler qu'il faut que l'URL soit entre guillemets, donc peut-être ceci :

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

Sinon, essayer avec le code ASCII 34.

 

[dysorthographie]

Bonjour,
Des simples cote.

& "<a href='" & Lien & "'>"

 

[TooFatBoy]

Des simples cote.

Ah zut, je croyais me souvenir que c'était des doubles.

Et une connerie de plus à mon compteur qui va pouvoir me servir de ventilateur !...

 

[dysorthographie]

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.

 

[TooFatBoy]

Simple ou double ça fonctionne

Ah, OK. Merci pour l'information. 👍

 

[Cédric06400]

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

 

[TooFatBoy]

Regarde la valeur de xStrBody avant l'envoi.

 

[Cédric06400]

Regarde la valeur de xStrBody avant l'envoi.

Merci erreur de syntaxe encore et encore, moi je fais tourner le ventilateur 😉

 

[TooFatBoy]

Merci erreur de syntaxe encore et encore, moi je fais tourner le ventilateur 😉

Bienvenue au club. Je me sens moins seul, même si le mien doit tourner beaucoup plus vite... 😁