Envoi mail : corps du message

[C@thy]

Bonjou,

j'ai écrit ceci pour envoyer un mail :

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

Cela fonctionne très bien sauf que...
dans le corps du message, tout est sur la même ligne malgré les CHR (13) et (10) 😡
Or j'ai une autre appli où cela fonctionne parfaitement
Je viens de tout tester, en long, en large et même en travers....

La différence me direz-vous???
là où le retour à la ligne ne fonctionne pas, la macro est dans un USF, lorque l'on clique sur le bouton Transférer, cela transfère le mail au destinataire.

J'ai bien essayé de mettre ma macro dans un module normal, et d'y faire appel dans l'USF, mais là, je perds mes variables, car les variables Public ne se conservent pas d'un module à l'autre...
suis ben embêtée...😕

Merci pour votre aide.

Bisous

C@thy

 

[Guest]

Re : Envoi mail : corps du message

bonjour Cathy,

tes mails sont au format Html?

Si oui essai de remplacer les CHR(13) par des "<BR />"

A+

 

[C@thy]

Re : Envoi mail : corps du message

Bonjour Hasco,

excuse-moi de ne pas t'avoir répondu plus tôt, je viens de voir ton message qui se trouvait dans ma boîte courriers indésirables.😡

OK ça maaaaaarche!🙂

Meci😉

Bisous

C@thy