I believe you would need html instead of plain text....
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Hello," & "<br>" & "<br>" & _
"We would like to go ahead and order the " & PartTextBox.Value & " " & "as quoted below." & "<br>" & "<br>" & _
QuoteTextBox.Value & "<br>" & "<br>" & _
"Please ship to the address provided below." & "<br>" & "<br>" & _
VendorTextBox.Value & "<br>" & _
VendorAddressTextBox.Value & "<br>" & _
CityTextBox.Value & "<br>" & _
ContactTextBox.Value & "<br>" & _
PhoneTextBox.Value & "<br>" & "<br>" & _
"Approved Ammount:" & " " & ApprovedTextBox.Value & "<br>" & _
"PO Number:" & " " & POTextBox.Value & "<br>" & "<br>" & _
"Thank you," & "<br>" & _
SenderTextBox.Value & "<br>" & _
"DriveTime Fleet Operations Team"
On Error Resume Next
With OutMail
.To = "pauo"
.CC = ""
.BCC = ""
.Subject = YMMTextBox.Value & " " & StockNumberTextBox.Value
.htmlBody = strbody
.Display
'Application.SendKeys "%s"
End With
I tried posting the font color tag also but that won't work with the site... the server blocks it. Just google hmtl font color and put the code around the textbox
Bookmarks