Kuidas automaatselt eksportida sissetulevate Outlooki meilide manusteavet Exceli töövihikusse

Outlooki lahendused September 29, 2025

Mõned kasutajad soovivad automaatselt salvestada iga sissetuleva meili manuste teabe. See artikkel jagab kiiret aega selle hõlpsaks realiseerimiseks.

Kui olete harjunud eksportima iga sissetuleva Outlooki meili manusteavet Exceli faili, võib-olla igatsete mõnda lähenemisviisi, mis võimaldab Outlookil seda tööd automaatselt teha. Seeläbi saate vabaneda jälgimismanustest käsitsi. Õnneks, kuigi Outlook sellist otsest funktsiooni ei paku, saate selle siiski saavutada vähese skriptimisega. Nüüd õpetame teile samm-sammult.

Eksportige sissetulevate meilide manusteave automaatselt Excelisse

  1. Esmalt käivitage Outlooki rakendus.
  2. Seejärel minge VBA redaktorisse, kasutades "Alt + F11".
  3. Järgmisena kopeerige järgmine VBA kood moodulisse.
Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objAttachment As Outlook.Attachment
 
    If objMail.Attachments.Count > 0 Then
       'Change the path to the specific Excel file
       strExcelFile = "E:\Attachment Info.xlsx"
 
       Set objExcelApp = CreateObject("Excel.Application")
       objExcelApp.Visible = True
       Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
       Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
 
       'Export Attachment info to Excel
       For Each objAttachment In objMail.Attachments
           nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
           With objExcelWorksheet
                .Cells(nLastRow, 1) = objMail.Subject
                .Cells(nLastRow, 2) = objMail.SenderEmailAddress
                .Cells(nLastRow, 3) = objAttachment.FileName
                .Cells(nLastRow, 4) = objMail.ReceivedTime
           End With
       Next
 
       objExcelWorksheet.Columns("A:C").AutoFit
       objExcelWorkbook.Close True
       objExcelApp.Quit
    End If
End Sub

VBA-kood – sissetulevate meilide manusteabe automaatne eksportimine Excelisse

  1. Pärast seda väljuge VBA redaktorist.
  2. Seejärel looge reegel selle makro automaatseks käitamiseks iga sissetuleva meili puhul.
  • Kõigepealt minge menüüsse "Fail".
  • Seejärel klõpsake nuppu "Halda reegleid ja hoiatusi".
  • Dialoogiboksis "Reeglid ja hoiatused" klõpsake "Uus reegel".
  • Dialoogiboksis "Reegliviisard" valige "Rakenda reegel vastuvõetud sõnumitele" ja klõpsake "Järgmine".Rakendage reeglit saadaolevatele sõnumitele
  • Järgmisena seadke oma vajadustele vastavad reeglitingimused ja klõpsake nuppu "Järgmine".
  • Valige sammus „Toimingud” „Käivita skript” ja valige skript „AutoExportAttachmentInfo”.Valige Käivitatav skript
  • Lõpuks järgige reegli seadistamise lõpetamiseks ekraanil kuvatavaid viisardeid.
  1. Edaspidi ekspordib Outlook iga kord, kui teie postkasti saabub uus e-kiri, kui sellel on manuseid, automaatselt manusteabe eelmääratletud Exceli faili.Salvestatud manuse teave Excelis

Ärge kunagi laadige alla kahtlasi manuseid

Kas olete kunagi saanud e-kirju, mis pärinevad tundmatutelt saatjatelt ja sisaldavad manuseid? Tavaliselt ei soovitata selliseid manuseid kergesti usaldada, kuna need võivad olla viirustega. Niikaua kui laadite need alla, võivad teie Outlooki andmed olla nakatunud. Sel hetkel peate seda tegema parandada Outlook faili. Tõsi, see on sõlmeline, välja arvatud juhul, kui kasutate vilunud remonditööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

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

Kommentaarid on suletud.