Aller à la ligne dans un courriel généré en VBA

[GillesC]

Bonjour à tous,
Je cherche comment aller à la ligne dans le corps de mon message.
J'utilise Thunderbird Mozilla.
J'ai essayé tout ce que j'ai pu trouver sur le net :

vbNewLine
vbCrLf
Chr(13)
Chr(13) & Chr(10)
VbLF

Rien ne marche 🙁

J'utilise un programme que m'a gentiment indiqué DoubleZero, en voici le début :

Option Explicit
Dim TouchesPJ(5) As String, TouchesEnvoi(5) As String

Sub EnvoiEmail(Adresse As String, Objet As String, Corps As String, Optional PJ As String, Optional Cc As String, Optional Bcc As String, Optional Collage As Boolean)

Dim HyperLien As String 
                      
Dim i As Integer      
Dim Client As Integer

HyperLien = "mailto:" & Adresse & "?"     
HyperLien = HyperLien & "Subject=" & Objet '& " (à " & Time() & ")"

'------Et ensuite c'est là que ça coince,  j'ai essayé tous les codes, rien à faire, il ne veut pas aller à la ligne dans le message! :

HyperLien = HyperLien & "&Body=" & "Ligne1" & vbNewLine & vbCr & vbLf & Chr$(10) & Chr$(13) & Chr(10) & Chr(13) & vbCrLf & " Ligne2"

'---------------
ActiveWorkbook.FollowHyperlink HyperLien

Une solution possible? Ou alors un moyen d'étrangler Excel après l'avoir longuement fait cuire à feu doux?

Merci d'avance

 

[tototiti2008]

Re : Aller à la ligne dans un courriel généré en VBA

Bonjour GillesC,

peut-être

HyperLien = HyperLien & "&Body=" & "Ligne1%0ALigne2"

"%0A" semble faire un retour à la ligne...

 

[GillesC]

Re : Aller à la ligne dans un courriel généré en VBA

Un très grand merci Tototiti, ça marche !!
Bonne journée!