Note: The other languages of the website are Google-translated. Back to English
English English
  • Documentos
  • Outlook
  • Como exportar o texto do corpo do e-mail do Outlook para uma planilha do Excel?

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

Nota: 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.


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 (4)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Oi o código só retornou direto, no excel e não no corpo do email, posso saber porque foi isso??
Este comentário foi feito pelo moderador no site
mesmo problema para mim também
Este comentário foi feito pelo moderador no site
isso funciona, mas em um e-mail apenas e se na pasta houver vários e-mails que precisam ser extraídos no excel?
Este comentário foi feito pelo moderador no site
Você vai implementar o código fazendo um Looping, com um FOR por exemplo:

Sub lerE-mails()

' Criando uma aplicação do Outlook
Dim objOutlook como objeto
Set objOutlook = CreateObject("Outlook.Application")

' Criando um Namespace, que seria uma sessão no Outlook
Dim objNSpace como objeto
Definir objNSpace = objOutlook.GetNamespace("MAPI")

' Cria um objeto com uma pasta Inbox do Outlook
Dim minhaPasta As Object
Definir minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox)

Dim i tanto tempo
Dim itemPasta As Object

i = 2 'Linha que vai começar preenchendo na planilha

' Percorrer todos os itens dentro da pasta
Para Cada itemPasta In minhaPasta.Items

Se itemPasta.Class = olMail Then
Dim objEmail As Outlook.MailItem
Definir objEmail = itemPasta

Células(i, 1).Value = objEmail.SenderEmailAddress
Células(i, 2).Value = objEmail.To
Células(i, 3).Value = objEmail.Assunto
Células(i, 4).Value = objEmail.ReceivedTime
Células(i, 5).Value = objEmail.Body
Células(i, 5).WrapText = False

Se acabar
i = i + 1

Seguinte

Definir objEmail = Nada
Definir objOutlook = Nada
Definir objNSpace = Nada
Definir minhaPasta = Nada

End Sub
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