I have a macros that copies over a cell that has text in different colors and bold and plain type. When it pastes in the email, it is all one fixed font. See below for the code. I have attached an example of what I would like for the body of the email to look like. Any help is appreciated, Thanks!!
Sub SPANISH_MANUALTIME_EMAIL()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String
Dim rng As Range
Set rng = Sheets("EMAIL").Range("C3").SpecialCells(xlCellTypeVisible)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
SigString = Environ("appdata") & _
"\Microsoft\Signatures\Santander.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
On Error Resume Next
With OutMail
.To = "@Serv: Frontend Managers"
.CC = "My Team"
.BCC = ""
.Subject = Sheets("EMAIL").Range("B3")
.htmlbody = "<style> .fixedfont {font-size : 11pt}</style> <font face=""+Body"" class=""fixedfont"">" & RangetoHTML(rng) & "<br><br>" & Signature
.Display
End With
End Sub
Bookmarks