Hoe e-mails uit meerdere mappen/submappen naar Excel exporteren in Outlook?

Het exporteren van e-mails uit meerdere mappen of submappen naar Excel kan een tijdrovende taak zijn als je vertrouwt op handmatige methoden of beperkte functies van Outlook. Gelukkig zijn er efficiëntere manieren om dit te bereiken. In dit artikel bespreken we twee methoden: een VBA-gebaseerde aanpak en een snellere, gebruiksvriendelijke oplossing met Kutools voor Outlook. Hoewel de VBA-methode flexibiliteit biedt, vereist het een complexe instelling en aanpassingen. Daarentegen biedt Kutools voor Outlook een eenvoudige en krachtige manier om e-mails naar Excel te exporteren met slechts een paar klikken, wat je tijd en moeite bespaart. Laten we de details bekijken.

E-mails uit meerdere mappen/submappen naar Excel exporteren met behulp van VBA (Complex maar Flexibel)

E-mails uit een map/submap naar Excel exporteren met behulp van Kutools voor Outlook 👍 (Efficiënt en Gebruiksvriendelijk)

E-mails uit meerdere mappen/submappen naar Excel exporteren met behulp van VBA

Als je bekend bent met coderen en een aanpasbare oplossing nodig hebt, kan het gebruik van VBA effectief zijn. Deze methode stelt je in staat om meerdere mappen of submappen te specificeren en hun e-mails naar afzonderlijke Excel-bestanden te exporteren. Dit vereist echter technische kennis en zorgvuldige aanpassing van de code.

Stap 1: Open de VBA-editor

Druk op Alt + F11 om het venster "Microsoft Visual Basic for Applications" te openen.

Stap 2: Voeg een nieuwe module in

Klik op "Invoegen" > "Module", en plak vervolgens de onderstaande VBA-code in het nieuwe modulevenster.

VBA: E-mails uit meerdere mappen en submappen naar Excel exporteren

Const MACRO_NAME = "Export Outlook Folders to Excel"
Sub ExportMain()
ExportToExcel "destination_folder_path\A.xlsx", "your_email_account\folder\subfolder_1"
ExportToExcel "destination_folder_path\B.xlsx", "your_email_account\folder\subfolder_2"
MsgBox "Process complete.", vbInformation + vbOKOnly, MACRO_NAME
End Sub

Sub ExportToExcel(strFilename As String, strFolderPath As String)
Dim olkMsg As Object
Dim olkFld As Object
Dim excApp As Object
Dim excWkb As Object
Dim excWks As Object
Dim intRow As Integer
Dim intVersion As Integer

If strFilename <> "" Then
If strFolderPath <> "" Then
Set olkFld = OpenOutlookFolder(strFolderPath)
If TypeName(olkFld) <> "Nothing" Then
intVersion = GetOutlookVersion()
Set excApp = CreateObject("Excel.Application")
Set excWkb = excApp.Workbooks.Add()
Set excWks = excWkb.ActiveSheet
With excWks
.Cells(1, 1) = "Subject"
.Cells(1, 2) = "Received"
.Cells(1, 3) = "Sender"
End With
intRow = 2
For Each olkMsg In olkFld.Items
If olkMsg.Class = olMail Then
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
intRow = intRow + 1
End If
Next
Set olkMsg = Nothing
excWkb.SaveAs strFilename
excWkb.Close
Else
MsgBox "The folder '" & strFolderPath & "' does not exist in Outlook.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The folder path was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The filename was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If

Set olkMsg = Nothing
Set olkFld = Nothing
Set excWks = Nothing
Set excWkb = Nothing
Set excApp = Nothing
End Sub

Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
Dim arrFolders As Variant
Dim varFolder As Variant
Dim bolBeyondRoot As Boolean

On Error Resume Next
If strFolderPath = "" Then
Set OpenOutlookFolder = Nothing
Else
Do While Left(strFolderPath, 1) = "\"
strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
Loop
arrFolders = Split(strFolderPath, "\")
For Each varFolder In arrFolders
Select Case bolBeyondRoot
Case False
Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
bolBeyondRoot = True
Case True
Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
End Select
If Err.Number <> 0 Then
Set OpenOutlookFolder = Nothing
Exit For
End If
Next
End If
On Error GoTo 0
End Function

Function GetSMTPAddress(Item As Outlook.MailItem, intOutlookVersion As Integer) As String
Dim olkSnd As Outlook.AddressEntry
Dim olkEnt As Object

On Error Resume Next
Select Case intOutlookVersion
Case Is < 14
If Item.SenderEmailType = "EX" Then
GetSMTPAddress = SMTPEX(Item)
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
Case Else
Set olkSnd = Item.Sender
If olkSnd.AddressEntryUserType = olExchangeUserAddressEntry Then
Set olkEnt = olkSnd.GetExchangeUser
GetSMTPAddress = olkEnt.PrimarySmtpAddress
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
End Select
On Error GoTo 0
Set olkSnd = Nothing
Set olkEnt = Nothing
End Function

Function GetOutlookVersion() As Integer
Dim arrVer As Variant
arrVer = Split(Outlook.Version, ".")
GetOutlookVersion = arrVer(0)
End Function

Function SMTPEX(olkMsg As Outlook.MailItem) As String
Dim olkPA As Outlook.propertyAccessor
On Error Resume Next
Set olkPA = olkMsg.propertyAccessor
SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")
On Error GoTo 0
Set olkPA = Nothing
End Function

Stap 3: Pas de VBA-code aan

1. Vervang "destination_folder_path" in bovenstaande code door het daadwerkelijke mappad, zoals "C:\Users\DT168\Documents\TEST".
2. Vervang "your_email_account\folder\subfolder_1" en "your_email_account\folder\subfolder_2" door je Outlook-mappaden, zoals "Kelly@extendoffice.com\Inbox\A" en "Kelly@extendoffice.com\Inbox\B".
   

Stap 4: Voer de code uit

Druk op "F5" of klik op de knop "Uitvoeren" om de code uit te voeren. Klik vervolgens op de knop "OK" in het pop-upvenster "Exporteer Outlook-mappen naar Excel". Nu worden e-mails uit alle gespecificeerde mappen/submappen geëxporteerd naar Excel-werkboeken.

Transformeer je e-mailbeheer met Bulkverwerking!

Genoeg van herhalende e-mailtaken? Kutools voor Outlook biedt "Bulkverwerking"-tools om je workflow te stroomlijnen en waardevolle tijd te besparen.

• 🌟 Beantwoord meerdere e-mails: Stuur bulkantwoorden met behulp van sjablonen zonder moeite.
• 📧 Individueel Doorsturen: Stuur meerdere e-mails door als normale berichten, niet als bijlagen.
• 📝 Opslaan in verschillende formaten: Exporteer e-mails als PDF, Word, Excel en meer - allemaal in één keer!

Probeer Kutools voor Outlook vandaag nog

E-mails uit een map/submap naar Excel exporteren met behulp van Kutools voor Outlook 👍

Voor een snellere en probleemloze aanpak biedt "Kutools voor Outlook" een "Geselecteerde e-mails opslaan als bestanden in verschillende formaten"-functie. Deze methode wordt ten zeerste aanbevolen vanwege de eenvoud, snelheid en veelzijdigheid. Of je nu een kleine hoeveelheid e-mails of grote datasets beheert, Kutools zorgt voor een naadloze ervaring met minimale inspanning.

Stap 1: Selecteer de map of submap

Navigeer naar de map of submap die de e-mails bevat die je wilt exporteren. Druk op Ctrl + A om alle e-mails in de lijst te selecteren.

Stap 2: Open de functie 'Geselecteerde e-mails opslaan als bestanden in verschillende formaten'

Klik op "Kutools" > "Bulkverwerking" > "Geselecteerde e-mails opslaan als bestanden in verschillende formaten".

Stap 3: Configureer de exportinstellingen

1. Kies in het dialoogvenster "E-mails opslaan als andere bestanden" de doelmap waar je de bestanden wilt opslaan.
2. Selecteer de optie "Excel-indeling".
3. Kies de specifieke e-mailinhoud om te exporteren (bijvoorbeeld kop, berichttekst) in de sectie "Opslaan inhoud".
   

Stap 4: Voltooi de export

Klik op "OK" om het exportproces te starten. Zodra het voltooid is, vind je alle e-mails opgeslagen als afzonderlijke Excel-bestanden in de aangewezen map.

---

Beste productiviteitstools voor Office

Breaking News: Kutools voor Outlook lanceert gratis versie!

Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...

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

🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...

👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...

Ontgrendel direct Kutools voor Outlook met één klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functielijst van Kutools voor Outlook Gratis versie downloaden Upgrade naar Professional