Como mover automaticamente e-mails de remetentes desconhecidos para uma pasta específica no Outlook?

No seu trabalho diário, poderá receber muitos e-mails provenientes de remetentes desconhecidos que não estão guardados na sua pasta Contactos. Estes podem ser e-mails indesejados ou maliciosos; neste caso, poderá pretender mover automaticamente esses e-mails para uma pasta específica em vez da Caixa de Entrada. Como poderá resolver esta 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, pode criar uma regra para mover automaticamente os e-mails de remetentes desconhecidos para uma pasta específica. Siga estes passos:

1. Crie uma nova pasta dentro da Caixa de Entrada para armazenar os e-mails provenientes de remetentes desconhecidos, conforme ilustrado na seguinte captura de ecrã:

2. Em seguida, clique em Início > Regras > Gerir Regras e Alertas. Veja a captura de ecrã:

3. Na caixa de diálogo Regras e Alertas, clique em Nova Regra no separador Regras de E-mail. Veja a captura de ecrã:

4. Em seguida, clique no botão OK para aceder ao Assistente de Regras; na secção Começar com uma regra em branco, clique na opção Aplicar regra nas mensagens que recebo. Veja a captura de ecrã:

5. Em seguida, clique no botão Seguinte. Nesta etapa, não selecione nenhuma opção e clique diretamente no botão Seguinte. Surge uma caixa de aviso; clique no botão Sim. Veja a captura de ecrã:

6. Na caixa de diálogo seguinte, assinale a opção movê-la para a pasta especificada na lista Passo 1: Selecionar a(s) ação(ões) e, em seguida, clique no texto hiperligado especificada. Na caixa de diálogo Regras e Alertas aberta, especifique a pasta para onde pretende mover os e-mails. Veja a captura de ecrã:

7. Clique no botão OK e, de seguida, continue a clicar no botão Seguinte. Na caixa de diálogo Existem exceções?, selecione a opção exceto se o remetente estiver em Catálogo de Endereços especificada na lista Passo 1: Selecionar exceção(ões) e, depois, clique no texto hiperligado especificada. Irá surgir a caixa Adicionar Lista de Endereços; selecione uma pasta de contactos que contenha os contactos que pretende excluir, conforme mostra a captura de ecrã:

8. Em seguida, clique no botão Adicionar e, depois, em Seguinte para aceder à última caixa de diálogo do assistente. Introduza um nome para a regra na caixa de texto Passo 1: Especificar um nome para esta regra e assinale a opção Ativar esta regra na secção Passo 2: Configurar regra. Veja a captura de ecrã:

9. Em seguida, clique nos botões Concluir e OK para fechar as caixas de diálogo. A partir de agora, os e-mails de remetentes desconhecidos serão automaticamente movidos para a pasta específica.

---

Mover e-mails de remetentes desconhecidos para uma pasta específica aplicando código VBA

Talvez o método anterior lhe pareça complicado. Aqui, pode aplicar um código para resolver a questão o mais rapidamente possível.

1. Mantenha premidas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic para Aplicações.

2. Na janela Microsoft Visual Basic para Aplicações, faça duplo clique em ThisOutlookSession no painel Projeto1 (VbaProject.OTM) para abrir o módulo e, em seguida, 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, guarde o código e feche a janela do editor. Reinicie o Outlook para que o código entre em vigor. A partir de agora, sempre que chegarem e-mails de remetentes desconhecidos, estes serão automaticamente movidos para a pasta «Unknown» — veja a captura de ecrã:

Nota: A pasta Unknown será criada automaticamente quando chegarem e-mails desconhecidos. Pode alterar o nome da pasta «Unknown» para outra designação no script.