Envoi de mail HTML avec Excel - CSS

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
adouw
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 29 juillet 2019
Version d'Excel : 2019

Message par adouw » 27 août 2019, 13:41

Bonjour,

Je suis entrain de faire une macro qui automatise un envoi de mail avec comme base un mail sous forme HTML.

J'ai un soucis dans la réalisation, le code HTML ne suffit pas, il faut ajouter le CSS.

Après avoir cherché, j'ai vu que l'on pouvait intégrer le CSS dans le code HTML (entre des balises <style> dans la balise <head>).
Malgré cette technique, le mail arrive sans avoir pris en compte le code CSS.

Mon HTML de base est un doc HTML chrome, peut être l'écriture varie-t-elle sur outlook?

Merci de vos retour
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 678
Appréciations reçues : 70
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 27 août 2019, 14:37

Bonjour,

J'ai testé ça :
Sub SendMail()

Dim Fichier As String
Dim MonOutlook As Object
Dim MonMessage As Object

  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.BodyFormat = 2
       corps = "<style>p {  color: #3bafda; }</style>"
         MonMessage.To = "toto@google.com"
  MonMessage.CC = ""
  MonMessage.Subject = "Demande d'intervention"
  corps = corps & "Bonjour," & vbCrLf
 
  corps = corps & "<p>"
  corps = corps & "<p> Ci-joint la demande d'intervention"
  MonMessage.HTMLBody = corps
  MonMessage.Display
  
  Set MonOutlook = Nothing

End Sub
a
adouw
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 29 juillet 2019
Version d'Excel : 2019

Message par adouw » 27 août 2019, 16:06

Bonjour oxydum,

Merci de ta réponse, j'ai essayé ton code.

Le format fonctionne avant l'envoi (mail rédigé en couleur) mais lorsque je l'envoi, le mail reçu n'est pas mis en forme... :bof:
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 678
Appréciations reçues : 70
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 27 août 2019, 16:29

Ok,

Essaie de placer le style sur la balise :
  corps = corps & "<p style='color: #3bafda;'> <b>Ci-joint la demande d'intervention</b>"
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message