Microsoft 365 Mise en forme email

R

romubzh35

XLDnaute Occasionnel
Bonjour
je souhaite savoir comment modifier ce code pour avoir une mise en page plus sympa car pour le moment c'est basique.
savoir comment mettre en couleur et gras
et mon top10 en bas peut etre sous forme de tableau ?
merci et bonne fin de journée

VB: 
Sub EnvoiMail()

  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim corps As String
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = ThisWorkbook.Sheets("Plan de convergence des stocks").Range("Q4").Value
  MonMessage.Subject = "Convergence des stocks : Mail automatique"
    corps = "Bonjour , ci dessous les valeurs en date du " & UserForm1.TextBox19.Value & " provenant du fichier de convergence des stocks à " & UserForm1.TextBox21.Value & " : " & Chr(10)
    corps = corps & Chr(13) & Chr(10)
    corps = corps & "TRANSIT : " & Chr(10) & UserForm1.TextBox1.Value & " K€ soit " & UserForm1.TextBox6.Value & " jour(s)" & Chr(10) & Chr(10)
    corps = corps & "RAW MATERIALS : " & Chr(10) & UserForm1.TextBox2.Value & " K€ soit " & UserForm1.TextBox7.Value & " jour(s)" & Chr(10) & Chr(10)
    corps = corps & "WIP : " & Chr(10) & UserForm1.TextBox3.Value & " K€ soit " & UserForm1.TextBox8.Value & " jour(s)" & Chr(10) & Chr(10)
    corps = corps & "FG : " & Chr(10) & UserForm1.TextBox4.Value & " K€ soit " & UserForm1.TextBox9.Value & " jour(s)" & Chr(10) & Chr(10)
    corps = corps & "TOTAL : " & Chr(10) & UserForm1.TextBox5.Value & " K€ soit " & UserForm1.TextBox10.Value & " jour(s)" & Chr(10) & Chr(10)
    corps = corps & "LISTING DES REFS AVEC MOINS DE 2 JOURS DE STOCKS : " & Chr(10)
    
    corps = corps & "1 : " & UserForm1.TextBox32.Value & " : " & UserForm1.TextBox42.Value & " jour(s)" & Chr(10)
    corps = corps & "2 : " & UserForm1.TextBox33.Value & " : " & UserForm1.TextBox43.Value & " jour(s)" & Chr(10)
    corps = corps & "3 : " & UserForm1.TextBox34.Value & " : " & UserForm1.TextBox44.Value & " jour(s)" & Chr(10)
    corps = corps & "4 : " & UserForm1.TextBox35.Value & " : " & UserForm1.TextBox45.Value & " jour(s)" & Chr(10)
    corps = corps & "5 : " & UserForm1.TextBox36.Value & " : " & UserForm1.TextBox46.Value & " jour(s)" & Chr(10)
    corps = corps & "6 : " & UserForm1.TextBox37.Value & " : " & UserForm1.TextBox47.Value & " jour(s)" & Chr(10)
    corps = corps & "7 : " & UserForm1.TextBox38.Value & " : " & UserForm1.TextBox48.Value & " jour(s)" & Chr(10)
    corps = corps & "8 : " & UserForm1.TextBox39.Value & " : " & UserForm1.TextBox49.Value & " jour(s)" & Chr(10)
    corps = corps & "9 : " & UserForm1.TextBox40.Value & " : " & UserForm1.TextBox50.Value & " jour(s)" & Chr(10)
    corps = corps & "10 : " & UserForm1.TextBox41.Value & " : " & UserForm1.TextBox51.Value & " jour(s)" & Chr(10) & Chr(10)
    corps = corps & "Ce message a été envoyé par l'utilisateur " & UserForm1.TextBox16.Value & ", "
    corps = corps & "Bonne journée."
  MonMessage.Body = corps
  'MonMessage.send
    MonMessage.display
     
  Set MonOutlook = Nothing
End Sub
 
Trier par date Trier par votes
dysorthographie

dysorthographie

XLDnaute Accro
Bonjour,
VB: 
corps = "<P>Bonjour , ci dessous les valeurs en date du " & UserForm1.TextBox19.Value & " provenant du fichier de convergence des stocks à "  & UserForm1.TextBox21.Value & " : </P>"
 corps = corps & "<UL>"
 corps = corps & "  <LI>TRANSIT : </LI>"
 corps = corps & "  <UL>"
 corps = corps & "    <LI>" & UserForm1.TextBox1.Value & " K€ soit " & UserForm1.TextBox6.Value & " "
 corps = corps & "jour(s)</LI></UL>"
 corps = corps & "  <LI>RAW MATERIALS : </LI>"
 corps = corps & "  <UL>"
 corps = corps & "    <LI>" & UserForm1.TextBox2.Value & " K€ soit " & UserForm1.TextBox7.Value & " "
 corps = corps & "jour(s)</LI></UL>"
 corps = corps & "  <LI>WIP :</LI>"
 corps = corps & "  <UL>"
 corps = corps & "    <LI>" & UserForm1.TextBox3.Value & " K€ soit " & UserForm1.TextBox8.Value & " "
 corps = corps & "jour(s)</LI></UL>"
 corps = corps & "  <LI>FG : </LI>"
 corps = corps & "  <UL>"
 corps = corps & "    <LI>" & UserForm1.TextBox4.Value & " K€ soit " & UserForm1.TextBox9.Value & " "
 corps = corps & "jour(s)</LI></UL>"
 corps = corps & "  <LI>TOTAL : </LI>"
 corps = corps & "  <UL>"
 corps = corps & "    <LI>" & UserForm1.TextBox5.Value & " K€ soit " & UserForm1.TextBox10.Value & " "
 corps = corps & "  jour(s)</LI></UL></UL>"
 corps = corps & "<OL>"
 corps = corps & "  <LI>LISTING DES REFS AVEC MOINS DE 2 JOURS DE STOCKS :&nbsp;</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox32.Value & " : " & UserForm1.TextBox42.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox33.Value & " : " & UserForm1.TextBox43.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox34.Value & " : " & UserForm1.TextBox44.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox35.Value & " : " & UserForm1.TextBox45.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox36.Value & " : " & UserForm1.TextBox46.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox37.Value & " : " & UserForm1.TextBox47.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox38.Value & " : " & UserForm1.TextBox48.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox39.Value & " : " & UserForm1.TextBox49.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox40.Value & " : " & UserForm1.TextBox50.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox41.Value & " : " & UserForm1.TextBox51.Value & " jour(s)</LI></OL>"
 corps = corps & "<P>Ce message a été envoyé par l'utilisateur " & UserForm1.TextBox16.Value & ", Bonne "
 corps = corps & "journée.</P>"
MonMessage.HtmlBody = corps
1676397096315.png
 
Dernière édition:
Vote positif 0 Vote négatif
R

romubzh35

XLDnaute Occasionnel
bonjour
ca me donne ca
<P>Bonjour , ci dessous les valeurs en date du 15.02.2023 provenant du fichier de convergence des stocks à 11:01 : </P><UL> <LI>TRANSIT : </LI> <UL> <LI>270,3 K€ soit 1,6 jour(s)</LI></UL> <LI>RAW MATERIALS : </LI> <UL> <LI>770,8 K€ soit 4,5 jour(s)</LI></UL> <LI>WIP :</LI> <UL> <LI>176,8 K€ soit 0,8 jour(s)</LI></UL> <LI>FG : </LI> <UL> <LI>486,0 K€ soit 1,9 jour(s)</LI></UL> <LI>TOTAL : </LI> <UL> <LI>1773,2 K€ soit 8,7 jour(s)</LI></UL></UL><OL> <LI>LISTING DES REFS AVEC MOINS DE 2 JOURS DE STOCKS :&nbsp;</LI> <LI>M04120371 : -9 jour(s)</LI> <LI>A1061115 : 0 jour(s)</LI> <LI>A1095701 : 0 jour(s)</LI> <LI>A3002530 : 0 jour(s)</LI> <LI>A3002520 : 1 jour(s)</LI> <LI>2111781XXX : 1 jour(s)</LI> <LI>M071011 : 0 jour(s)</LI> <LI>- : - jour(s)</LI> <LI>- : - jour(s)</LI> <LI>- : - jour(s)</LI></OL><P>Ce message a été envoyé par l'utilisateur farschon, Bonne journée.</P>
Cliquez pour agrandir...
les mots les uns à la suite des autres
 
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
VB: 
Sub EnvoiMail()

  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim corps As String
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = ThisWorkbook.Sheets("Plan de convergence des stocks").Range("Q4").Value
  MonMessage.Subject = "Convergence des stocks : Mail automatique"
    
 corps = "<P>Bonjour , ci dessous les valeurs en date du " & UserForm1.TextBox19.Value & " provenant du fichier de convergence des stocks à "  & UserForm1.TextBox21.Value & " : </P>"
 corps = corps & "<UL>"
 corps = corps & "  <LI>TRANSIT : </LI>"
 corps = corps & "  <UL>"
 corps = corps & "    <LI>" & UserForm1.TextBox1.Value & " K€ soit " & UserForm1.TextBox6.Value & " "
 corps = corps & "jour(s)</LI></UL>"
 corps = corps & "  <LI>RAW MATERIALS : </LI>"
 corps = corps & "  <UL>"
 corps = corps & "    <LI>" & UserForm1.TextBox2.Value & " K€ soit " & UserForm1.TextBox7.Value & " "
 corps = corps & "jour(s)</LI></UL>"
 corps = corps & "  <LI>WIP :</LI>"
 corps = corps & "  <UL>"
 corps = corps & "    <LI>" & UserForm1.TextBox3.Value & " K€ soit " & UserForm1.TextBox8.Value & " "
 corps = corps & "jour(s)</LI></UL>"
 corps = corps & "  <LI>FG : </LI>"
 corps = corps & "  <UL>"
 corps = corps & "    <LI>" & UserForm1.TextBox4.Value & " K€ soit " & UserForm1.TextBox9.Value & " "
 corps = corps & "jour(s)</LI></UL>"
 corps = corps & "  <LI>TOTAL : </LI>"
 corps = corps & "  <UL>"
 corps = corps & "    <LI>" & UserForm1.TextBox5.Value & " K€ soit " & UserForm1.TextBox10.Value & " "
 corps = corps & "  jour(s)</LI></UL></UL>"
 corps = corps & "<OL>"
 corps = corps & "  <LI>LISTING DES REFS AVEC MOINS DE 2 JOURS DE STOCKS :&nbsp;</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox32.Value & " : " & UserForm1.TextBox42.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox33.Value & " : " & UserForm1.TextBox43.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox34.Value & " : " & UserForm1.TextBox44.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox35.Value & " : " & UserForm1.TextBox45.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox36.Value & " : " & UserForm1.TextBox46.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox37.Value & " : " & UserForm1.TextBox47.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox38.Value & " : " & UserForm1.TextBox48.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox39.Value & " : " & UserForm1.TextBox49.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox40.Value & " : " & UserForm1.TextBox50.Value & " jour(s)</LI>"
 corps = corps & "  <LI>" & UserForm1.TextBox41.Value & " : " & UserForm1.TextBox51.Value & " jour(s)</LI></OL>"
 corps = corps & "<P>Ce message a été envoyé par l'utilisateur " & UserForm1.TextBox16.Value & ", Bonne "
 corps = corps & "journée.</P>"
MonMessage.HtmlBody = corps
  'MonMessage.send
    MonMessage.display
    
  Set MonOutlook = Nothing
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

R
  • Question
Microsoft 365 Inserer copie d'ecran ou plage de cellules dans mail
Réponses
4
Affichages
605
romubzh35
R
B
  • Question
Microsoft 365 Additionner des cellules même ligne en userform vba
Réponses
13
Affichages
343
sousou
sousou
J
  • Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
738
jabenj
J
P
  • Résolu(e)
Microsoft 365 VBA Envoi un email à l'user
Réponses
4
Affichages
8 K
Pom909
P
M
  • Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
1 K
MONADESIGN82
M
L
  • Question
Mettre de la couleur dans UNE PARTIE du corps d'un mail en VBA
Réponses
10
Affichages
19 K
camarchepas
camarchepas
Le_Troll_Du_27
  • Question
XL 2013 VALIDER dans une listview
Réponses
8
Affichages
2 K
Le_Troll_Du_27
Le_Troll_Du_27
Le_Troll_Du_27
  • Question
XL 2013 Code Vba
Réponses
6
Affichages
2 K
Le_Troll_Du_27
Le_Troll_Du_27
H
  • Question
Trop grand...
2
Réponses
18
Affichages
14 K
Hollowman06
H
M
  • Question
Reprise de données dans les TextBox
2
Réponses
16
Affichages
2 K
Marboi
M

Membres actuellement en ligne

10 membres et 80 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 215
Messages
2 086 314
Membres
103 176
dernier inscrit
jean.yvesjean.yves