Text Highlight Color

Patriot2879

Well-known Member
Joined
Feb 1, 2018
Messages
1,227
Office Version
  1. 2010
Platform
  1. Windows
Hi I hvee cdebelow and whee the text isfor forward plaaning I wantthis tohave a text highlight color of yellow please an you advise ow t do this? many thanks for your time

Code:
"<br><br>" & "Forward Planning & JM-ing - ??." & "<br><br>" & "Many thanks, New Connections Team."

Code:
Private Sub CommandButton10_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim sTo As String, sCC As String, sSbject As String, sBody As String
Set OutApp = CreateObject("Outlook.Application")
With Application
.EnableEvents = False
.ScreenUpdating = False
End With

ssubject = "New Connections Handover for ??"
sTo = ""
sCC = ""
sBody = "Hi All" & vbCrLf & "<br><br>" & "Please find attached the New Connections Handover for <u><b>??</u></b>. " & vbCrLf & "<br><br><b>" & "? Jobs booked and ? manual jobs." & vbCrLf & "<br><br><u>" & "Escalations." & vbCrLf & "</b></u><br><br>" & "None. " & vbCrLf & "<u><b><br><br>" & "Paper Jobs." & vbCrLf & "</u></b><br><br>" & "None." & vbCrLf & "<u><b><br><br>" & "3 Phase Mentoring." & vbCrLf & "</u></b><br><br>" & "None." & vbCrLf & "<u><b><br><br>" & "Managed/Organised sites." & vbCrLf & "</u></b><br><br>" & "None." & vbCrLf & "<u><br><br><b>" & "DCC." & vbCrLf & "</u></b><br><br>" & "None." & vbCrLf & "<u><br><br><b>" & "Rebinds." & "</u></b><br><br>" & "There are 0 rebinds issued for tomorrow." & "<u><br><br><b>" & "Duplicate Jobs." & "</u></b><br><br>" & "There are 0 duplicates issued for tomorrow." & "<u><br><br><b>" & "The Plan" & "</u></b><br><br>" & vbNewLine & _
"Optimising Next Day (D+1 - ??" & vbNewLine & _
"<br><br>" & "Forward Planning & JM-ing - ??." & "<br><br>" & "Many thanks, New Connections Team."
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = sTo
.CC = sCC
.Subject = ssubject
.HTMLbody = sBody
.Display
End With
End Sub
 

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.
Hi what I would like if this helps is the background behind the text in yellow colour, the same as when you highlight the text highlight color when sending an email as normal, hope this helps :) thanks for your time
 
Upvote 0

Forum statistics

Threads
1,214,974
Messages
6,122,536
Members
449,088
Latest member
RandomExceller01

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top