Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe exporteer je automatisch e-mails van Outlook naar Excel?

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 Excel-bestanden te exporteren wanneer er nieuwe berichten aankomen? In dit artikel zal ik het hebben over het automatisch exporteren van de informatie van de nieuwe inkomende berichten in Excel.

Auto export e-mail informatie van Outlook naar Excel met VBA-code


Snel emials exporteren uit Inbox / Verzonden items / Concepten ... naar Excel-bestand:

Doordat uw bureau Kutools for Outlook's Quick Report functie, kunt u eenvoudig een XML-bestand genereren voor het rapporteren van alle items in de huidige e-mailmap of taakmap

doc auto exporteert e-mails om 5 uit te blinken

Kutools for Outlook: met meer dan 40 + handige Excel-add-ins, gratis om zonder beperkingen te proberen in 60-dagen. Download en probeer nu de gratis proefversie!

Auto export e-mail informatie van Outlook naar Excel met VBA-code

Voer de volgende VBA-code uit om de nieuwe arriverende e-mails automatisch naar een Excel-werkmap te exporteren:

1. Eerst moet u een werkmap maken met de onderstaande koptekstinformatie als het volgende screenshot wordt getoond, dus deze informatie van de berichten zal naar dit Excel-bestand worden geëxporteerd.

doc auto exporteert e-mails om 1 uit te blinken

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

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

VBA-code: Automatisch e-mailinformatie 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

Notes: In de bovenstaande code, C: \ Gebruikers \ DT168 \ Desktop \ gesplitst document \ kto-data.xlsx is het Excel-bestandspad en de Excel-naam waarvan u de geëxporteerde informatie wilt opzoeken, wijzig deze naar uw behoefte.

doc auto exporteert e-mails om 2 uit te blinken

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

doc auto exporteert e-mails om 3 uit te blinken

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

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

doc auto exporteert e-mails om 4 uit te blinken



Kutools for Outlook

Meer dan 100 geavanceerde functies voor Outlook 2010, 2013, 2016, 2019 en 365

screen shot kutools voor outlook tiny voor banner 201812

Meer functies | Gratis download | Alleen $ 39.00 voor honderden functies

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jorge · 5 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, Jorge,
      If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.