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

Como mover a mensagem de e-mail para a pasta especificada depois de ler no Outlook?

Mover a mensagem de e-mail para uma pasta específica após a leitura é a melhor maneira de manter a pasta Caixa de entrada limpa no Outlook. Para muitos usuários do Outlook, eles tendem a criar uma regra para a movimentação desses e-mails lidos. Na verdade, o Outlook não oferece suporte a esse processo do assistente de regra. Neste artigo, mostraremos como mover mensagens de e-mail para uma pasta especificada após ler com o código VBA no Outlook.

Mova a mensagem de e-mail para a pasta especificada após ler no Outlook

Guia Office - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - traz 100 recursos avançados poderosos para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails de uma vez; Adicionar saudação automaticamente quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de Anexo: Desanexar automaticamente, Comprimir tudo, Renomear tudo, Salvar tudo automaticamente ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails e contatos duplicados ...
  • Mais de 100 recursos avançados resolva a maioria dos seus problemas no Outlook 2021 - 2010 ou Office 365. Recursos completos Avaliação gratuita de 60 dias.

seta azul bolha direitaMova a mensagem de e-mail para a pasta especificada após ler no Outlook

Você pode mover mensagens de e-mail para uma pasta específica depois de ler com o código VBA em execução no Outlook.

1. Em primeiro lugar, você precisa criar um novo nome de pasta “Avaliado”Na pasta Caixa de entrada.

2. Abra a pasta Caixa de entrada e pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

3. Em seguida, clique duas vezes para expandir Project1 > Objetos do Microsoft Outlook > Esta sessão do Outlook para abrir o VbaProject.OTM editor.

4. Em seguida, copie e cole o código VBA abaixo no editor VbaProject.OTM, conforme mostrado na captura de tela acima.

Código VBA: mover mensagens após lidas

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Em seguida, clique no Salvar botão para salvar o código VBA e, em seguida, feche o Microsoft Visual Basic para Aplicações janela.

6. Clique com o botão direito no Barra de Ferramentas de Acesso RápidoE selecione Personalize a barra de ferramentas de acesso rápido no menu do botão direito. Veja a imagem:

7. No Opções do Outlook caixa de diálogo, você precisa:

1). Selecione Macros no Escolha comandos de lista suspensa;

2). Selecione Projeto 1. ThisOutlookSession na caixa sob o Escolha comandos de lista suspensa;

3). Clique no Adicionar botão;

4). Clique no OK botão.

8. Então você pode ver o Macro botão mostrado no Barra de Ferramentas de Acesso Rápido. Certifique-se de localizar na pasta da caixa de entrada da qual deseja mover todas as mensagens lidas e clique no botão Macro botão para executar o código VBA dentro da caixa de entrada.

Notas:

1. Este código VBA pode ser aplicado no Outlook 2007, 2010 e 2013; Mas, no Outlook 2007, você pode clicar diretamente no Opere botão para executar o código.

2. Se houver várias contas de e-mail em seu Outlook, o código VBA só pode ser aplicado na conta cujo arquivo de dados está definido como padrão. Você pode verificar o arquivo de dados padrão clicando em Envie o > Informação > Configurações de conta > Configurações de conta para abrir o Configurações de conta caixa de diálogo. Então vá para o Arquivo de dados guia, você verá que o arquivo de dados padrão é marcado por antes.

3. Se você deseja alterar o arquivo de dados padrão para outra conta de e-mail, selecione e realce a conta que deseja definir como padrão e clique no botão Definir como padrão no Configurações de conta caixa de diálogo.

4. Ao executar o código VBA pela primeira vez e descobrir que as mensagens lidas não são movidas todas de uma vez, continue clicando no botão Macro até que todas as mensagens lidas na caixa de entrada sejam removidas.


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 

 

Comentários (10)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Este código VBA pode ser alterado para mover mensagens de uma subpasta Caixa de entrada para uma pasta "Revisada" na referida subpasta?
Este comentário foi feito pelo moderador no site
Eu tentei o método acima, mas nada acontece. Verifiquei que o nome da pasta estava correto e no local correto. Também defino minha conta principal como padrão, de onde estarei movendo as mensagens lidas. Eu clico no botão Macro... nada. Ajuda. Perdi algo.
Este comentário foi feito pelo moderador no site
Você tem que ativar as referências no VBA
Este comentário foi feito pelo moderador no site
Cadê todos os Dim's?????????????????????/ o.0
Este comentário foi feito pelo moderador no site
Que linha eu adiciono quando quero que essa regra seja aplicada apenas a e-mails com uma linha de assunto que inclua uma palavra ou texto?
Este comentário foi feito pelo moderador no site
Bom dia


Esiste la versione per Outlook 365 in Italian (non so se cambia qualcosa). Grazie
Este comentário foi feito pelo moderador no site
alguém teve isso não funcionou na segunda vez que você tentou aplicá-lo?
Este comentário foi feito pelo moderador no site
Eu usei este código VBA, mas agora todos os emails movidos para "Revisado" sumiram? Alguma idéia por quê?
Este comentário foi feito pelo moderador no site
E se apenas desejar mover as mensagens lidas não da caixa de entrada principal, mas de uma subpasta da caixa de entrada para a pasta "Revisado"?
Este comentário foi feito pelo moderador no site
E se apenas desejar mover as mensagens lidas não da caixa de entrada principal, mas de uma subpasta da caixa de entrada para a pasta "Revisado"?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL