Anexar arquivos automaticamente em resposta com o Outlook VBA

Oi lá, 

Muito obrigado por sua aplicação Kutools que é muito útil para mim.
Preciso de um script VBA que não encontrei em seu aplicativo. Eu preciso quando respondo um email com uma Macro, um arquivo específico no meu pc anexar ao Reply Windows e eu enviei !

Eu vi este código que pode ser usado apenas para criar uma nova mensagem com arquivo anexado: 

Sub 

NewMessageWithAttachment()

Dim

oMsg 

As

Outlook.MailItem

Set

oMsg = Application.CreateItem(olMailItem)

With

oMsg

.Attachments.Add 

"C:\Attachment.doc"

.Display

End

With

End

Sub

Mas eu preciso dessa função quando respondo um e-mail.
Cumprimentos