Envoi mail : corps du message

Sub TestEnvoiMail1()
Dim Var As String
 Dest = TextBox12.Value
 '  préparation pour envoi mail
    Dim Var As String
    Var = "Bonjour," & Chr(13)
    Var = Var & "nous avons créé pour vous la fiche N° " & Ticket & Chr(13)
    Var = Var & "Ce N° est à rappeler lors de toute demande concernant cette fiche." & Chr(13)
    Var = Var & "Domaine : " & ComboBox2.Value & " sujet : " & ComboBox5.Value & Chr(10)
    Var = Var & "Cordialement, " & Chr(10)
   Dest = ComboBox6.Value
   Set appOutlook = CreateObject("outlook.application")
   'Crée un nouveau message
   Set Message = appOutlook.CreateItem(olMailItem)
   ' initialisation de variables :
   'Titre, texte, destinataires, etc ... puis envoi.
   With Message
     .Subject = TextBox6 & "à traiter"
     .HTMLBody = Var
     .Recipients.Add (TextBox12.Value)
     .Send
   End With