Sauter une ligne dans mail envoyé par VBA

[HUGS]

Bonjour,
J'ai le script suivant qui ne me permet pas de sauter une ligne dans le mail généré entre Bonjour et Aurevoir :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & "Bonjour,"
Msg = Msg & Chr(13) & Chr(10) ' comment sauter une ligne ?
Msg = Msg & vbNewLine & "Au revoir"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Si quelqu'un a une idée ?

Par avance merci.

 

[MichelXld]

Re : Sauter une ligne dans mail envoyé par VBA

bonjour


Tu peux tester

Sub EnvoiUnMail()
    Dim MailAd As String
    Dim Msg As String
    Dim Subj As String
    Dim URLto As String
    
    MailAd = Range("d1")
    Subj = Range("d2")
    Msg = Msg & "Bonjour,%0D%0A %0D%0A %0D%0A"
    Msg = Msg & "Au revoir"
    
    URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
    ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Bonne journée
MichelXld

 

[JNP]

Re : Sauter une ligne dans mail envoyé par VBA

Bonjour Hugues, Michel 🙂,
essaie

"Bonjour," & vbCrLf & "Au revoir"

Bonne journée 😎

 

[HUGS]

Re : Sauter une ligne dans mail envoyé par VBA

Merci Michel, ton code marche nickel

& vbCrLf & "Au revoir" ne fonctionne pas sur mon PC (peut-être un problème de versions Outlook) merci qd même à JNP.

PROBLEME RESOLUS

HUGS 🙂