Hoe e-mails automatisch van Outlook naar Excel exporteren?

Normaal gesproken kunt u de e-mails van Outlook naar Excel exporteren met de functie Importeren / exporteren. Maar heb je ooit geprobeerd de e-mails automatisch naar een Excel-bestand te exporteren wanneer er nieuwe berichten binnenkomen? In dit artikel zal ik het hebben over het automatisch exporteren van de informatie van de nieuwe inkomende berichten in Excel.

Exporteer automatisch e-mailinformatie van Outlook naar Excel met VBA-code

Exporteer e-mailinformatie van Outlook naar Excel met een geweldige functie

Exporteer automatisch e-mailinformatie van Outlook naar Excel met VBA-code

Om de nieuwe binnenkomende e-mails automatisch naar een Excel-werkmap te exporteren, past u de volgende VBA-code toe:

1. Eerst moet u een werkmap maken met de onderstaande koptekstinformatie, zoals in de volgende schermafbeelding, zodat deze informatie van de berichten naar dit Excel-bestand wordt geëxporteerd.

2. Ga dan naar Outlook en houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: e-mailinformatie automatisch exporteren van Outlook naar Excel-bestand:

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: In de bovenstaande code, C: \ Users \ DT168 \ Desktop \ gesplitst document \ kto-data.xlsx is het Excel-bestandspad en de Excel-naam waarnaar u de geëxporteerde informatie wilt zoeken, wijzig dit naar uw behoefte.

4. Nog steeds in de Microsoft Visual Basic voor toepassingen venster klikt Tools > Referenties naar de Referenties-Project1 dialoogvenster en vink aan Microsoft Excel-objectbibliotheek optie van de Beschikbare referenties keuzelijst, zie screenshot:

5. Dan klikken OK knop om het dialoogvenster te sluiten en vervolgens op te slaan en het codevenster te sluiten.

6. Nu moet u Outlook opnieuw opstarten om deze code van kracht te laten worden. Als er nieuwe e-mails binnenkomen, worden deze vanaf nu automatisch naar de specifieke werkmap geëxporteerd, zie screenshot:

Exporteer e-mailinformatie van Outlook naar Excel met een geweldige functie

Als u de e-mails vanuit Inbox, Outbox of andere mappen naar een Excel-bestand wilt exporteren, Kutools for Outlook's Quick Report kan u helpen om eenvoudig een XML-bestand te genereren voor het rapporteren van alle iteminformatie in de huidige e-mailmap of taakmap als u dat nodig hebt.

Na het installeren van Kutools for Outlook, doe dit als volgt:

1. Selecteer een map waarin u alle berichtinformatie wilt exporteren en klik op Koetools Plus > Quick Report, zie screenshot:

2. Toen kwam het eruit Bewaar rapport venster, kies een locatie en specificeer een naam voor dit geëxporteerde bestand, zie screenshot:

3. En klik dan Bespaar om dit bestand op te slaan, en klik in het uitgeklapte vak op Ja knop om het bestand te openen, zie screenshot:

4. Nu kunt u zien dat alle informatie van de e-mails in de geselecteerde map is geëxporteerd naar het Excel-bestand, zie screenshot:

Meer relatieve artikelen:

---

Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen Pro: Batch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

Lees meer       Gratis download      Koop nu jouw