Note: The other languages of the website are Google-translated. Back to English
English English
  • Documentos
  • Outlook
  • Como mover e-mails de remetentes desconhecidos para uma pasta específica no Outlook?

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:

doc mover e-mails do desconhecido 1

2. Então clique Início > Regras > Gerenciar regras e alertas, veja a captura de tela:

doc mover e-mails do desconhecido 2

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:

doc mover e-mails do desconhecido 3

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:

doc mover e-mails do desconhecido 4

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:

doc mover e-mails do desconhecido 5

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:

doc mover e-mails do desconhecido 6

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:

doc mover e-mails do desconhecido 7

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:

doc mover e-mails do desconhecido 8

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

doc mover e-mails do desconhecido 9

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:

doc mover e-mails do desconhecido 10

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.


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL