1
J'utilise le code suivant pour me permettre d'envoyer par courriel une section d'une feuille de calcul Excel. Chaque fois que j'utilise cela, il a parfois un format bizarre où la couleur de fond est noire et le texte d'introduction est rouge. Je voudrais soit corriger cela en noir sur blanc ou le forcer à un texte simple. Définir BodyFormat à l'option de texte brut n'a pas fonctionné cependant. On dirait qu'il obtient des informations de style quelque part, mais je ne sais pas où et comment le changer. Toute aide est appréciée.Comment corriger les couleurs d'arrière-plan et de texte dans les e-mails à partir d'Excel VBA?
Sub EmailMessage()
ActiveSheet.Range("E3:F14").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Message for " + FormatDateTime(DateTime.Now, vbLongDate)
.Item.To = "[email protected]"
.Item.Subject = "Message for " + FormatDateTime(DateTime.Now, vbShortDate)
.Item.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
End With
End Sub
Avez-vous essayé sans Item.BodyFormat? –
Oui. Au départ, je n'avais pas le BodyFormat. C'est quelque chose que j'ai essayé d'ajouter après avoir remarqué le problème. Il m'a donné une erreur inconnue lorsque j'ai essayé d'utiliser l'option Texte brut. – James