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 Contatos. Podem ser alguns e-mails indesejados ou maliciosos; neste caso, você deseja mover automaticamente esses e-mails para uma pasta específica em vez da Caixa de entrada. Como você resolveria esse trabalho no Outlook?
Mova e-mails de remetentes desconhecidos para uma pasta específica criando uma regra
Mova e-mails de remetentes desconhecidos para uma pasta específica aplicando o código VBA
Mova 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, 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 a seguinte captura de tela:
2. Então clique INÍCIO > Regras > Gerenciar regras e alertas, veja a captura de tela:
3. No Regras e Alertas caixa de diálogo, clique em Nova regra sob a Regras de e-mail guia, veja a captura de tela:
4. E clique em OK botão para ir para o Assistente de regras, clique em Aplicar regra na mensagem que eu receber opção do Comece com uma regra em branco caixa de seção, veja a captura de tela:
5. Então clique Próximo botão, nesta etapa, não selecione nenhuma opção e clique Próximo botão diretamente, uma caixa de aviso é exibida, clique Sim botão, veja a captura de tela:
6. E na próxima caixa de diálogo, marque mova-o para a pasta especificada opção no Passo 1: Selecione as ações caixa de listagem e clique no texto com link especificada, e no aberto Regras e Alertas caixa de diálogo, especifique a pasta para onde você deseja mover os e-mails, veja a captura de tela:
7. Clique OK botão e continue clicando Próximo botão, neste Existem exceções diálogo, verificar exceto se o remetente estiver no Catálogo de Endereços especificado opção no Etapa 1: Selecione exceção (ões) caixa de listagem e clique no texto com link especificadaE um Adicionar Lista de Endereços caixa aparecerá, selecione uma pasta de contatos que contém os contatos que você deseja, exceto, consulte a captura de tela:
8. Então clique Adicionar botão e, em seguida, clique em Próximo para ir para a última caixa de diálogo do assistente, digite um nome de regra no Passo 1: Especifique um nome para esta regra caixa de texto e verifique Ativar esta regra opção do Etapa 2: regra de configuração seção de opções. Veja a imagem:
9. E, em seguida, clique em Acabamento e Ok botões para fechar as caixas de diálogo. A partir de agora, quando os e-mails vierem de remetentes desconhecidos, eles serão movidos para a pasta específica automaticamente.
Mova e-mails de remetentes desconhecidos para uma pasta específica aplicando o código VBA
Pode ser que o método acima seja problemático para você, aqui você pode aplicar um código para lidar com ele o mais rápido possível.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook do Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir 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, feche a janela de código e reinicie o Outlook para que o código tenha efeito. A partir de agora, quando os e-mails vierem de alguns remetentes desconhecidos, eles serão movidos para a pasta Desconhecida automaticamente, veja a imagem:
Note: O Desconhecido A pasta será criada automaticamente quando algum e-mail desconhecido for recebido. Você pode alterar o nome da pasta “Unknow”Para outros no script.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.