Como extrair rapidamente os endereços de e-mail das tabelas em seu e-mail do Outlook

Se você precisar extrair todos os endereços de e-mail que aparecem em todas as tabelas de um e-mail, pode usar o método mostrado neste artigo. Ele pode deixar você obtê-lo em um instante.

Você recebe um e-mail, que contém muitos endereços de e-mail no corpo da mensagem. Alguns dos endereços de e-mail estão nas tabelas, mas alguns estão no corpo do texto. Às vezes, você pode querer apenas extrair os endereços de e-mail das tabelas. Normalmente, nos meios padrão, você precisa copiar manualmente para extrair os endereços de e-mail. Mas, será bastante complicado se houver muitas tabelas neste e-mail. Portanto, a seguir, compartilharemos uma abordagem que pode permitir que você obtenha em massa.

Extraia rapidamente os endereços de e-mail das tabelas no e-mail

1. No início, inicie o aplicativo Outlook.
2. Em seguida, pressione “Alt + F11” para acionar o editor VBA.
3. Em seguida, adicione referência a “MS Word Object Library” lendo “Como adicionar uma biblioteca de objetosrary Referência em VBA".
4. Em seguida, copie o código a seguir em um módulo não utilizado.

Sub ExtractEmailAddressesFromAllTables() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Dim strEmailAddresses As String Dim objNewMail As Outlook.MailItem Dim objNewMailDocument As Word.Document 'Get the mail Select Case Outlook.Application.ActiveWindow.Class Case olInspector Set objMail = ActiveInspector.CurrentItem Case olExplorer Set objMail = ActiveExplorer.Selection.Item(1) End Select Set objMailDocument = objMail.GetInspector.WordEditor 'Localizar todos os endereços de e-mail através de curingas With objMailDocument.Range With .Find .ClearFormatting .Replacement.ClearFormatting .Text = " [Az,0-9]{1,}\@[Az,0-9,.]{1,}" .MatchWildcards = True .Forward = True .Wrap = wdFindStop .Execute End With 'Obter os endereços de email na tabela Faça Até .Find.Found = False If .Information(wdWithInTable) = True Then strEmailAddresses = .Cells(1).Range.Text & strEmailAddresses End If .Collapse wdCollapseEnd .Find.Execute Loop End With 'Insira os endereços de e-mail extraídos de todos tabelas em um novo e-mail Set objNewMail = Outlook.CreateItem(olMailItem) With objNewMail .Body = strEmailAddresses .Display With .GetInspector.WordEditor.Application.Selection .WholeStory .Range.Font.Size = 12 End With End With End Sub

5. Mais tarde, saia da janela atual.
6. Posteriormente, siga a “Etapa Opcional” em “Como executar o código VBA no seu Outlook” para adicionar esta macro à barra de ferramentas de acesso rápido ou à faixa de opções.
7. Finalmente, você pode tentar.

• Primeiro, selecione ou abra um e-mail.
• Em seguida, execute esta macro clicando no botão recém-adicionado na barra de ferramentas de acesso rápido ou na faixa de opções.
• De uma só vez, um novo e-mail aparecerá, contendo todos os endereços de e-mail extraídos no corpo da mensagem, como na captura de tela a seguir.

Recuperar de Falhas do Outlook

De vez em quando, o Outlook pode travar inesperadamente. Na melhor das hipóteses, nada de ruim acontecerá. um simples restart pode restaurá-lo. No entanto, na pior das hipóteses, você encontrará corrupção grave do Outlook. Nessa hora, você precisa corrigir Outlook arquivo. Você pode usar a ferramenta de reparo da caixa de entrada para tentar. Se falhar, você pode recorrer a uma ferramenta externa mais potente, como DataNumen Outlook Repair.

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 SQL Server recuperação e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com