Note: The other languages of the website are Google-translated. Back to English

¿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 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.

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.

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.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 

 

Comentarios (1)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Esto es genial, pero si alguien responde a la cadena del correo electrónico con un archivo adjunto, también se reenviará automáticamente ese archivo adjunto. Hay alguna manera de evitar esto? Gracias
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL