Hur man automatiskt exporterar information om inkommande e-postmeddelanden till en Excel-fil med Outlook VBA

Outlook-lösningar September 29, 2025

Många användare hoppas att Outlook automatiskt kan exportera den primära informationen för inkommande e-postmeddelanden till en Excel-fil. Den här artikeln kommer att titta på detta krav och introducera en snabb metod via Outlook VBA.

Ibland, av vissa skäl, såsom e-poststatistik, kan du ofta behöva exportera e-postmeddelandena till en Excel-fil. I allmänhet, för befintliga mottagna e-postmeddelanden, kan du helt enkelt använda funktionen "Importera och exportera" för att exportera dem till Excel på en gång. Men du kanske till och med önskar att Outlook automatiskt kan exportera inkommande e-postmeddelanden till Excel så snart de kommer till din postlåda. Utan några tvivel finns det ingen sådan inbyggd funktion i Outlook . Därför måste du använda andra metoder, som ett tredjepartstillägg eller Outlook VBA. Här kommer vi att lära dig hur du gör det automatiskt med Outlook VBA. Läs vidare för att få stegen och enligt koder.

Autoexportera information om inkommande e-postmeddelanden till en Excel-fil

  1. I första hand bör du skapa en Excel-fil.
  • Öppna en ny Excel-fil.
  • Sedan ska du skriva "Nej". i cell A1, "Avsändarens namn" i cell B1, "Avsändarens e-postadress" i cell C1 och "E-postämne" i cell D1 och "Mottagen tid" i cell E1, som följande bild.Skapa en Excel-fil
  • Spara den till sist i önskat namn och önskad mapp.
  1. Efter det bör du starta Outlook.
  2. Tryck sedan på "Alt + F11" knapparna, som tar dig till VBA-redigeraren.
  3. Nästa i popup-fönstret bör du dubbelklicka på "ThisOutlookSession" på vänster sida.
  4. Därefter, i projektfönstret "ThisOutlookSession", måste du kopiera och klistra in följande VBA-koder i det.
Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
    Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
    Dim strColumnB As String
    Dim strColumnC As String
    Dim strColumnD As String
    Dim strColumnE As String

    If Item.Class = olMail Then
       Set objMail = Item
    End If
 
    'Specify the Excel file which you want to auto export the email list
    'You can change it as per your case
    strExcelFile = "E:\Email\Email Statistics.xlsx"
 
    'Get Access to the Excel file
    On Error Resume Next
    Set objExcelApp = GetObject(, "Excel.Application")
    If Error <> 0 Then
       Set objExcelApp = CreateObject("Excel.Application")
    End If
    Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
 
    'Get the next empty row in the Excel worksheet
    nNextEmptyRow = objExcelWorkSheet.Range("B" & objExcelWorkSheet.Rows.Count).End(xlUp).Row + 1
 
    'Specify the corresponding values in the different columns
    strColumnB = objMail.SenderName
    strColumnC = objMail.SenderEmailAddress
    strColumnD = objMail.Subject
    strColumnE = objMail.ReceivedTime
 
    'Add the vaules into the columns
    objExcelWorkSheet.Range("A" & nNextEmptyRow) = nNextEmptyRow - 1
    objExcelWorkSheet.Range("B" & nNextEmptyRow) = strColumnB
    objExcelWorkSheet.Range("C" & nNextEmptyRow) = strColumnC
    objExcelWorkSheet.Range("D" & nNextEmptyRow) = strColumnD
    objExcelWorkSheet.Range("E" & nNextEmptyRow) = strColumnE
 
    'Fit the columns from A to E
    objExcelWorkSheet.Columns("A:E").AutoFit
 
    'Save the changes and close the Excel file
    objExcelWorkBook.Close SaveChanges:=True
End Sub

VBA-koder - Autoexportera information om inkommande e-postmeddelanden till en Excel-fil

  1. Senare bör du skriva under denna kod.
  2. Därefter restart Outlook för att aktivera det nya VBA-projektet.
  3. Så småningom, från och med nu, kommer alla inkommande e-postmeddelanden att automatiskt exporteras till den förinställda Excel-filen så snart de hamnar i din Inkorg-mapp. Excel-filen kommer att se ut som följande bild:Excel-fil som innehåller information om inkommande e-postmeddelanden

Avvärja smärtsam PST-datakorruption

Outlook har fått mycket beröm på grund av dess olika funktioner. Det betyder dock inte att det är idiotsäkert. Det kan fortfarande äventyras när som helst. Till exempel, om du ofta stänger din Outlook på felaktigt sätt, är det mycket troligt att dina PST-data kommer att utsättas för fara. I det här fallet, om du vill reparera PST data måste du använda ett erfaret verktyg, som t.ex DataNumen Outlook Repair.

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 återställa mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.