Sådan eksporteres automatisk oplysninger om indgående e-mails til en Excel-fil med Outlook VBA

Outlook-løsninger September 29, 2025

Mange brugere håber, at Outlook automatisk kan eksportere de primære oplysninger om indgående e-mails til en Excel-fil. Denne artikel vil se på dette krav og introducere en hurtig metode via Outlook VBA.

Nogle gange, af nogle årsager, såsom mailstatistik, kan det ofte være nødvendigt at eksportere e-mails til en Excel-fil. Generelt for de eksisterende modtagne e-mails kan du blot bruge funktionen "Import og eksport" til at eksportere dem til Excel på én gang. Men måske ønsker du endda, at Outlook automatisk kan eksportere de indgående e-mails til Excel, så snart de ankommer i din postkasse. Uden tvivl er der ikke sådan en indbygget funktion i Outlook . Derfor er du nødt til at anvende andre tilgange, såsom et 3. parts tilføjelsesprogram eller Outlook VBA. Her vil vi lære dig, hvordan du gør det automatisk med Outlook VBA. Læs videre for at få trinene og i overensstemmelse med koder.

Autoeksportér oplysninger om indgående e-mails til en Excel-fil

  1. I første omgang bør du oprette en Excel-fil.
  • Åbn en ny Excel-fil.
  • Så skal du skrive "Nej". i celle A1, "Afsendernavn" i celle B1, "Afsender-e-mailadresse" i celle C1 og "E-mail-emne" i celle D1 og "Modtaget tid" i celle E1, som det følgende billede.Opret en Excel-fil
  • Gem det til sidst i dit ønskede navn og ønskede mappe.
  1. Derefter skal du starte Outlook.
  2. Tryk derefter på "Alt + F11"-tasterne, som bringer dig til VBA-editor.
  3. Næste i pop op-vinduet skal du dobbeltklikke på "ThisOutlookSession" i venstre side.
  4. Efterfølgende, i "ThisOutlookSession"-projektvinduet, skal du kopiere og indsætte følgende 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 - Autoeksportér oplysninger om indgående e-mails til en Excel-fil

  1. Senere bør du underskrive denne kode.
  2. Efterfølgende restart Outlook for at aktivere det nye VBA-projekt.
  3. Til sidst, fra nu af, vil alle de indgående e-mails automatisk blive eksporteret til den forudindstillede Excel-fil, så snart de lander i din Indbakke-mappe. Excel-filen vil se ud som følgende billede:Excel-fil, der indeholder oplysninger om indgående e-mails

Undgå smertefuld PST-datakorruption

Outlook har tjent meget kudos på grund af dets forskellige funktioner. Det betyder dog ikke, at det er idiotsikkert. Det kan stadig blive kompromitteret til enhver tid. For eksempel, hvis du ofte lukker din Outlook forkert, er det meget sandsynligt, at dine PST-data vil blive udsat for fare. I dette tilfælde, hvis du gerne vil reparation PST data, skal du bruge et erfarent værktøj, som f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder gendanne mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.