Note: The other languages of the website are Google-translated. Back to English

Como exportar emails do Outlook para o Excel automaticamente?

Normalmente, você pode exportar os e-mails do Outlook para o Excel com o recurso Importar / Exportar. Mas, você já tentou exportar automaticamente os e-mails para um arquivo Excel quando novas mensagens chegam? Neste artigo, falarei sobre como exportar as informações das novas mensagens recebidas automaticamente no Excel.

Exportar automaticamente informações de e-mail do Outlook para o Excel com código VBA

Exporte informações de e-mail do Outlook para o Excel com um recurso incrível


Exportar automaticamente informações de e-mail do Outlook para o Excel com código VBA

Para exportar os novos e-mails recebidos para uma pasta de trabalho do Excel automaticamente, aplique o seguinte código VBA:

1. Primeiro, você deve criar uma pasta de trabalho com as informações do cabeçalho abaixo, conforme a captura de tela a seguir, para que essas informações das mensagens sejam exportadas para este arquivo Excel.

doc exportação automática e-mails para excel 1

2. Em seguida, vá para o Outlook e mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

3. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook de Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: exportação automática de informações de e-mail do Outlook para o arquivo Excel:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

Nota: No código acima, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx é o caminho do arquivo Excel e o nome do Excel em que você deseja localizar as informações exportadas, altere-o conforme sua necessidade.

doc exportação automática e-mails para excel 2

4. Ainda no Microsoft Visual Basic para Aplicações janela, clique em Ferramentas > Referências para ir para o Referências-Projeto1 caixa de diálogo e verifique Biblioteca de objetos do Microsoft Excel opção do Referências Disponíveis caixa de lista, veja a captura de tela:

doc exportação automática e-mails para excel 3

5. Então clique OK para fechar a caixa de diálogo e, a seguir, salve e feche a janela de código.

6. Agora, você deve reiniciar o Outlook para que este código tenha efeito. A partir de agora, se houver novos e-mails chegando, eles serão exportados para a pasta de trabalho específica automaticamente, consulte a captura de tela:

doc exportação automática e-mails para excel 4


Exporte informações de e-mail do Outlook para o Excel com um recurso incrível

Se você deseja exportar os e-mails da caixa de entrada, caixa de saída ou outras pastas para um arquivo Excel, Kutools para Outlook's Relatório Rápido pode ajudá-lo a gerar facilmente um arquivo XML para relatar todas as informações de itens na pasta de e-mail atual ou na pasta de tarefas, conforme necessário.

NOTAPara aplicar isso Relatório Rápido, em primeiro lugar, você deve baixar o Kutools para Outlooke, em seguida, aplique o recurso de forma rápida e fácil.

Depois de instalar Kutools para Outlook, por favor, faça o seguinte:

1. Selecione uma pasta para a qual deseja exportar todas as informações das mensagens e clique em Kutools Plus > Relatório Rápido, veja a captura de tela:

2. Então, no pop out Salvar o relatorio janela, escolha um local e especifique um nome para este arquivo exportado, veja a captura de tela:

3. E então, clique Salvar botão para salvar este arquivo e, na caixa exibida, clique Sim botão para abrir o arquivo, veja a imagem:

4. Agora, você pode ver que todas as informações dos e-mails na pasta selecionada foram exportadas para o arquivo Excel, veja a imagem:


Mais artigos relativos:

  • Exportar tabela de corpo de e-mail para Excel no Outlook
  • Quando você recebe um e-mail que contém algumas tabelas no corpo, às vezes, pode ser necessário exportar todas as tabelas do corpo da mensagem para uma planilha do Excel. Normalmente, você pode copiar e colar as tabelas na planilha, mas, aqui, irei falar sobre um método útil para resolver esse trabalho quando há várias tabelas que precisam ser exportadas.
  • Extrair ou exportar lista de tarefas para Excel no Outlook
  • Ao usar o Outlook, você pode extrair a lista de tarefas para o Excel para outro uso. Com o poderoso recurso de Exportação do Outlook, você pode exportar facilmente sua lista de tarefas para o Excel. Faça como mostra o tutorial abaixo.
  • Exportar informações de contatos com fotos no Outlook
  • Quando você exporta contatos do Outlook para um arquivo, apenas as informações de texto dos contatos podem ser exportadas. Mas, às vezes, você precisa exportar as fotos e também as informações de texto dos contatos, como você trataria dessa tarefa no Outlook?

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 (8)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Preciso de ajuda sobre como exportar informações de e-mail enviadas (de saída) e-mails
Este comentário foi feito pelo moderador no site
Olá, Jorge,
Se você deseja exportar as mensagens enviadas da pasta Itens Enviados, o recurso Relatório Rápido do Kutools for Outlook pode ajudá-lo. Você pode baixar o Kutools for Outlook primeiro e depois aplicá-lo.
Este comentário foi feito pelo moderador no site
como lidar com subpastas.
Este comentário foi feito pelo moderador no site
Você pode, por favor, deixe-me saber como lidar com subpastas no código acima.
Este comentário foi feito pelo moderador no site
Como capturar as Categorias, Importância ou a coluna definida pelo usuário na mesma visualização de pastas?
Este comentário foi feito pelo moderador no site
Eu segui os passos acima, mas tenho espaços em branco no Excel.
O que devo fazer?
Este comentário foi feito pelo moderador no site
Mesmo excel não está sendo atualizado? Alguma sugestão?
Este comentário foi feito pelo moderador no site
Se eu tiver mais de uma conta de e-mail no Outlook, como posso enviar os e-mails de uma conta específica?
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