Como mover e-mails de remetentes desconhecidos para uma pasta específica no Outlook?
No seu trabalho diário, você pode receber muitos e-mails de remetentes desconhecidos que não estão salvos na sua pasta de Contatos. Esses podem ser alguns e-mails indesejados ou maliciosos, nesse caso, você deseja mover automaticamente esses e-mails para uma pasta específica em vez da Caixa de Entrada. Como você poderia resolver essa tarefa no Outlook?
Mover e-mails de remetentes desconhecidos para uma pasta específica criando uma regra
Mover e-mails de remetentes desconhecidos para uma pasta específica aplicando código VBA
Mover e-mails de remetentes desconhecidos para uma pasta específica criando uma regra
Na verdade, você pode criar uma regra para mover os e-mails de remetentes desconhecidos para uma pasta específica automaticamente, por favor, faça o seguinte:
1. Crie uma nova pasta sob a pasta Caixa de Entrada que colocará os e-mails vindos de remetentes desconhecidos, conforme mostrado na captura de tela a seguir:
2. Em seguida, clique em Início > Regras > Gerenciar Regras e Alertas, veja a captura de tela:
3. Na caixa de diálogo Regras e Alertas, clique em Nova Regra abaixo da aba Regras de E-mail, veja a captura de tela:
4. E clique no botão OK para ir ao Assistente de Regras, clique na opção Aplicar regra nas mensagens que eu receber da seção Começar com uma regra em branco, veja a captura de tela:
5. Depois clique no botão Próximo, nesta etapa, por favor, não selecione nenhuma opção e clique diretamente no botão Próximo, uma caixa de aviso será exibida, por favor, clique no botão Sim, veja a captura de tela:
6. E na próxima caixa de diálogo, marque a opção movê-la para a pasta especificada na caixa de listagem Passo 1: Selecionar a(s) ação(ões), e depois clique no texto vinculado especificado, e na caixa de diálogo Regras e Alertas aberta, especifique a pasta onde você deseja mover os e-mails, veja a captura de tela:
7. Clique no botão OK, e continue clicando no botão Próximo, nesta caixa de diálogo Existem exceções?, marque a opção exceto se o remetente estiver no Catálogo de Endereços especificado na caixa de listagem Passo 1: Selecionar exceção(ões), e depois clique no texto vinculado especificado, e uma caixa Adicionar Lista de Endereços aparecerá, selecione uma pasta de contatos que contenha os contatos que você deseja excluir, veja a captura de tela:
8. Em seguida, clique no botão Adicionar, e depois clique em Próximo para ir à última caixa de diálogo do assistente, digite um nome de regra na caixa de texto Passo 1: Especificar um nome para esta regra, e marque a opção Ativar esta regra da seção Passo 2: Configurar opções de regra. Veja a captura de tela:
9. E então clique nos botões Concluir e OK para fechar as caixas de diálogo. A partir de agora, quando os e-mails chegarem de remetentes desconhecidos, eles serão movidos automaticamente para a pasta específica.
Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS
Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.
Este recurso suporta:
- Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
- Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
- Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
- Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
- Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
- Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.
Este recurso suporta:
- Respostas inteligentes de e-mail
- Conteúdo otimizado
- Rascunhos baseados em palavras-chave
- Extensão inteligente de conteúdo
- Resumo de e-mails
- Tradução multilíngue
O melhor de tudo é que este recurso é completamente grátis para sempre! Não espere — baixe agora o Assistente de E-mail AI e aproveite
Mover e-mails de remetentes desconhecidos para uma pasta específica aplicando código VBA
Talvez o método acima seja trabalhoso para você, aqui, você pode aplicar um código para lidar com isso tão rapidamente quanto possível.
1. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique duas vezes em ThisOutlookSession no painel Project1(VbaProject.OTM) para abrir o modo, e depois copie e cole o seguinte código no módulo em branco.
Código VBA: Mover automaticamente e-mails de remetentes desconhecidos para uma pasta específica:
Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
For I = 3 To 1 Step -1
xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
Set xContactItem = xContactItems.Find(xFilter)
If TypeName(xContactItem) <> "Nothing" Then Exit For
Next
Next
If xContactItem Is Nothing Then
Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
xFound = False
For Each xSubFolder In xInboxFlds
If xSubFolder.Name = "Unknown" Then
xFound = True
Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
Exit For
End If
Next
If xFound = False Then
Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
End If
item.Move xTargetFolder
End If
End Sub
3. Em seguida, salve o código e feche a janela de código, e reinicie o Outlook para fazer o código entrar em vigor. A partir de agora, quando os e-mails chegarem de alguns remetentes desconhecidos, eles serão movidos automaticamente para a pasta Desconhecido, veja a captura de tela:
Observação: A pasta Desconhecido será criada automaticamente quando houver alguns e-mails desconhecidos chegando. Você pode alterar o nome da pasta “Desconhecido” para outros no script.
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
