Microsoft 365 Mise en forme email

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Microsoft 365 Inserer copie d'ecran ou plage de cellules dans mail
Réponses
4
Affichages
943
romubzh35
R
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
191
spike29
S
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
B
  • Question Question
Microsoft 365 Additionner des cellules même ligne en userform vba
Réponses
13
Affichages
696
sousou
sousou
C
  • Question Question
XL 2016 pièce jointe avec envoi mail VBA
Réponses
2
Affichages
2 K
CYRIL CAMPAS
C
gilles37
  • Question Question
XL 2019 Message en fonction d'une date
Réponses
11
Affichages
2 K
gilles37
gilles37
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
945
jabenj
J
D
  • Question Question
XL 2019 vba : copier en valeur un onglet avant envoi par mail
Réponses
4
Affichages
1 K
douguy
D
P
  • Résolu(e)
Microsoft 365 VBA Envoi un email à l'user
Réponses
4
Affichages
8 K
Pom909
P
Philou0607
  • Question Question
XL 2010 Sauts de ligne dans envoi mail sous VBA
Réponses
5
Affichages
5 K
Staple1600
Staple1600
S
  • Question Question
Microsoft 365 Macro pour Copier une feuille Excel en tant qu'image dans outlook
Réponses
3
Affichages
2 K
fanch55
fanch55
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
639
marie3107
M
M
  • Question Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
1 K
MONADESIGN82
M
T
  • Question Question
Envoie d'un mail vba sous condition
Réponses
2
Affichages
4 K
TEMAGOULTFARID
T
R
  • Question Question
XL 2016 Envoyer un fichier excel par email via outlook
Réponses
8
Affichages
3 K
rayms
R
S
  • Question Question
XL 2019 cellule Excel vers signet word : garder la mise en forme
Réponses
0
Affichages
1 K
Stateaid
S
C
  • Question Question
XL 2013 Spécifier le compte courriel à utiliser dans une macro - RÉSOLU
Réponses
3
Affichages
1 K
chantalc33
C
C
  • Question Question
Word Macro sur Word
Réponses
2
Affichages
2 K
CaEly
C
S
  • Question Question
XL 2016 Pousser les données de l'Userform dans une nouvelle ligne de tableau
Réponses
8
Affichages
1 K
Sparfell29
S
D
  • Question Question
Résolu : email automatique sous excel
Réponses
13
Affichages
1 K
DG-59
D
Retour