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 Seguinte botão, nesta etapa, não selecione nenhuma opção e clique Seguinte 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 Seguinte 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 Seguinte 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 Terminar 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 de 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:

Nota: 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.

---