The following is a combination of the two
Code:
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 tomorrow morning. Any question feel to email directly please." & vbCrLf & olReply.HTMLBody
olReply.Display
olReply.Categories = "Juan Cabrera”"
olReply.Send
Next olItem
Set olItem = Nothing
Set olReply = Nothing
End Sub