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 coisas para várias pastas ou converter mensagens em compromissos, etc. 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, quero um único botão para mover todos os meus e-mails para outra pasta, sem precisar pressionar Ctrl+A para selecioná-los todos primeiro.

Isso é possível?

Answer 1

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

De "Escrevendo uma macro do Outlook":

Uma macro é qualquer sub-rotina pública em um módulo de código. Uma função ou sub-rotina privada não pode ser uma macro e uma macro não pode estar localizada em uma classe ou módulo de formulário.

Para criar uma nova macro

1. No Outlook, aponte para Macro no menu Ferramentas e clique em Editor do Visual Basic.
2. Na janela Projeto, clique duas vezes no módulo que deseja que contenha a macro.
3. No menu Inserir, clique em Procedimento.
4. Na caixa Nome, digite um nome para a macro. O nome não pode conter espaços.
5. Clique OK. (O modelo para a sub-rotina macro aparece na janela do módulo de código).
6. Digite o código que deseja executar no corpo da sub-rotina.

Aqui está um exemplo de código (não testado) 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