Hur exporterar jag e-post från flera mappar / undermappar för att utmärka sig i Outlook?

Att exportera e-postmeddelanden från flera mappar eller undermappar till Excel kan vara en tråkig uppgift om du förlitar dig på manuella metoder eller begränsade Outlook-funktioner. Tack och lov finns det mer effektiva sätt att uppnå detta. I den här artikeln kommer vi att utforska två metoder: ett VBA-baserat tillvägagångssätt och en snabbare, användarvänlig lösning med Kutools för Outlook. Medan VBA-metoden erbjuder flexibilitet, innebär den komplexa inställningar och justeringar. Däremot erbjuder Kutools för Outlook ett enkelt och kraftfullt sätt att exportera e-postmeddelanden till Excel med bara några få klick, vilket sparar tid och ansträngning. Låt oss dyka in i detaljerna.

Exportera e-postmeddelanden från flera mappar/undermappar till Excel med VBA (Komplext men flexibelt)

Exportera e-postmeddelanden från en mapp/undermapp till Excel med Kutools för Outlook 👍 (Effektiv och användarvänlig)

Exportera e-postmeddelanden från flera mappar/undermappar till Excel med VBA

Om du är bekväm med kodning och behöver en anpassningsbar lösning kan det vara effektivt att använda VBA. Den här metoden låter dig ange flera mappar eller undermappar och exportera deras e-postmeddelanden till separata Excel-filer. Det kräver dock teknisk kunskap och noggrann anpassning av koden.

Steg 1: Öppna VBA Editor

Klicka andra + F11 att starta Microsoft Visual Basic för applikationer fönster.

Steg 2: Sätt in en ny modul

Klicka Insert > Modulerna, och klistra sedan in nedanstående VBA-kod i det nya modulfönstret.

VBA: Exportera e-postmeddelanden från flera mappar och undermappar till Excel

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
'Write Excel Column Headers
With excWks
.Cells(1, 1) = "Subject"
.Cells(1, 2) = "Received"
.Cells(1, 3) = "Sender"
End With
intRow = 2
For Each olkMsg In olkFld.Items
'Only export messages, not receipts or appointment requests, etc.
If olkMsg.Class = olMail Then
'Add a row for each field in the message you want to export
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 olkPrp = Nothing
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

Steg 3: Anpassa VBA-koden

1. ersätta destinationsmappsväg i ovanstående kod med mappsökvägen till målmappen sparar du de exporterade arbetsböckerna i, som t.ex C: \ Användare \ DT168 \ Dokument \ TEST.
2. ersätta ditt_e-postkonto\mapp\undermapp_1 och ditt_e-postkonto\mapp\undermapp_2 i ovanstående kod med mappsökvägarna till undermappar i Outlook, som t.ex Kelly@extendoffice.com\Inbox\A och Kelly@extendoffice.com\Inbox\B.
   

Steg 4: Kör koden

Klicka F5 eller klicka på Körning knappen för att exekvera koden. Och klicka sedan på OK knappen i öppningen Exportera Outlook-mappar till Excel dialogrutan. Nu exporteras e-postmeddelanden från alla angivna mappar eller undermappar och sparas i Excel-arbetsböcker.

Förvandla din e-posthantering med massbearbetning!

Trött på repetitiva e-postuppgifter? Kutools för Outlook erbjudanden Bulkbearbetning verktyg för att effektivisera ditt arbetsflöde och spara dyrbar tid.

• 🌟 Svara på flera e-postmeddelanden: Skicka masssvar med mallar utan att svettas.
• 📧 Vidarebefordra individuellt: Vidarebefordra flera e-postmeddelanden som vanliga meddelanden, inte som bilagor.
• 📝 Spara som olika format: Exportera e-postmeddelanden som PDF, Word, Excel och mer – allt på en gång!

Prova Kutools för Outlook idag

Exportera e-postmeddelanden från en mapp/undermapp till Excel med Kutools för Outlook 👍

För ett snabbare och problemfritt tillvägagångssätt, Kutools för Outlook erbjuder en Spara valda e-postmeddelanden som filer i olika format särdrag. Denna metod rekommenderas starkt för dess enkelhet, snabbhet och mångsidighet. Oavsett om du hanterar en liten grupp e-postmeddelanden eller stora datamängder, säkerställer Kutools en sömlös upplevelse med minimal ansträngning.

Steg 1: Välj mappen eller undermappen

Navigera till mappen eller undermappen som innehåller de e-postmeddelanden du vill exportera. Trycka ctrl + A för att välja alla e-postmeddelanden i listan.

Steg 2: Gå till funktionen Spara valda e-postmeddelanden som filer i olika format

Klicka Kutools > Bulkbearbetning > Spara valda e-postmeddelanden som filer i olika format.

Steg 3: Konfigurera exportinställningarna

1. I Spara meddelanden som andra filer i dialogrutan väljer du målmappen där du vill spara filerna.
2. Välj Excel-format alternativ.
3. Välj det specifika e-postinnehåll som ska exporteras (t.ex. rubrik, brödtext) i Spara innehåll sektion.
   

Steg 4: Slutför exporten

Klicka OK för att påbörja exportprocessen. När du är klar hittar du alla e-postmeddelanden sparade som separata Excel-filer i den avsedda mappen.

---

Bästa kontorsproduktivitetsverktyg

Nyheter: Kutools för Outlook lanseras Gratis version!

Upplev de helt nya Kutools för Outlook GRATIS version med 70+ otroliga funktioner, din att använda FÖR EVIGT! Klicka för att ladda ner nu!

🤖 Kutools AI : Använder avancerad AI-teknik för att hantera e-postmeddelanden utan ansträngning, inklusive att svara, sammanfatta, optimera, utöka, översätta och skriva e-postmeddelanden.

📧 Email Automation: Autosvar (tillgängligt för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Återkalla e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor Pro: Batch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Påminn dig när viktiga mejl kommer  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Lås upp Kutools för Outlook omedelbart med ett enda klick—permanent gratis. Vänta inte, ladda ner nu och öka din effektivitet!

Funktionslista över Kutools för Outlook      Ladda ner gratis version      Uppgradera till Professional