Hello,

I want to be able to change the color of some text when it is being sent over to outlook. Not sure if this is easily doable. Any help is greatly appreciated.

I want to send the QuoteTextBox.Value in red.

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "Hello," & Chr(13) & Chr(13) & _
"We would like to go ahead and order the " & PartTextBox.Value & " " & "as quoted below." & Chr(13) & Chr(13) & _
QuoteTextBox.Value & Chr(13) & Chr(13) & _
"Please ship to the address provided below." & Chr(13) & Chr(13) & _
VendorTextBox.Value & Chr(13) & _
VendorAddressTextBox.Value & Chr(13) & _
CityTextBox.Value & Chr(13) & _
ContactTextBox.Value & Chr(13) & _
PhoneTextBox.Value & Chr(13) & Chr(13) & _
"Approved Ammount:" & " " & ApprovedTextBox.Value & Chr(13) & _
"PO Number:" & " " & POTextBox.Value & Chr(13) & Chr(13) & _
"Thank you," & Chr(13) & _
SenderTextBox.Value & Chr(13) & _
"DriveTime Fleet Operations Team"

On Error Resume Next

With OutMail
.To = RecipientComboBox.Value
.CC = ""
.BCC = ""
.Subject = YMMTextBox.Value & " " & StockNumberTextBox.Value
.Body = strbody
.Display
'Application.SendKeys "%s"
End With