Como exportar o texto do corpo de um email do Outlook para uma planilha do Excel?
Exportar o texto do corpo de emails do Outlook para uma planilha do Excel pode ser útil para acompanhar informações ou analisar dados dos emails. Este tutorial irá guiá-lo por dois métodos: usando VBA (Visual Basic for Applications) para exportações manuais e o recurso Salvar Emails como Outros Arquivos do Kutools para Outlook, que simplifica o processo.
Exportando Texto do Corpo de Email para o Excel com VBA
Exportação em Massa de Texto do Corpo de Email para o Excel com Kutools para Outlook
Suporta a exportação de várias mensagens e salvá-las como PDF, Excel, HTML ou outros formatos de arquivo.
Exportando Texto do Corpo de Email para o Excel com VBA
Usar o VBA é um método manual para exportar o texto do corpo de um email para uma planilha do Excel. Siga estes passos:
1. Abra o email, selecione o corpo do email que deseja exportar para a planilha do Excel e, em seguida, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo na janela Código.
Código VBA: exportar texto do corpo de email do Outlook para planilha do Excel
Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
If TypeName(xFolder) = "Nothing" Then Exit Sub
Set xFolderItem = xFolder.Self
xFilePath = xFolderItem.Path & "\"
Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
If xItem.Class <> olMail Then Exit Sub
Set xMailItem = xItem
Set xInspector = xMailItem.GetInspector
Set xDoc = xInspector.WordEditor
xDoc.Application.Selection.Range.Copy
xInspector.Close olDiscard
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
Set xWs = xWb.Sheets.item(1)
xExcel.Visible = False
xWs.Activate
xWs.Paste
xWs.SaveAs xFilePath & "Email body.xlsx"
xWb.Close True
xExcel.Quit
Set xWs = Nothing
Set xWb = Nothing
Set xExcel = Nothing
End SubObservação: No código, “Email body.xlsx” é o nome da pasta de trabalho que você criará com o texto do corpo do email selecionado. Você pode alterá-lo conforme necessário.
3. Clique em Ferramentas > Referências. Em seguida, marque as caixas Microsoft Excel Object Library e Microsoft Word Object Library na caixa de diálogo Referências – Projeto. Veja a captura de tela:
4. Em seguida, uma caixa de diálogo Procurar Pasta aparecerá, por favor, selecione uma pasta para salvar a pasta de trabalho e clique no botão OK.
Agora, uma pasta de trabalho chamada “Email body” foi criada e salva em uma pasta específica. Ao abrir a pasta de trabalho, você verá que o texto do corpo do email selecionado foi exportado para a Planilha1 da pasta de trabalho.
Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS
Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.
Este recurso suporta:
- Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
- Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
- Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
- Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
- Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
- Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.
Este recurso suporta:
- Respostas inteligentes de e-mail
- Conteúdo otimizado
- Rascunhos baseados em palavras-chave
- Extensão inteligente de conteúdo
- Resumo de e-mails
- Tradução multilíngue
O melhor de tudo é que este recurso é completamente grátis para sempre! Não espere — baixe agora o Assistente de E-mail AI e aproveite
Exportação em Massa de Texto do Corpo de Email para o Excel com Kutools para Outlook
Se você prefere um método amigável e que economiza tempo, o Kutools para Outlook oferece um recurso Salvar Emails como Outros Arquivos que permite salvar o texto do corpo do email e outros detalhes em massa.
Após instalar o Kutools para Outlook, siga os passos abaixo
Passo 1. Selecione as mensagens das quais deseja exportar os textos do corpo.
Passo 2. Clique em Kutools > Processamento em Massa > Salvar emails selecionados em vários formatos de arquivo como PDF.
Passo 3. Na caixa de diálogo Salvar Email como Outros Arquivos,
Selecione uma pasta para colocar os arquivos exportados.
Marque Formato Excel.
Marque Apenas Corpo.
Clique em Ok.
Agora, apenas os textos do corpo das mensagens selecionadas são salvos como arquivos Excel separados.
Melhores Ferramentas de Produtividade para Office
Notícia Urgente: Kutools para Outlook lança versão gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com vários destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir emails duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e divertidos / Aviso de chegada de emails importantes / Minimizar Outlook em vez de fechar...
👍 Praticidade com um clique: Responder a Todos com Anexos / Anti-Phishing Emails / 🕘Exibir fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
Use o Kutools no idioma que preferir – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
