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