Como exportar automaticamente e-mails do Outlook para o Excel?

Normalmente, pode exportar e-mails do Outlook para o Excel utilizando a funcionalidade Importar/Exportar. Contudo, se precisar de exportar automaticamente os e-mails recebidos para um ficheiro do Excel assim que chegarem, o Outlook não oferece uma solução integrada. Este artigo apresenta duas formas eficazes de realizar esta tarefa:

Exportar Automaticamente Novos E-mails Recebidos da Caixa de Entrada para o Excel Utilizando VBA(Manual e Tedioso)

Exportar Rapidamente Todos os E-mails de uma Pasta Selecionada para um Relatório do Excel com Kutools para Outlook 👍(Rápido e Fácil)

Exportar Automaticamente Novos E-mails Recebidos da Caixa de Entrada para o Excel Utilizando VBA

Se precisar de uma forma automatizada de exportar novos e-mails para o Excel, pode utilizar o seguinte código VBA. Este método monitoriza a pasta da Caixa de Entrada e exporta os dados dos novos e-mails para um ficheiro do Excel assim que chegarem.

Passo 1: Preparar o Ficheiro do Excel

Antes de executar o código VBA, configure uma pasta de trabalho do Excel para armazenar os dados dos e-mails exportados. Na primeira linha, inclua os seguintes cabeçalhos de coluna: N.º, Nome do Remetente, Email do Remetente, Assunto e Hora de Recebimento.

Passo 2: Abrir o Editor VBA no Outlook

1. Prima Alt+F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. No painel Projeto1 (VbaProject.OTM), expanda Objetos do Microsoft Outlook e faça duplo clique em ThisOutlookSession.

Passo 3: Inserir o Código VBA

Copie e cole o seguinte código VBA no módulo:

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
    ' Update this path with your actual Excel file path  
    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

Passo 4: Ativar a Biblioteca de Objetos Microsoft Excel

1. Na janela do Microsoft Visual Basic para Aplicações, clique em Ferramentas > Referências.

2. Na caixa de diálogo Referências – Projeto1, desloque-se para baixo e ative a opção Biblioteca de Objetos Microsoft Excel.

3. Clique em OK para aplicar as alterações.

Passo 5: Guardar e Reiniciar o Outlook

1. Guarde o código VBA e feche o Editor do VBA.

2. Reinicie o Outlook para que as alterações entrem em vigor.

Resultado:

A partir de agora, todos os novos e-mails recebidos na Caixa de Entrada serão automaticamente exportados para a pasta de trabalho do Excel especificada.

---

📊 Mais inteligente Estatísticas de Email com o Kutools

Acompanhe e analise facilmente a sua atividade de e-mail com a funcionalidade Kutools para Outlook’s Estatísticas do Kutools. Agora pode contar os e-mails recebidos por dia, semana ou mês e visualizar os resultados em gráficos claros e profissionais! Simplifique a gestão dos seus e-mails e obtenha informações valiosas com apenas alguns cliques.

Transferir Kutools para Outlook Agora

Exportar Rapidamente Todos os E-mails de uma Pasta Selecionada para um Relatório do Excel com Kutools para Outlook 👍

Se procura uma forma simples de exportar e‑mails de qualquer pasta — Caixa de Entrada, Itens Enviados ou pastas personalizadas — sem recorrer a VBA, a funcionalidade Relatório Rápido do Kutools para Outlook é a solução ideal.

Passo 1: Selecionar a Pasta e Ativar a Funcionalidade Relatório Rápido

1. Abra o Outlook e navegue até à pasta que pretende exportar (Caixa de Entrada, Caixa de Saída, Itens Enviados, etc.).

2. Clique em KUTOOLS PLUS > Relatório > Relatório Rápido.

Passo 2: Escolher Localização de Guardar

1. Na janela Salvar Relatório, selecione uma localização e introduza um nome de ficheiro para a sua exportação.

2. Clique em Guardar.

Passo 3: Abrir o Exportar Relatório

Aparecerá uma mensagem de confirmação. Clique em **Sim** para abrir o ficheiro exportado.

Resultado:

Todos os e-mails da pasta selecionada serão exportados para um ficheiro XML compatível com o Excel, incluindo o remetente, o assunto, a hora de recebimento e muito mais.

Nota:Para utilizar a utilidade Relatório Rápido do Kutools para Outlook, deve primeiro descarregar e instalar Kutools para Outlook.

---

Qual método deve utilizar?

Aqui está uma comparação entre os dois métodos para o ajudar a decidir qual se adapta melhor às suas necessidades:

Método	Mais Adequado Para	Facilidade de Utilização	Eficiência
Utilizar Código VBA (Automatizado mas Complexo)	Exportar automaticamente Novo Email da Caixa de Entrada	⭐⭐	⭐⭐⭐⭐
Utilizar Kutools para Outlook (Simples e Flexível)	Exportar rapidamente todos os e-mails de uma pasta selecionada	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐

Ao escolher o método certo, poderá exportar eficientemente e-mails do Outlook para o Excel, adaptando-se perfeitamente às necessidades do seu fluxo de trabalho!

---

Artigos Relacionados

• Exportar Tabela do Corpo do E-mail para o Excel no Outlook
• Quando receber um e-mail com tabelas no corpo da mensagem, poderá precisar de exportar todas essas tabelas diretamente para uma folha de cálculo do Excel. Embora seja possível copiá-las e colá-las manualmente, apresento-lhe aqui um método prático e eficiente — especialmente útil quando precisa de extrair múltiplas tabelas de uma só vez.

• Extrair ou Exportar Lista de Tarefas para o Excel no Outlook
• Ao utilizar o Outlook, pode extrair a sua lista de tarefas para o Excel e utilizá-la para outros fins. Graças à poderosa funcionalidade de exportação do Outlook, exportar a sua lista de tarefas para o Excel é rápido e fácil. Siga o tutorial indicado abaixo.

• Exportar Informações dos Contactos com Fotografias no Outlook
• Quando exporta contactos do Outlook para um ficheiro, apenas as informações em texto são incluídas. Contudo, por vezes, também precisa de exportar as fotografias associadas a esses contactos. Como pode realizar esta tarefa no Outlook?

• Exportar Estrutura de Pasta do Outlook para o Excel
• Neste artigo, explicamos como exportar a estrutura de pastas de uma conta do Outlook para um ficheiro do Excel. Basta seguir os passos detalhados aqui para o conseguir facilmente.

---

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...

📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...

📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...

🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...

👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...

👩🏼‍🤝‍👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...

Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

Lista de Funcionalidades do Kutools para Outlook      Transferir Já      Ir para Compra

🚀 Transferência com um Clique — Obtenha Todos os Extras do Office

Altamente Recomendado: Kutools for Office (5 em 1)

Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!

• ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
• 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
• 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Sobre o Conjunto⬇ Transferir o Conjunto💳 Comprar o Conjunto