Sub ReplyMSG()
Dim olItem As Outlook.MailItem
Dim olReply As MailItem ' Reply

For Each olItem In Application.ActiveExplorer.Selection
Set olReply = olItem.ReplyAll
olReply.HTMLBody = "Am currently working on your quote, I should have it done today or first thing tomorrow morning. Any questions feel to email directly please. To speed up the process please make sure you have the following on the quote." & vbCrLf & olReply.HTMLBody

<ol>
<li>Item 1</li>
<li>Item 2</li>
<li>Item 3</li>
olCurrent.Display
olCurrent.Categories = "Juan Cabrera"
olReply.Send & Signature
Next olItem


Set olItem = Nothing
Set olReply = Nothing
End Sub