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