Inserting color in VBA email code

[trey2008]

Hey! I am trying to have certain lines of my ebody be red & bold and also create a bullet list. I currently have just a bullet entered, but no list. And the color, I'm totally lost on. Below is the code. Line 1 of the ebody needs to be red, and the line with Chr (149) is where I have the bullet inserted, but it will not create a list. Thanks for any help!

esubject = "Urgent #" & Range("D4") & "/" & Range("D3")
sendto = Range("D5") & ";" & Range("A3")
ccto = redacted
ebody = "IMMEDIATE ACTION REQUIRED AND RESPONSE NEEDED OR PROCESSING ON THIS REQUEST MAY BE DELAYED!" _
& vbCrLf & vbCrLf & "Unfortunately," & vbCrLf & vbCrLf _
& Chr(149) & " Enter Info." & vbCrLf & vbCrLf _
& "Once all information in question has been received, reply back to this email to proceed with this request." & vbCrLf & vbCrLf _
& "If you have any questions, please contact [EMAIL="BAT@firstcitizens.com"]redact[/EMAIL] or redact"
Set app = CreateObject("Outlook.Application")
Set itm = app.CreateItem(0)
With itm
.Subject = esubject
.To = sendto
.CC = ccto
.Body = ebody
.Display

[code]

 

[mole999]

thinl you have to force it to HTML or RTF to get colour to be there, providing that the recipient doesn't force to TEXT

 

[Logit]

.
Sending HTML Email from Excel :

https://www.rondebruin.nl/win/s1/outlook/bmail2.htm


And .. why recreate the wheel ? If you are not familiar with writing HTML then:

Online converters for TEXT TO HTML format :

https://4html.net/Online-HTML-Editor-Text-to-HTML-Converter-870.html

https://html-cleaner.com/

https://wordtohtml.net/


NOTE: To send HTML body in your emails, you will need to include the sample FUNCTION : Function RangetoHTML(rng As Range)
in the first link above.