¿Cómo reenvío automáticamente solo los archivos adjuntos según criterios específicos en Outlook?

Normalmente, al reenviar un correo electrónico en Outlook, se incluyen tanto el cuerpo del mensaje original como sus archivos adjuntos. Sin embargo, en ocasiones solo necesita reenviar los archivos adjuntos —sin el mensaje original— a una persona específica, según ciertos criterios. ¿Cómo puede realizar esta tarea en Outlook?

Reenvíe únicamente los archivos adjuntos en función de criterios específicos a una persona automáticamente mediante código VBA

---

Reenvíe únicamente los archivos adjuntos en función de criterios específicos a una persona automáticamente mediante código VBA

Por ejemplo, al recibir un correo electrónico cuyo asunto contenga el texto «kto feature», todos los archivos adjuntos de dicho mensaje se reenviarán automáticamente a la persona indicada, sin incluir el cuerpo del mensaje. Los siguientes pasos pueden ayudarle; sígalos tal como se indican:

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en ThisOutlookSession del panel Project1 (VbaProject.OTM) para abrir el módulo y, a continuación, copie y pegue el siguiente código en el módulo en blanco.

Código VBA: Reenvío automático correo electrónico sin el cuerpo del mensaje, incluyendo únicamente los archivos adjuntos:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Nota: En el código anterior, debes reemplazar el asunto y la dirección del destinatario por los tuyos propios.

3. A continuación, guarde el código y reinicie Outlook para que los cambios surtan efecto.

4. A partir de ahora, cada vez que llegue a su buzón un nuevo correo electrónico que contenga el texto específico en el asunto, Outlook reenviará automáticamente sus archivos adjuntos —sin el cuerpo del mensaje— a la persona deseada.

Nota: Este código solo está disponible para la cuenta predeterminada.