HTML using VBA for body of email

[jam1531]

Hello, I am trying to insert HTML code for the first time in my VBA to help format the body with bold, font, number point, etc.

I found a nifty site (https://www.quackit.com/html/online-html-editor/) that allows me to build what I want the email body to look like and then it gives me the HTML. However, when I put the code into the VBA there are multiple lines and it tries to put quotations around just the first line. If possible, how do I put this code in?

Code below:

                With OutlookMessage                 .To = "Jesse.McKibben@walmart.com"
                 .CC = ""
                 .BCC = ""
                 .Subject = TempFileName
                 .HTMLBody = "<p><kbd><big><tt>Hello,</tt> </big></kbd><o:p></o:p></p>"


                            <p><kbd><big>Please execute the following for all of the attached items </big></kbd><o:p></o:p></p>
                            
                            <ol>
                                <li><kbd><big>Place item in deleted status</big></kbd></li>
                                <li><kbd><big>Do <strong>NOT</strong> change Item Desc 1 to delete</big></kbd></li>
                                <li><kbd><big>Remove all traits and flags</big></kbd></li>
                                <li><kbd><big>Change Item expiration date to current date</big></kbd></li>
                                <li><kbd><big>After deleted send all items to BPS that have PLU's to have PLU removed </big></kbd><o:p></o:p></li>
                            </ol>
                            
                            <p><kbd><big>Thanks!</big></kbd> <o:p></o:p></p>"
                 .Attachments.Add DestinWB.FullName
                 .Display
                End With

Any help appreciated.

 

[jam1531]

I feel like a real rookie here. When I pasted in my HTML code it turned into the text I wanted and got rid of the code... Not sure how to paste in the code.

 

[Norie]

You would build the HTML up line by line, something like this.

strHTML = strHTML & "<p style='margin: 0px 0px 1em; padding: 0px; font-family: Verdana, Arial, Tahoma, Calibri, Geneva, sans-serif; background-color: rgb(250, 250, 250);'><kbd style='line-height: 13px;'><big>Please execute the following for all of the attached items</big></kbd><o:p></o:p></p>"
strHTML = strHTML & "<ol style='margin: 0px 40px; padding-right: 0px; padding-left: 0px; font-family: Verdana, Arial, Tahoma, Calibri, Geneva, sans-serif; background-color: rgb(250, 250, 250);'>"
strHTML = strHTML & "<li style='margin: 0px; padding: 0px; list-style: decimal outside;'><kbd style='line-height: 13px;'><big>Place item in deleted status</big></kbd></li>"
strHTML = strHTML & "<br />"
strHTML = strHTML & "<li style='margin: 0px; padding: 0px; list-style: decimal outside;'><kbd style='line-height: 13px;'><big>Do <strong style='font-style: inherit;'>NOT</strong> change Item Desc 1 to delete</big></kbd></li>"
strHTML = strHTML & "<br />"
strHTML = strHTML & "<li style='margin: 0px; padding: 0px; list-style: decimal outside;'><kbd style='line-height: 13px;'><big>Remove all traits and flags</big></kbd></li>"
strHTML = strHTML & "<br />"
strHTML = strHTML & "<li style='margin: 0px; padding: 0px; list-style: decimal outside;'><kbd style='line-height: 13px;'><big>Change Item expiration date to current date</big></kbd></li>"
strHTML = strHTML & "<li style='margin: 0px; padding: 0px; list-style: decimal outside;'><kbd style='line-height: 13px;'><big>After deleted send all items to BPS that have PLU's to have PLU removed</big></kbd><o:p></o:p></li>"
strHTML = strHTML & "<br />"
strHTML = strHTML & "<br />"
strHTML = strHTML & " "
strHTML = strHTML & "</ol>"
strHTML = strHTML & "<p style='margin: 0px 0px 1em; padding: 0px; font-family: Verdana, Arial, Tahoma, Calibri, Geneva, sans-serif; background-color: rgb(250, 250, 250);'><kbd style='line-height: 13px;'><big>Thanks!</big></kbd></p>"

 

[jam1531]

Thanks Norie. I am struggling with implementation of your response.

so should each line say "HTMLBody =" before the line?

 

[Norie]

No you would use what I posted to construct the HTML for the body of the email and then use this.

.HTMLBody = strHTML

 

[jam1531]

Nevermind I figured it out. This works perfect except that it makes the background of the text grey but that is no big deal. Thank you!

 

[Norie]

That site might be handy but the HTML it generated has a lot of unneeded stuff in it.

You'll need to play with the HTML to get it exactly as you want.

PS Pretty sure you don't need all of the 'style' stuff.

 

[jam1531]

Thanks!