J'utilise une macro (qui marche très bien) pour envoyer des mail en prenant en compte des informations contenues dans des cellules excel.
Le mail ainsi créé comporte du texte.
Pensez-vous qu'il serait possible de formater ce texte.
J'ai essayé plusieurs syntaxes que je connais, mais elles "coupent" mon code...
Voici un extrait du code
xMailBody = "Bonjour," & vbNewLine & vbNewLine & _
"Vous trouverez ci-joint les consignes pour la mise en route de l'alarme du chantier : " & Range("f9") & " situé " & Range("f11") & " - " & Range("f14") & " " & Range("f13") _
& vbNewLine & vbNewLine & _
"Installation de la grue :" & _
vbNewLine & vbNewLine & _
"Installation de la base vie : " & _
Imaginons que je souhaite mettre en gras le mot consigne...
Remplacer cette ligne de code suivante SendKeys "^+{ENTER}", True Par : SendKeys "%FV",True MichD
Pour le plaisir, j'ai remplacé le texte contenu dans l'item .HTMLBODY par des variables. Au besoin, on peut remplacer ce texte des variables par une référence d'une adresse de cellule. '----------------------------------------------------------- Sub SendEmailformattext10() Dim xOutApp As Outlook.Application Dim xMailOut As Outlook.MailItem Dim Sujet As String Dim Salutation As String Dim Texte As String, TexteCouleur As String, texte2 As String Dim Destinataire As String '--------------------------------------------------- 'Définir le texte pour chacune de ces variables. Destinataire = "José" Sujet = "Je ne sais pas..." Titre = "Bonjour Monsieur" Texte1 = "Vous trouverez ci-joint les " TexteCouleur = "consignes" texte2 = " pour la mise en route de l'alarme du chantier :" '--------------------------------------------------- Set xOutApp = CreateObject("Outlook.Application") Set xMailOut = xOutApp.CreateItem(olMailItem) With xMailOut .Display .To = Destinataire .Subject = Sujet .HTMLBody = "<FONT SIZE = 4 font face=Arial>" & Titre & ", <br>" & _ "<FONT SIZE = 3.5 font face=Arial>" & Texte1 & _ "<FONT SIZE = 5.5 font face=Arial color=blue><b>" & TexteCouleur & "</b></br> " & _ "<FONT SIZE = 3.5 font face=Arial color=Black>" & texte2 & "" .Send End With Set xMailOut = Nothing Set xOutApp = Nothing Application.ScreenUpdating = True End Sub '----------------------------------------------------------- MichD
Le 08/12/21 Í 09:51, MichD a écrit :
Le 08/12/21 Í 09:27, MichD a écrit :
SendKeys "^+{ENTER}", True
Remplacer cette ligne de code suivante
SendKeys "^+{ENTER}", True
Par :
SendKeys "%FV",True
MichD
Pour le plaisir, j'ai remplacé le texte contenu dans l'item .HTMLBODY
par des variables. Au besoin, on peut remplacer ce texte des variables
par une référence d'une adresse de cellule.
'-----------------------------------------------------------
Sub SendEmailformattext10()
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
Dim Sujet As String
Dim Salutation As String
Dim Texte As String, TexteCouleur As String, texte2 As String
Dim Destinataire As String
'---------------------------------------------------
'Définir le texte pour chacune de ces variables.
Destinataire = "Joséphine@Gmail.com"
Sujet = "Je ne sais pas..."
Titre = "Bonjour Monsieur"
Texte1 = "Vous trouverez ci-joint les "
TexteCouleur = "consignes"
texte2 = " pour la mise en route de l'alarme du chantier :"
'---------------------------------------------------
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.Display
.To = Destinataire
.Subject = Sujet
.HTMLBody = "<FONT SIZE = 4 font face=Arial>" & Titre & ", <br>" & _
"<FONT SIZE = 3.5 font face=Arial>" & Texte1 & _
"<FONT SIZE = 5.5 font face=Arial color=blue><b>" &
TexteCouleur & "</b></br> " & _
"<FONT SIZE = 3.5 font face=Arial color=Black>" & texte2 & ""
.Send
End With
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
'-----------------------------------------------------------
Remplacer cette ligne de code suivante SendKeys "^+{ENTER}", True Par : SendKeys "%FV",True MichD
Pour le plaisir, j'ai remplacé le texte contenu dans l'item .HTMLBODY par des variables. Au besoin, on peut remplacer ce texte des variables par une référence d'une adresse de cellule. '----------------------------------------------------------- Sub SendEmailformattext10() Dim xOutApp As Outlook.Application Dim xMailOut As Outlook.MailItem Dim Sujet As String Dim Salutation As String Dim Texte As String, TexteCouleur As String, texte2 As String Dim Destinataire As String '--------------------------------------------------- 'Définir le texte pour chacune de ces variables. Destinataire = "José" Sujet = "Je ne sais pas..." Titre = "Bonjour Monsieur" Texte1 = "Vous trouverez ci-joint les " TexteCouleur = "consignes" texte2 = " pour la mise en route de l'alarme du chantier :" '--------------------------------------------------- Set xOutApp = CreateObject("Outlook.Application") Set xMailOut = xOutApp.CreateItem(olMailItem) With xMailOut .Display .To = Destinataire .Subject = Sujet .HTMLBody = "<FONT SIZE = 4 font face=Arial>" & Titre & ", <br>" & _ "<FONT SIZE = 3.5 font face=Arial>" & Texte1 & _ "<FONT SIZE = 5.5 font face=Arial color=blue><b>" & TexteCouleur & "</b></br> " & _ "<FONT SIZE = 3.5 font face=Arial color=Black>" & texte2 & "" .Send End With Set xMailOut = Nothing Set xOutApp = Nothing Application.ScreenUpdating = True End Sub '----------------------------------------------------------- MichD
