Marco Woods
XLDnaute Nouveau
Bonjour à tous,
J'ai besoin d'envoyer des mails automatiques avec une plage de cellule fixe.
Le code fonctionne puisque je reçois bien l'email, cependant je n'ai pas le même rendu sur l'email reçu que sur Excel. Pour une raison inconnue, de nombreuses cellules sont colorées en noire...
Ci-joint les deux aperçus (aperçu Excel et aperçu Outlook);
Ci-dessous le code :
Merci de votre aide et bonne journée !
J'ai besoin d'envoyer des mails automatiques avec une plage de cellule fixe.
Le code fonctionne puisque je reçois bien l'email, cependant je n'ai pas le même rendu sur l'email reçu que sur Excel. Pour une raison inconnue, de nombreuses cellules sont colorées en noire...
Ci-joint les deux aperçus (aperçu Excel et aperçu Outlook);
Ci-dessous le code :
Code:
ActiveSheet.Range("K331:AD347").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "..."
.Item.To = "..."
.Item.Subject = "..."
.Item.Send
End With
Merci de votre aide et bonne journée !