Discussion :

[Eldaar]

Bonjour à tous/toutes,

Alors voilà mon problème : J'utilise régulièrement un bout de programme qui permet d'envoyer un mail automatiquement via MailEnvelope. Sauf que pour cette fois, j'ai un problème lors de l'envoi du mail, en effet, le fond du mail est coloré en noir à chaque envoi. C'est la première fois que ça m'arrive, et j'avoue que je ne sais absolument pas d'où ça vient. Je vous ajoute une capture d'écran du mail qui s'envoi pour mieux vous montrer le résultat, ainsi que le bout de code que j'utilise pour envoyer mon mail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
des= "nom.prenom@gmail.com"
Worksheets("Parametres").Range("L12:Q12").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
    With Worksheets("Parametres").MailEnvelope
         .Introduction = "Ceci est un test, merci de ne pas en tenir compte." 'le texte"
         .Item.To = des  'l'adresse
         .Item.Subject = "Tâche Méthode Soldée"
         .Item.Send    
    End With

Voilà, merci d'avance à ceux qui se pencheront sur ce problème qui me bloque totalement. Et n'hésitez pas à me demander des précisions, du code supplémentaire ou tout ce qui pourrait servir.