Visual Basic - Redireccion emails

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