Sub RedirectEmail()
Dim olItem As MailItem
Dim olNewMail As MailItem
Set olItem = Application.ActiveExplorer.Selection.Item(1)
If olItem.Class = olMail Then
Set olNewMail = olItem.Forward
With olNewMail
'Remove "FW" prefix in subject
.Subject = olItem.Subject
.HTMLBody = olItem.HTMLBody
.Display
End With
End If
End Sub
With olNewMail
.to = "direccion1@loquesea.com;direccion2@otrodominio.com"
.cc = "direccion3@loquesea.com;direccion4@otrodominio.com"
'Remove "FW" prefix in subject
.Subject = olItem.Subject
.HTMLBody = olItem.HTMLBody
.Display
End With