Så här grupperar du exportera flera Outlook-e-postmeddelanden till ett Word-dokument via VBA

Outlook-lösningar September 29, 2025

Om du vill batchexportera flera Outlook-e-postmeddelanden till ett enda orddokument kan du använda VBA-koden som visas i den här artikeln. Det kan hjälpa dig att utföra denna uppgift inom några sekunder.

Jag har någonsin introducerat hur jag konverterar ett Outlook-e-postmeddelande till ett Word-dokument i min tidigare artikel - “2 Effektiva metoder för att konvertera en Outlook-e-post till ett Word-dokument”. Båda de två medel som nämns i den sost kommer att vara hjälplös om du vill exportera många e-postmeddelanden till ett Word-dokument. Därför kommer vi här att lära dig ett annat sätt. Läs vidare för att få det detaljerat.

Batchexport av flera Outlook-e-postmeddelanden till ett Word-dokument via VBA

Batch exportera flera Outlook-e-postmeddelanden till ett Word-dokument

  1. Till starstarta ditt Outlook-program.
  2. Efter att du har angett huvudfönstret i Outlook måste du trycka på “Alt + F11” -tangenterna.
  3. Därefter får du tillgång till Outlook VBA-redigerare, där du borde öppna en tom modul.
  4. Kopiera därefter VBA-koden nedan till det öppnade modulfönstret.
Sub ExportMultipleEmails_OneWordDocument()
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim strFileName As String
    Dim objWordApp As Word.Application
    Dim objNewWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim strWordDocument As String
    Dim i As Long
  
    'Create a temp folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "YYYYMMDDhhmmss")
    MkDir (strTempFolder)
 
    On Error Resume Next
    'Save each selected email as an individual Word document in a temp folder
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    For Each objMail In objSelection
        strFileName = objMail.Subject
 
        'Remove the unsupported characters in email subject
        strFileName = Replace(strFileName, "/", " ")
        strFileName = Replace(strFileName, "\", " ")
        strFileName = Replace(strFileName, ":", "")
        strFileName = Replace(strFileName, "?", " ")
        strFileName = Replace(strFileName, Chr(34), " ")
 
        objMail.SaveAs strTempFolder & "\" & strFileName & ".doc", olDoc
    Next
 
    'Merge all the Word documents into a single document
    Set objWordApp = CreateObject("Word.Application")
    Set objNewWordDocument = objWordApp.Documents.Add
 
    strWordDocument = Dir(strTempFolder & "\" & "*.doc")
    i = 0
    Do Until strWordDocument = ""
       i = i + 1
       Set objWordRange = objNewWordDocument.Range
       With objWordRange
           .Collapse wdCollapseEnd
           If i > 1 Then
             .InsertBreak wdSectionBreakNextPage
             .End = objNewWordDocument.Range.End
             .Collapse wdCollapseEnd
           End If
           .InsertFile strTempFolder & "\" & strWordDocument
      End With
      strWordDocument = Dir()
    Loop
 
    'Change the path as per your own needs
    objNewWordDocument.SaveAs "E:\Exported Emails " & Format(Now, "YYYY-MM-DD hh-mm-ss")
    objWordApp.Quit
 
    'Delete the temp folder
    objFileSystem.DeleteFolder (strTempFolder)
End Sub

VBA-kod - Batchexport av flera Outlook-e-postmeddelanden till ett Word-dokument

  1. Efter det är det bättre att du lägger till detta nya VBA-projekt i snabbåtkomstverktygsfältet eller menyfliksområdet.
  2. I slutändan kan du prova.
  • För det första väljer du flera Outlook-e-postmeddelanden.
  • Leta sedan upp och klicka på den nyligen tillagda makroknappen.
  • När du blir ombedd att "Komplett" kan du bläddra till den fördefinierade lokala mappen för att hitta ett nytt Word-dokument.
  • Öppna det här dokumentet, där du kan se alla valda e-postmeddelanden har exporterats.

Håll ett mäktigt återställningsverktyg i närheten

Oavsett många funktioner kan Outlook fortfarande inte vara immun mot fel. Om du är van vid att lämna fel ensamma, medan de heapar upp, kommer Outlook-krasch att inträffa definitivt. Vid den tiden är det viktigt att återgå till ett mäktigt och effektivt återställningsverktyg, som DataNumen Outlook Repair. Det är väl insatt PST-fix. Så länge som med det behöver du inte vara mer bekymrad över förlust av dataförlust.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive skadad mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.