Envoi mail : corps du message

C@thy

XLDnaute Barbatruc
Bonjou,

j'ai écrit ceci pour envoyer un mail :

Code:
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) :mad:
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...:confused:

Merci pour votre aide.

Bisous

C@thy
 

Discussions similaires

Réponses
4
Affichages
4 K

Statistiques des forums

Discussions
299 706
Messages
1 978 624
Membres
206 311
dernier inscrit
koumb