Microsoft 365 Lien hyper tetxe email

TooFatBoy

XLDnaute Barbatruc

• 30 Septembre 2024

• #2

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.

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 30 Septembre 2024

• #3

Bonjour,
Des simples cote.

Code:

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 30 Septembre 2024

• #4

dysorthographie à dit:

Des simples cote.

Cliquez pour agrandir...

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 !...

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 30 Septembre 2024

• #5

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

Cliquez pour agrandir...

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: 30 Septembre 2024

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 30 Septembre 2024

• #6

dysorthographie à dit:

Simple ou double ça fonctionne

Cliquez pour agrandir...

Ah, OK. Merci pour l'information.

 

Vote positif 0 Vote négatif

Cédric06400

XLDnaute Junior

• 30 Septembre 2024

• #7

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 30 Septembre 2024

• #8

Regarde la valeur de xStrBody avant l'envoi.

 

Vote positif 0 Vote négatif

Solution

Cédric06400

XLDnaute Junior

• 30 Septembre 2024

• #9

TooFatBoy à dit:

Regarde la valeur de xStrBody avant l'envoi.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 30 Septembre 2024

• #10

Cédric06400 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif