Patriot2879
Well-known Member
- Joined
- Feb 1, 2018
- Messages
- 1,259
- Office Version
- 2010
- Platform
- 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