Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Mise en forme email

Créer une discussion

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
 
Dernière édition:
Vote positif 0 Vote négatif
bonjour
ca me donne ca
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
Identifiez-vous ou inscrivez-vous pour participer.
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
1 K
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
741
spike29
S
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
B
  • Question Question
Microsoft 365 Additionner des cellules même ligne en userform vba
Réponses
13
Affichages
788
sousou
C
  • Question Question
XL 2016 pièce jointe avec envoi mail VBA
Réponses
2
Affichages
2 K
CYRIL CAMPAS
C
  • Question Question
XL 2019 Message en fonction d'une date
Réponses
11
Affichages
2 K
gilles37
D
  • Question Question
XL 2019 vba : copier en valeur un onglet avant envoi par mail
Réponses
4
Affichages
1 K
douguy
D
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
1 K
jabenj
J
P
  • Résolu(e)
Microsoft 365 VBA Envoi un email à l'user
Réponses
4
Affichages
9 K
Pom909
P
  • Question Question
XL 2010 Sauts de ligne dans envoi mail sous VBA
Réponses
5
Affichages
5 K
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
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
835
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
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…