HTML code for colors

**arun.sj** · 07-10-2015, 04:17 PM

Hi Team,

I am using a macro to send mails from outlook. i am trying to update the codes with two things.. to change the outlook page color and change the font color of the sentenses..

Please help me with the code to change the page color..
I use the below code to select the font and color. With the below code i am able to use only the plain colors like red, black green etc..

I also need help to update this code so i can use shaded colors with RGB numbers. I tried to replace the below color "Black" with RGB numbers but its not working out.

Please help me...

 .htmlBody = .htmlBody & "<font face=""Arial"" size=""2"" color=""Black"">" & "Hello "<br/>"

**daffodil11** · 07-10-2015, 04:50 PM

<body text=""rgb(0,0,255)"" bgcolor=""rgb(0,255,0)"">

I use W3Schools.com for most of my HTML tag referencing.

Here's a tutorial specifically on color.

**arun.sj** · 07-11-2015, 03:14 PM

Originally Posted by daffodil11

<body text=""rgb(0,0,255)"" bgcolor=""rgb(0,255,0)"">

I use W3Schools.com for most of my HTML tag referencing.

Here's a tutorial specifically on color.

i used the code but some how it didnt work for me.. the color didnt change..

i think i am not updating the code in the right way.. below is the code that i used.. please help me to update this..

 .htmlBody = .htmlBody & "<body text=""rgb(255,255,0)"" bgcolor=""rgb(79,129,189)"">" & "Hello "<br/>"

**arun.sj** · 07-13-2015, 03:42 AM

Hi Team, Please help..

**daffodil11** · 07-13-2015, 09:17 AM

Here's an example I use from Excel that combines multiple strings to form dynamic To, Body, and Signature.

Sub Fluffypuff()

Dim OutApp As Object
Dim OutMail As Object
Dim strBody As String
Dim strOpener As String

Signature = "<font color=002395><b>Captain Bananas <br>" & _
            "</b></font>"


strCloser = "I am somewhat nifty."

    
strBody = "<font face=""Arial""> Bob,<br><br><br>" & strOpener & _
                    strCloser & "<br><br>Thanks,<br>" & Signature
           
        
        
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        
            With OutMail
                .to = "themuffinman@drearylane"
                .Subject = "Do you know the muffin man?"
                .HTMLbody = strBody
                .Display
            End With
        
        Set OutApp = Nothing
        Set OutMail = Nothing
    

End Sub

**daffodil11** · 07-13-2015, 09:09 AM

.htmlBody = "<body text=""rgb(255,255,0)"" bgcolor=""rgb(79,129,189)"">" & "Hello "<br/>"

**arun.sj** · 07-14-2015, 03:55 AM

Originally Posted by daffodil11

.htmlBody = "<body text=""rgb(255,255,0)"" bgcolor=""rgb(79,129,189)"">" & "Hello "<br/>"

Unfortunately this code is not working for me.. The color of both font and mail doesn't change..

Attached is the sample macro file that I am using to send emails..

Please help me update the HTML body so I can change the colour of both font and mail page..

Please help..

**arun.sj** · 07-14-2015, 03:59 AM

I missed to attach.. Added the sample file now..

**arun.sj** · 07-15-2015, 02:29 AM

Hi Team, Requesting for help on this request..

**LordLoki** · 07-15-2015, 05:29 AM

Hi Arun,

Replace your code with this that should do what you wanted and also fix the problem with the Signature you reported in the other Thread.
I removed all the Font settings and put the info directly in the Body.
I left a diffrent font setting for the Signature that you can see how to format individual text different if neccessary

to change the Background or text put new colorcodes in this line Color is textcolor and background-color is obviously background color

Stylebody = "<BODY style=font-size:10pt;font-family:Arial;color:rgb(255,255,0);background-color:rgb(79,129,189)>"

Sub Button1_Click()
Dim ce As Range, i As Long
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strto As String, strcc As String, strbcc As String
    Dim strsub As String, strbody As String

 'c01 = "C:\Users\12453\Documents\Testing\ABJ\AAA.xlsm" 'change the path and the file name
    For i = 2 To Sheets("Sheet1").Range("a65536").End(xlUp).Row
        If Cells(i, 1).Value <> "" Then
            Set OutApp = CreateObject("Outlook.Application")
            OutApp.Session.Logon
            Set OutMail = OutApp.CreateItem(0)
        
            With Sheets("Sheet1")
                strto = .Cells(i, 4).Value
                strcc = .Cells(i, 5).Value
                strbcc = ""
                strsub = "Welcome to the Project " & " " & .Cells(i, 2)
                Picturepath = "C:\Users\12453\Desktop\download.jpg" '<-- add path to image here
            End With
            
            Stylebody = "<BODY style=font-size:10pt;font-family:Arial;color:rgb(255,255,0);background-color:rgb(79,129,189)>"
            closing = "</BODY>"
            
            With OutMail
                .BodyFormat = 2
                .To = strto
                .cc = strcc
                .bcc = strbcc
                .Subject = strsub
                
                
                .SentOnBehalfOfName = "kaiserOps2@cognizant.com"
                .Attachments.Add Picturepath, olByValue
                
                .htmlbody = Stylebody & "<ol><li> Welcome to the Project" & " " & Sheet1.Cells(i, 2) & _
                 "</li></br>" & "Hi there," & "<br/>" & "We welcome you all to the project" & " " & Sheet1.Cells(i, 2).Value & _
                 "<br>" & "<br><li><B>Embedded Image:</B></li></ol><br>" & _
                 "<div style='margin-left:200px;'><img src='cid:download.jpg'" & "width='800' height='200'><br></div>" & _
                 "<font face=""Arial"" size=""2"" color=""White"">" & "<br>Best Regards, <br>Arun.SJ</font></span>" & closing   'To add a sentence with project name as in the excel - Welcome to the Project " & " " & Sheet1.Cells(i, 2)
                '.Attachments.Add c01
                '.Send
                Debug.Print .htmlbody
                .Display
                .Save
                .Close o1PromtForSave
                Cells(i, 1).Select
     With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
            End With
    
            Set OutMail = Nothing
            Set OutApp = Nothing
        End If
  
    Next i
End Sub

**arun.sj** · 07-15-2015, 07:45 AM

Originally Posted by LordLoki

Hi Arun,

Replace your code with this that should do what you wanted and also fix the problem with the Signature you reported in the other Thread.
I removed all the Font settings and put the info directly in the Body.
I left a diffrent font setting for the Signature that you can see how to format individual text different if neccessary

to change the Background or text put new colorcodes in this line Color is textcolor and background-color is obviously background color

Stylebody = "<BODY style=font-size:10pt;font-family:Arial;color:rgb(255,255,0);background-color:rgb(79,129,189)>"

Sub Button1_Click()
Dim ce As Range, i As Long
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strto As String, strcc As String, strbcc As String
    Dim strsub As String, strbody As String

 'c01 = "C:\Users\12453\Documents\Testing\ABJ\AAA.xlsm" 'change the path and the file name
    For i = 2 To Sheets("Sheet1").Range("a65536").End(xlUp).Row
        If Cells(i, 1).Value <> "" Then
            Set OutApp = CreateObject("Outlook.Application")
            OutApp.Session.Logon
            Set OutMail = OutApp.CreateItem(0)
        
            With Sheets("Sheet1")
                strto = .Cells(i, 4).Value
                strcc = .Cells(i, 5).Value
                strbcc = ""
                strsub = "Welcome to the Project " & " " & .Cells(i, 2)
                Picturepath = "C:\Users\12453\Desktop\download.jpg" '<-- add path to image here
            End With
            
            Stylebody = "<BODY style=font-size:10pt;font-family:Arial;color:rgb(255,255,0);background-color:rgb(79,129,189)>"
            closing = "</BODY>"
            
            With OutMail
                .BodyFormat = 2
                .To = strto
                .cc = strcc
                .bcc = strbcc
                .Subject = strsub
                
                
                .SentOnBehalfOfName = "kaiserOps2@cognizant.com"
                .Attachments.Add Picturepath, olByValue
                
                .htmlbody = Stylebody & "<ol><li> Welcome to the Project" & " " & Sheet1.Cells(i, 2) & _
                 "</li></br>" & "Hi there," & "<br/>" & "We welcome you all to the project" & " " & Sheet1.Cells(i, 2).Value & _
                 "<br>" & "<br><li><B>Embedded Image:</B></li></ol><br>" & _
                 "<div style='margin-left:200px;'><img src='cid:download.jpg'" & "width='800' height='200'><br></div>" & _
                 "<font face=""Arial"" size=""2"" color=""White"">" & "<br>Best Regards, <br>Arun.SJ</font></span>" & closing   'To add a sentence with project name as in the excel - Welcome to the Project " & " " & Sheet1.Cells(i, 2)
                '.Attachments.Add c01
                '.Send
                Debug.Print .htmlbody
                .Display
                .Save
                .Close o1PromtForSave
                Cells(i, 1).Select
     With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
            End With
    
            Set OutMail = Nothing
            Set OutApp = Nothing
        End If
  
    Next i
End Sub

Thank you so much.. This was great help.. It's working perfectly fine as expected..

**arun.sj** · 07-16-2015, 02:17 AM

I am facing a challenge in the below part of the code.. Need help please..

I am not able to change the font to any font which has multiple words in the font name..

For Example, fonts like Arial, calibri is working but fonts like "comic sans ms","Arial black" is not working..

Please help..

Stylebody = "<BODY style=font-size:10pt;font-family:Arial;color:rgb(255,255,0);background-color:rgb(79,129,189)>"

**arun.sj** · 07-16-2015, 02:19 AM

I am facing a challenge in the below part of the code.. Need help please..

I am not able to change the font to any font which has multiple words in the font name..

For Example, fonts like Arial, calibri is working but fonts like "comic sans ms","Arial black" is not working..

Please help..

Stylebody = "<BODY style=font-size:10pt;font-family:Arial;color:rgb(255,255,0);background-color:rgb(79,129,189)>"

**arun.sj** · 07-16-2015, 07:51 AM

Hi Team, Please help..

**daffodil11** · 07-16-2015, 10:13 AM

Use the word cursive instead. Outlook will know what you mean.

Stylebody = "<BODY style=font-size:10pt;font-family:cursive;color:rgb(255,255,0);background-color:rgb(79,129,189)>"

**arun.sj** · 07-16-2015, 10:54 AM

Originally Posted by daffodil11

Use the word cursive instead. Outlook will know what you mean.

Stylebody = "<BODY style=font-size:10pt;font-family:cursive;color:rgb(255,255,0);background-color:rgb(79,129,189)>"

That worked.. I updated cursive and the font was comic sans ms in the mail ..

But what should I do if I want to change to other multiple word fonts..
Please guide me..

**daffodil11** · 07-16-2015, 11:14 AM

Double quote around the words. Outlook doesn't understand Comic Sans MS, but if it did it would look like this:

Stylebody = "<BODY style=font-size:10pt;font-family:""Comic Sans MS"";color:rgb(255,255,0);background-color:rgb(79,129,189)>"

**arun.sj** · 07-16-2015, 01:18 PM

Originally Posted by daffodil11

Double quote around the words. Outlook doesn't understand Comic Sans MS, but if it did it would look like this:

Stylebody = "<BODY style=font-size:10pt;font-family:""Comic Sans MS"";color:rgb(255,255,0);background-color:rgb(79,129,189)>"

Thanks for your reply.... Double quote doesn't work .. i already tried that.. The problem is that with or without quotes when i try to update the font with two or more words, only the first word of the font is displayed in the font section of the outlook..

For example when i try to update with comic sans ms, only comic is displayed in outlook..

**daffodil11** · 07-16-2015, 01:28 PM

That's why you use cursive instead. Outlook doesn't key Comic Sans MS as "Comic Sans MS". You'll have to look up specifically what tags are related to each font.

Do you have another font in mind?

**arun.sj** · 07-16-2015, 02:14 PM

Originally Posted by daffodil11

That's why you use cursive instead. Outlook doesn't key Comic Sans MS as "Comic Sans MS". You'll have to look up specifically what tags are related to each font.

Do you have another font in mind?

Cursive is perfectly working fine for me .. i don't need for any other font now.. if you can advise me where to look for tags for other fonts, it may definitely help me in future..

**daffodil11** · 07-16-2015, 02:16 PM

I posted two links in my first post. Other than that, just Google "HTML font-family <insert name of font>"

**arun.sj** · 07-16-2015, 02:34 PM

Originally Posted by daffodil11

I posted two links in my first post. Other than that, just Google "HTML font-family <insert name of font>"

Fantastic.. That will help.. Thanks a lot for your help and support ..

HTML code for colors

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Re: HTML code for colors

Thread Information

Users Browsing this Thread

Similar Threads

Using VBA in html code

Cell with HTML Code

ADD HTML CODE

Flashing colors in HTML output?

HTML Code cleaner

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions