Outloook VBA macro to reply all with oft template

Question

I have a macro built for VBA Outlook where I can reply all, using an attachment. This is the code:

Sub Estimate()
    Dim origEmail As MailItem
    Dim replyEmail