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.
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 do 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
Note: 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.
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:
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:
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 for 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.
Depois de instalar Kutools for 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?
- Exportar estrutura de pastas do Outlook para Excel
- Neste artigo, vou apresentar como exportar a estrutura de pastas de uma conta do Outlook para o arquivo Excel. Por favor, consiga com os detalhes deste artigo.
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.
