2 meios para excluir em lote todos os e-mails enviados de ou para um contato específico do Outlook

Às vezes, você pode querer excluir em lote todos os e-mails enviados de ou para um contato específico. Agora, neste artigo, apresentaremos 2 métodos para obtê-lo efetivamente.

Em alguns casos, pode ser necessário excluir alguns e-mails em lote. Por exemplo, um contato específico renunciou à sua empresa, portanto, você deseja excluir em lote todos os e-mails enviados de ou para esse contato. Em geral, você pode usar o seguinte Método 1 para obtê-lo manualmente. Porém, na verdade, o Método 2 compartilhado aqui é muito mais eficiente devido ao uso do VBA. Agora, continue lendo para obter as duas maneiras em detalhes.

Método 1: Excluir manualmente após a pesquisa

1. Primeiro, abra uma pasta de correio.
2. Em seguida, clique na caixa de pesquisa acima da lista de e-mail.
3. Em seguida, clique em “Todos os itens de correio” no grupo “Escopo” na guia “Pesquisar”.
4. Em seguida, clique no botão “De” no grupo “Refinar”.
5. Substitua “Nome do remetente” na caixa de pesquisa pelo endereço de e-mail de contato específico.
6. De uma só vez, todos os itens deste contato serão listados.
7. Agora, selecione apenas os itens de correio e pressione "Excluir".
8. Depois disso, esclareça os critérios de pesquisa e clique em “Enviado para” > “Enviado para outro destinatário”.
9. Em seguida, altere “Nome do destinatário” pelo endereço de e-mail do contato.
10. Posteriormente, selecione os e-mails encontrados e pressione “Excluir”.

Método 2: Excluir lote com Outlook VBA

1. Para comotart, inicie o editor VBA do Outlook via “Alt + F11”.
2. Em seguida, coloque o código a seguir em um módulo.

Dim objContact As Outlook.ContactItem Dim strEmailAddress1, strEmailAddress2, strEmailAddress3 As String Sub BatchDeleteAllEmailsFromToSpecificContact() Dim objOutlookFile As Outlook.Folder Dim objFolder As Outlook.Folder Set objContact = Outlook.ActiveExplorer.Selection(1) strEmailAddress1 = objContact.Email1 Endereço strEmailAddress2 = objContact. Email2Address strEmailAddress3 = objContact.Email3Address Definir objOutlookFile = Outlook.Application.Session.PickFolder Se não objOutlookFile não for nada, então para cada objFolder em objOutlookFile.Folders Se (objFolder.DefaultItemType = olMailItem) E (objFolder.Name <> "Itens excluídos") Então LoopFolders objFolder End If Next MsgBox "Complete!", vbInformation End If End Sub Sub LoopFolders(ByVal objCurFolder As Outlook.Folder) Dim i As Integer Dim objMail As Outlook.MailItem Dim objSubfolder As Outlook.Folder For i = objCurFolder.Items.Count Para 1 Etapa -1 Se objCurFolder.Items(i).Class = olMail Então defina objMail = objCurFolder.Items(i) Se objMail.SenderEmailAddress = strEmailAddress1 Ou objMail.SenderEmailAddress = strEmailAddress2 Ou objMail.SenderEmailAddress = strEmailAddress3 Então objMail.Delete ElseIf objMail .Recipients.Count = 1 Then If objMail.Recipients(1).Address = strEmailAddress1 Ou objMail.Recipients(1).Address = strEmailAddress2 Ou objMail.Recipients(1).Address = strEmailAddress3 Then objMail.Delete End If End If End If Next If objCurFolder.Folders.Count > 0 Então para cada objSubfolder Em objCurFolder.Folders LoopFolders objSubfolder Next End If End Sub

3. Posteriormente, adicione esta macro à Barra de Ferramentas de Acesso Rápido com referência a “Como executar o código VBA no seu Outlook".
4. Por fim, selecione um contato e clique no botão macro na Barra de Ferramentas de Acesso Rápido.
5. De uma só vez, todos os e-mails de ou para este contato serão excluídos.

Recuperar itens excluídos acidentalmente

Erros humanos são inevitáveis ​​até certo ponto. Por exemplo, ao limpar os itens antigos do Outlook, você pode excluir por engano alguns itens úteis. Nesse caso, você pode recorrer a experientes Recuperação do Outlook software, como DataNumen Outlook Repair para restaurá-los.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperação sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com