Saltar al contenido principal

¿Cómo reenviar automáticamente los archivos adjuntos solo en función de criterios específicos en Outlook?

Normalmente, al reenviar un correo electrónico, también se incluyen el cuerpo del mensaje original y los archivos adjuntos. Pero, a veces, solo necesita reenviar solo los archivos adjuntos sin el mensaje original según los criterios a una persona específica. ¿Cómo podrías resolver este trabajo en Outlook?

Reenvíe solo archivos adjuntos basados ​​en criterios específicos a una persona automáticamente con código VBA


Reenvíe solo archivos adjuntos basados ​​en criterios específicos a una persona automáticamente con código VBA

Por ejemplo, al recibir un correo electrónico cuyo asunto contiene el texto "kto feature", todos los archivos adjuntos de este correo electrónico se reenviarán a la persona específica automáticamente sin el cuerpo del mensaje. Los siguientes pasos pueden ayudarlo, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook del desplegable Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.

Código de VBA: reenvío automático de correo electrónico sin cuerpo del mensaje, pero solo incluya 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 ""    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Note: En el código anterior, debe cambiar el texto del asunto y la dirección del destinatario por los suyos.

doc auto forward adjuntos solo 1

3. Luego, guarde el código y reinicie Outlook para que tenga efecto.

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

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


Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

Leer Mas       Descargar gratis      Comprar
 

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is great, but if someone replies to the chain of the email with an attachment it will auto-forward that attachment as well. Is there a way to avoid this? Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations