In the code below I specify the body of the email using a series of cell references from my workbook. Can I use the same approach and use .HTMLbody instead of .Body.
I want to be able to format the body of my message or make it appear more aesthetically pleasing for the recipient
A line below with an empty shell for .HTMLbody has been commented out below
------------------------------
With OutMail
.to = Range("V2")
.CC = Range("V6")
.BCC = ""
.Subject = Range("W2")
'.HTMLBody = "<HTML><H2>Test</H2>******> test2. </BODY></HTML>"
.BODY = Range("S32") & vbNewLine & vbNewLine & Range("W4") & vbNewLine & Range("W5") & vbNewLine & Range("W15") & vbNewLine & Range("W16") & vbNewLine & Range("W6") & vbNewLine & Range("W7") & vbNewLine & Range("W8") & vbNewLine & Range("W9") & vbNewLine & Range("W10") & vbNewLine & Range("W11") & vbNewLine & Range("W17") & vbNewLine & Range("W16") & vbNewLine & Range("W18") & vbNewLine & Range("W12") & vbNewLine & Range("W38") & vbNewLine & Range("W54") & vbNewLine & Range("W40") & vbNewLine & Range("I3")
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display 'or use .send
I want to be able to format the body of my message or make it appear more aesthetically pleasing for the recipient
A line below with an empty shell for .HTMLbody has been commented out below
------------------------------
With OutMail
.to = Range("V2")
.CC = Range("V6")
.BCC = ""
.Subject = Range("W2")
'.HTMLBody = "<HTML><H2>Test</H2>******> test2. </BODY></HTML>"
.BODY = Range("S32") & vbNewLine & vbNewLine & Range("W4") & vbNewLine & Range("W5") & vbNewLine & Range("W15") & vbNewLine & Range("W16") & vbNewLine & Range("W6") & vbNewLine & Range("W7") & vbNewLine & Range("W8") & vbNewLine & Range("W9") & vbNewLine & Range("W10") & vbNewLine & Range("W11") & vbNewLine & Range("W17") & vbNewLine & Range("W16") & vbNewLine & Range("W18") & vbNewLine & Range("W12") & vbNewLine & Range("W38") & vbNewLine & Range("W54") & vbNewLine & Range("W40") & vbNewLine & Range("I3")
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display 'or use .send