O artigo Copiar o corpo do email para resposta automática no Outlook 2007 sugere o seguinte script como solução:
Sub AutoReply(Item As Outlook.MailItem)
Dim olkReply As Outlook.MailItem
Set olkReply = Item.Reply
With olkReply
'Change the subject on the next line as desired'
.Subject = "Your Subject Goes Here"
'Change the body as desired'
.HTMLBody = "Your reply text goes here.<bt><br>" & olkReply.HTMLBody
.Send
End With
Set olkReply = Nothing
End Sub
Observação: Desde que publiquei este link, a Experts Exchange mudou seu modelo de negócios e se tornou muito menos acessível. O código é no entanto duplicado acima, mesmo que o link esteja inutilizável.