none
Reenviar Correos manteniendo datos del origen RRS feed

  • Pregunta

  •  

     Buenas tardes,

      Primero agradecer la ayuda que me podáis dar, el fin de esto no es mas que al recibir correos en una cta determinada, quiero reenviarlos a otros, mediante una regla que llame a este macro para ejecutarla automaticamente, y que en el mensaje reenviado no aparezca FW en el asunto, el remitente sea el original, con el mensaje original, todo como si no hubiese pasado por la cta puente por así decirlo y por tanto que quien lo reciba si responde, responda al remitente original y no a la que hace de puente, no se si me he explicado, espero que para quien domine esto no le resulte difícil y me ayude en esto, si necesitáis mas detalles por favor preguntad, gracias.

    Sub RedirectEmail()
        Dim olItem As MailItem
        Dim olNewMail As MailItem

        Set olItem = Application.ActiveExplorer.Selection.Item(1)  (aqui quisiera que no necesitara marcar un correo, ya que utilizare una regla para que se aplique la macro)

        If olItem.Class = olMail Then
           Set olNewMail = olItem.Forward
           With olNewMail
                'Remove "FW" prefix in subject
                (Seleccionar la cuenta de envio que desee)
                (Añadir que el email de respuesta sea el del remitente original)
                .Sender = oLItem.Sender
                .To = "correo1@correo.com;correo2@correo.com"
                .Subject = olItem.Subject
                .HTMLBody = olItem.HTMLBody
                .Send
           End With
        End If
    End Sub


    miércoles, 29 de agosto de 2018 15:43