Personally I would take a different approach:
Option Explicit
Sub Redirect()
Dim myMail As Outlook.MailItem
Dim myReply As Outlook.MailItem
Dim mySelected As Outlook.Selection
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
Dim i As Long
Dim myText As String
myText = "Hello," & vbCrLf
myText = myText & vbCrLf & "I have received your request and forwarded it to Blah Blah, who will handle it from here."
Set mySelected = Outlook.ActiveExplorer.Selection
For i = 1 To mySelected.Count
Set myMail = mySelected(i)
Set myReply = Outlook.CreateItem(olMailItem)
With myReply
.BodyFormat = olFormatHTML
.To = myMail.SenderEmailAddress
.subject = "Re: " & myMail.subject
'blind copy to the person it was forwarded to
.Recipients.Add("someone@somewhere.com").Type = 3
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range(0, 0)
.Display
oRng.Text = myText
.Attachments.Add myMail
End With
Next i
lbl_Exit:
Set olInsp = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
Set myMail = Nothing
Set myReply = Nothing
Set mySelected = Nothing
Exit Sub
End Sub