D. Lee was kind enough to provide the original code that I adapted to my
environment which executes perfectly (shown below).

I am trying modify the code, as suggested, in order to bypass the Outlook
security prompts using Outlook Redemption in order to fully automate the rule
that uses the script. Due to my lack of VB programing skills, my attempts
have failed.

Can anyone help?

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem
Set objRespond = Item.Reply

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and
Settings\greenemi.HARRISAUTO\application
data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Recipients.Add objRespond.Recipients.Item(1).Address
objTemplate.Recipients.ResolveAll
objTemplate.Send

Set objRespond = Nothing
Set objTemplate = Nothing

End Sub