Como mover automaticamente e-mails para uma pasta específica após lhes atribuir uma determinada categoria no Outlook?
Suponha que tenha atribuído uma categoria a um e-mail recebido no seu Outlook e, após essa atribuição, pretenda que o e-mail seja movido automaticamente para uma pasta com o mesmo nome da categoria. Por exemplo, um e-mail com a categoria «Privado» será movido automaticamente para uma pasta chamada «Privado» no seu Outlook. Como conseguir isto? O método descrito neste artigo ajuda-o a resolver este problema facilmente.
Mover e-mails para uma pasta especificada após atribuir uma determinada categoria com VBA
Mover e-mails para uma pasta especificada após atribuir uma determinada categoria com VBA
O código VBA abaixo permite mover automaticamente e-mails para uma pasta especificada no Outlook assim que lhes for atribuída uma determinada categoria. Siga os passos seguintes.
1. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes na janela ThisOutlookSession (Código) para a abrir. Em seguida, copie o código VBA abaixo para essa janela. Veja a imagem:
Código VBA: Mover e-mails para uma pasta especificada após atribuir uma determinada categoria
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. Guarde o código e reinicie o Outlook.
4. A partir de agora, ao atribuir uma categoria a um e-mail recebido, será automaticamente criada uma pasta com o nome dessa categoria dentro da Caixa de Entrada, e o e-mail será movido para lá. Veja a imagem:
Nota: Todos os e-mails com a mesma categoria serão automaticamente movidos para a mesma pasta. No entanto, se for atribuída uma nova categoria a um e-mail, será criada automaticamente uma nova pasta.
Assistente de E-mail com IA no Outlook: Respostas mais inteligentes, comunicação mais clara (magia com um só clique!)
Simplifique as suas tarefas diárias no Outlook com o Assistente de E-mail com IA do Kutools para Outlook. Esta ferramenta inteligente aprende com os seus e-mails anteriores para sugerir respostas precisas, otimizar o conteúdo das suas mensagens e ajudá-lo a redigir e aperfeiçoar textos com facilidade.
Esta funcionalidade suporta:
- Respostas Inteligentes: Obtenha respostas elaboradas com base nas suas conversas anteriores — personalizadas, precisas e prontas a usar.
- Conteúdo Aprimorado: Refine automaticamente o texto dos seus e-mails para garantir maior clareza e impacto.
- Redação sem esforço: basta indicar palavras-chave e deixe que a IA trate do resto, com múltiplos estilos de escrita.
- Extensões Inteligentes: potencie as suas ideias com sugestões sensíveis ao contexto.
- Resumo: Obtenha instantaneamente uma visão clara e concisa de e-mails longos.
- Alcance Global: Traduza os seus e-mails para qualquer idioma com facilidade.
Esta funcionalidade suporta:
- Respostas inteligentes por e-mail
- Conteúdo otimizado
- Rascunhos baseados em palavras-chave
- Extensão inteligente de conteúdo
- Resumo de e-mails
- Tradução multilíngue
Não espere—descarregue já o Assistente de E-mail com IA e desfrute!
Artigos relacionados:
- Como atribuir uma categoria a um e-mail de saída no Outlook?
- Como manter as categorias originais ao responder ou reencaminhar um e-mail no Outlook?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos