Hvordan eksporteres e-mails automatisk fra Outlook til Excel?
Normalt kan du eksportere e-mails fra Outlook til Excel med import / eksport-funktionen. Men har du nogensinde forsøgt at automatisk eksportere e-mails til Excel-fil, når der kommer nye meddelelser? I denne artikel vil jeg tale om, hvordan man automatisk eksporterer oplysningerne om de nye indgående beskeder i Excel.
Automatisk eksport af e-mail-oplysninger fra Outlook til Excel med VBA-kode
Eksporter e-mail-oplysninger fra Outlook til Excel med en fantastisk funktion
Automatisk eksport af e-mail-oplysninger fra Outlook til Excel med VBA-kode
For at eksportere de nye ankomne e-mails til en Excel-projektmappe skal du anvende følgende VBA-kode:
1. Først skal du oprette en projektmappe med nedenstående overskriftsoplysninger som vist nedenstående skærmbillede, så disse oplysninger om meddelelserne eksporteres til denne Excel-fil.
2. Gå derefter til Outlook, og hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.
VBA-kode: Eksportér automatisk e-mail-oplysninger fra Outlook til Excel-fil:
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
Bemærk: I ovenstående kode, C: \ Brugere \ DT168 \ Desktop \ opdelt dokument \ kto-data.xlsx er Excel-filstien og Excel-navnet, som du vil finde de eksporterede oplysninger, skal du ændre det til dit behov.
4. Stadig i Microsoft Visual Basic til applikationer vindue, skal du klikke på Værktøjer > Referencer at gå til Referencer-projekt1 dialogboks, og tjek Microsoft Excel-objektbibliotek mulighed fra Tilgængelige referencer listefelt, se skærmbillede:
5. Klik derefter på OK knap for at lukke dialogboksen og derefter gemme og lukke kodevinduet.
6. Nu skal du genstarte Outlook for at få denne kode til at træde i kraft. Fra nu af, hvis der kommer nye e-mails, eksporteres de automatisk til den specifikke projektmappe, se skærmbillede:
Eksporter e-mail-oplysninger fra Outlook til Excel med en fantastisk funktion
Hvis du vil eksportere e-mails fra Indbakke, Udbakke eller andre mapper til en Excel-fil, Kutools til Outlook's Hurtig rapport kan hjælpe dig med nemt at generere en XML-fil til rapportering af alle elementers oplysninger i den aktuelle e-mail-mappe eller opgavemappe, efter behov.
Efter installation Kutools til Outlookskal du gøre som dette:
1. Vælg en mappe, hvor du vil eksportere alle meddelelsesoplysninger, og klik derefter på Kutools Plus > Hurtig rapport, se skærmbillede:
2. Derefter kom den ud Gem rapport vindue, vælg en placering og angiv et navn til denne eksporterede fil, se skærmbillede:
3. Klik derefter på Gem knappen for at gemme denne fil, og klik på i den pop op-boks Ja knap for at åbne filen, se skærmbillede:
4. Nu kan du se alle oplysninger om e-mails i den valgte mappe er blevet eksporteret til Excel-filen, se skærmbillede:
Flere relative artikler:
- Eksportér e-mail-body-tabel til Excel i Outlook
- Når du modtager en e-mail, der indeholder nogle tabeller i brødteksten, skal du nogle gange muligvis eksportere alle tabeller fra meddelelsesteksten til et Excel-regneark. Normalt kan du kopiere og indsætte tabellerne i regnearket, men her vil jeg tale om en nyttig metode til at løse dette job, når der er flere tabeller, der skal eksporteres.
- Uddrag eller eksporter listen over opgaver til Excel i Outlook
- Mens du bruger Outlook, kan du udtrække opgavelisten til Excel til anden brug. Med den kraftfulde eksportfunktion i Outlook kan du nemt eksportere din opgaveliste til Excel. Gør som nedenfor tutorial viser.
- Eksporter kontaktoplysninger med fotos i Outlook
- Når du eksporterer kontakter fra Outlook til en fil, kan kun tekstoplysningerne for kontaktpersonerne eksporteres. Men nogle gange har du brug for, at fotos eksporteres såvel som kontaktpersonernes tekstoplysninger. Hvordan kunne du håndtere denne opgave i Outlook?
- Eksporter mappestruktur fra Outlook til Excel
- Denne artikel vil jeg introducere, hvordan man eksporterer mappestruktur for en konto fra Outlook til Excel-fil. Venligst opnå det med detaljerne i denne artikel.
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.