¿Cómo creo una regla de Outlook que busca mensajes en una carpeta específica?

Las reglas no están diseñadas para funcionar de esta manera. Solo se activan cuando se envía o recibe un mensaje, no cuando se agrega un elemento a una carpeta determinada. Dicho esto, hay una manera de lograr esto si está utilizando Outlook en una PC. La solución es una macro. Una macro puede monitorear una carpeta y tomar medidas cuando se agrega un nuevo elemento.

Aquí se explica cómo hacer esto en Outlook 2007. Esto supone que Outlook se está ejecutando y que la carpeta a la que está moviendo los elementos está debajo de la Bandeja de entrada y se llama “Seguimiento”.

Siga estas instrucciones para agregar el código a Outlook.

• ¿Los iPhones tienen una papelera de reciclaje para mensajes de texto eliminados?
• Cómo restaurar iTunes / iCloud Backup en iPhone X
• ¿Quién inventó Siri?
• ¿Cómo alguien pirateó el iPhone 6s bloqueado que mi amigo perdió en la playa?
• ¿Por qué Apple tiene un interruptor de timbre / silencio en el iPhone, a pesar de tener una filosofía de diseño mínima?

1. Iniciar Outlook
2. Haga clic en Herramientas> Macro> Editor de Visual Basic
3. Si aún no está expandido, expanda Microsoft Office Outlook Objects y haga clic en ThisOutlookSession
4. Copie el código del cuadro Fragmento de código y péguelo en el panel derecho de la ventana del Editor VB de Outlook
5. Edite el código según sea necesario. Incluí líneas de comentarios donde algo necesita o puede cambiar
6. Haga clic en el icono del disquete en la barra de herramientas para guardar los cambios.
7. Cierre el editor de VB
8. Haga clic en Herramientas> Centro de confianza
9. Haga clic en Seguridad de macros
10. Establezca Macro Security en “Advertencias para todas las macros”
11. Haga clic en Aceptar
12. Cerrar Outlook
13. Inicie Outlook Outlook mostrará un cuadro de diálogo que advierte que ThisOutlookSession contiene macros y le preguntará si desea permitir que se ejecuten. Decir que sí.

  Private WithEvents olkFolder como Outlook.Items

 Private Sub Application_Quit ()
     Establecer olkFolder = Nothing
 End Sub

 Private Sub Application_Startup ()
     Establezca olkFolder = Session.GetDefaultFolder (olFolderInbox) .Folders ("Seguimiento").
 End Sub
                                            
 Private Sub olkFolder_ItemAdd (elemento ByVal como objeto)
     Dim xitem como Outlook.MailItem
     Si Item.Class = olMail entonces
         Item.FlagRequest = "Seguimiento"
         Item.FlagIcon = olRedFlagIcon
         Item.FlagStatus = olFlagMarked
         Artículo Guardar
     Terminara si
 End Sub