En Outlook, ¿cómo puedo seleccionar todos los mensajes y moverlos a una carpeta con un solo clic?

Question

Me encantan las "Acciones rápidas" personalizables en la parte superior y he configurado algunas para mover cosas a varias carpetas o convertir mensajes en citas, etc. Sin embargo, una cosa que todavía no sé cómo hacer es tener una Botón que seleccionará todos los mensajes en una carpeta y los moverá a otra carpeta especificada (preconfigurada).

Básicamente, desde mi bandeja de entrada, quiero que un solo botón mueva todo mi correo a otra carpeta, sin tener que presionar Ctrl+A para seleccionarlos todos primero.

es posible?

Answer 1

Es posible; Sin embargo, necesitarás escribir una macro para hacerlo.

De "Escribir una macro de Outlook":

Una macro es cualquier subrutina pública en un módulo de código. Una función o una subrutina privada no puede ser una macro y una macro no puede ubicarse en una clase o módulo de formulario.

Para crear una nueva macro

1. En Outlook, seleccione Macro en el menú Herramientas y luego haga clic en Editor de Visual Basic.
2. En la ventana Proyecto, haga doble clic en el módulo que desea que contenga la macro.
3. En el menú Insertar, haga clic en Procedimiento.
4. En el cuadro Nombre, escriba un nombre para la macro. El nombre no puede contener espacios.
5. Haga clic en Aceptar. (La plantilla para la subrutina macro aparece en la ventana del módulo de código).
6. Escriba el código que desea ejecutar en el cuerpo de la subrutina.

Aquí hay un código de ejemplo (no probado) para comenzar:

Sub MoveItems() 

  Dim Messages As Selection 
  Dim Msg As MailItem 
  Dim NS As NameSpace 

  Set NS = Application.GetNamespace("MAPI") 
  Set Messages = ActiveExplorer.Selection 

  If Messages.Count = 0 Then 
    Exit Sub 
  End If 

  For Each Msg In Messages 
    Msg.Move NS.Folders("Personal Folders").Folders("SavedMail") 
  Next 

End Sub