Slik eksporterer du automatisk informasjon om innkommende e-poster til en Excel-fil med Outlook VBA

Outlook-løsninger September 29, 2025

Mange brukere håper at Outlook automatisk kan eksportere hovedinformasjonen til innkommende e-poster til en Excel-fil. Denne artikkelen vil se på dette kravet og introdusere en rask metode via Outlook VBA.

Noen ganger, av noen grunner, for eksempel e-poststatistikk, kan det hende du ofte må eksportere e-postene til en Excel-fil. Generelt, for eksisterende mottatte e-poster, kan du ganske enkelt bruke "Importer og eksporter"-funksjonen for å eksportere dem til Excel på en gang. Men kanskje du til og med ønsker at Outlook automatisk kan eksportere innkommende e-poster til Excel så snart de kommer i postkassen din. Uten tvil er det ingen slik innebygd funksjon i Outlook . Derfor må du bruke andre tilnærminger, som et tredjepartstillegg eller Outlook VBA. Her vil vi lære deg hvordan du gjør det automatisert med Outlook VBA. Les videre for å få fremgangsmåten og i henhold til koder.

Autoeksporter informasjon om innkommende e-poster til en Excel-fil

  1. For det første bør du lage en Excel-fil.
  • Åpne en ny Excel-fil.
  • Da bør du skrive "Nei". i celle A1, "Avsendernavn" i celle B1, "E-postadresse for avsender" i celle C1, og "E-postemne" i celle D1, og "mottatt tid" i celle E1, som følgende bilde.Lag en Excel-fil
  • Lagre den til slutt i ønsket navn og ønsket mappe.
  1. Etter det bør du starte Outlook.
  2. Deretter trykker du på "Alt + F11"-tastene, som tar deg til VBA-redigering.
  3. Neste i popup-vinduet bør du dobbeltklikke på "ThisOutlookSession" på venstre side.
  4. Deretter, i prosjektvinduet "ThisOutlookSession", må du kopiere og lime inn 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 - Autoeksporter informasjon om innkommende e-poster til en Excel-fil

  1. Senere bør du signere denne koden.
  2. Deretter ble restart Outlook for å aktivere det nye VBA-prosjektet.
  3. Til slutt, fra nå av, vil alle innkommende e-poster bli automatisk eksportert til den forhåndsinnstilte Excel-filen så snart de lander i innboksen din. Excel-filen vil se ut som følgende bilde:Excel-fil som inneholder informasjon om innkommende e-poster

Avverge smertefull PST-datakorrupsjon

Outlook har fått mye honnør på grunn av de forskjellige funksjonene. Det betyr imidlertid ikke at det er idiotsikkert. Det kan fortsatt bli kompromittert når som helst. For eksempel, hvis du ofte lukker Outlook på feil måte, er det svært sannsynlig at PST-dataene dine blir satt i fare. I dette tilfellet, hvis du vil reparere PST data, må du bruke et erfarent verktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.