¿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
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 de 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 "skyyang@addin88.com" 'change address to your own
.ResolveAll
End With
.Send
End With
End Sub
Nota:: En el código anterior, debe cambiar el texto del asunto y la dirección del destinatario por los suyos.
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.
Nota:: Este código solo está disponible para la cuenta predeterminada.
Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.
- Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
- Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
- Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
- Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
- Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
