Kuidas sissetulevate e-kirjade teavet automaatselt Exceli faili eksportida Outlook VBA abil

Outlooki lahendused September 29, 2025

Paljud kasutajad loodavad, et Outlook suudab sissetulevate e-kirjade esmase teabe automaatselt Exceli faili eksportida. Selles artiklis käsitletakse seda nõuet ja tutvustatakse Outlook VBA kaudu kiirmeetodit.

Mõnikord võib teil mõnel põhjusel (nt meilistatistika) tekkida vajadus meilid eksportida Exceli faili. Üldiselt saate olemasolevate vastuvõetud e-kirjade puhul lihtsalt kasutada funktsiooni "Import ja eksport", et eksportida need ühe korraga Excelisse. Kuid võib-olla soovite isegi, et Outlook saaks sissetulevad meilid automaatselt Excelisse eksportida niipea, kui need teie postkasti jõuavad. Kahtlemata pole Outlookis sellist loomulikku funktsiooni. Seetõttu peate kasutama muid lähenemisviise, nagu kolmanda osapoole lisandmoodul või Outlook VBA. Siin õpetame teile, kuidas muuta see Outlook VBA-ga automaatseks. Sammude ja vastavate koodide saamiseks lugege edasi.

Sissetulevate e-kirjade teabe automaatne eksportimine Exceli faili

  1. Esiteks peaksite looma Exceli faili.
  • Avage uus Exceli fail.
  • Seejärel peaksite sisestama "Ei". lahtris A1, "saatja nimi" lahtris B1, "saatja e-posti aadress" lahtris C1 ja "e-posti teema" lahtris D1 ning "vastuvõtuaeg" lahtris E1, nagu järgmine pilt.Looge Exceli fail
  • Lõpuks salvestage see soovitud nimesse ja soovitud kausta.
  1. Pärast seda peaksite Outlooki käivitama.
  2. Seejärel vajutage klahve Alt + F11, mis viib teid VBA redaktorisse.
  3. Järgmisena peaksite hüpikaknas topeltklõpsama vasakus servas oleval valikul ThisOutlookSession.
  4. Seejärel peate projekti aknas "ThisOutlookSession" kopeerima ja kleepima sinna järgmised VBA koodid.
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 koodid – sissetulevate e-kirjade teabe automaatne eksportimine Exceli faili

  1. Hiljem peaksite sellele koodile alla kirjutama.
  2. Seejärel restart Outlook uue VBA projekti aktiveerimiseks.
  3. Nüüdsest eksporditakse kõik sissetulevad meilid automaatselt eelseadistatud Exceli faili niipea, kui need jõuavad teie postkasti kausta. Exceli fail näeb välja järgmine pilt:Exceli fail, mis sisaldab teavet sissetulevate e-kirjade kohta

Vältige valusat PST-andmete korruptsiooni

Outlook on oma erinevate funktsioonide tõttu palju kiitust pälvinud. See aga ei tähenda, et see oleks lollikindel. See võib ikkagi igal ajal ohtu sattuda. Näiteks kui sulgete oma Outlooki sageli valesti, on väga tõenäoline, et teie PST-andmed satuvad ohtu. Sel juhul, kui soovite remont PST andmed, peate kasutama kogenud tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taastada mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.