Como exportar o texto do corpo do e-mail do Outlook para uma planilha do Excel?
Se você deseja exportar o texto do corpo do e-mail selecionado do Outlook para a planilha do Excel, o método neste artigo pode ajudá-lo.
Exporte o texto do corpo do e-mail do Outlook para uma planilha do Excel com código VBA
Exporte o texto do corpo do e-mail do Outlook para uma planilha do Excel com código VBA<
Execute o código VBA abaixo para exportar o texto do corpo selecionado de um e-mail do Outlook para o Excel.
1. Abra o e-mail, selecione o corpo do e-mail que deseja exportar para a planilha do Excel e pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para a janela Código.
Código VBA: exportar o texto do corpo do e-mail do Outlook para uma 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 Sub
Note: No código, “Corpo do e-mail.xlsx”É o nome da pasta de trabalho que você criará com o texto do corpo do e-mail selecionado. Você pode alterá-lo com base nas suas necessidades.
3. Clique Ferramentas > Referências. Em seguida, verifique o Biblioteca de objetos do Microsoft Excel e Biblioteca de objetos do Microsoft Word caixas no Referências - Projeto caixa de diálogo. Veja a imagem:
4. Então um Procurar pasta caixa de diálogo aparece, selecione uma pasta para salvar a pasta de trabalho e clique no OK botão.
Agora, uma pasta de trabalho chamada “corpo do email”É criado e salvo em uma pasta especificada. Abra a pasta de trabalho, você pode ver que o texto do corpo do email selecionado é exportado para a Planilha1 da pasta de trabalho.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.