Option Explicit
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.Send
Next olItem


Dim obApp As Object
Dim NewEmail As MailItem

Set obApp = Outlook.Application
Set NewEmail = obApp.ActiveInspector.CurrentItem

'If you want to set a specific category to the new email manually
'You can use the following line instead to show the Category dialog
'NewEmail.ShowCategoriesDialog
NewEmail.Categories = "Juan Cabrera”"

Set obApp = Nothing
Set NewEmail = Nothing
End Sub