No Outlook, como posso selecionar todas as mensagens e movê-las para uma pasta com um clique?

Question

Adoro as "Ações rápidas" personalizáveis na parte superior e configurei algumas para mover itens para várias pastas ou converter mensagens em compromissos, etc. Ainda assim, não consigo descobrir como fazer isso. tem um botão que selecionará todas as mensagens em uma pasta e as moverá para outra pasta especificada (pré-configurada).

Basicamente, na minha caixa de entrada, eu quero um único botão para mover todos os meus e-mails para outra pasta para mim, sem ter que pressionar Ctrl + A para selecioná-los primeiro.

Isso é possível?

    

Answer 1

É possível; você precisará escrever uma macro para fazer isso.

De " Escrevendo uma macro do Outlook ":

A macro is any public subroutine in a code module. A function or a private subroutine cannot be a macro, and a macro cannot be located in a class or form module.

To create a new macro

1. In Outlook, point to Macro on the Tools menu, and then click Visual Basic Editor.
2. In the Project window, double-click the module you want to contain the macro.
3. On the Insert menu, click Procedure.
4. In the Name box, type a name for the macro. The name cannot contain spaces.
5. Click OK. (The template for the macro subroutine appears in the code module window).
6. Type the code you want to run in the body of the subroutine.

Veja alguns exemplos de códigos (não testados) para você começar:

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