Iga prinditud Outlooki meili automaatne logimine Exceli töövihikus

Outlooki lahendused September 29, 2025

Mõned kasutajad loodavad oma Outlookis prinditud meilide logid automaatselt salvestada. Sellist otsest funktsiooni pole aga saadaval. Seetõttu tutvustame selles artiklis võimalust iga prinditud meili automaatseks logimiseks konkreetsesse Exceli töövihikusse.

Mõnel põhjusel peate võib-olla salvestama e-kirja teabe printimisel. Ilmselgelt ei paku Outlook seda toetavat natiivset funktsiooni. Seega peate üldiselt selle ülesande käsitsi täitma. Sellegipoolest saate VBA-koodi abil lasta oma Outlookil seda ülesannet hõlpsalt täita. Nüüd avastame teile sellise VBA-koodi ja üksikasjalikud sammud.

Iga prinditud meili automaatne logimine Exceli töövihikus

  1. Sest nagutart, käivitage Outlooki rakendus.
  2. Seejärel avage VBA redaktor, klõpsates vahekaardil „Arendaja” nuppu „Visual Basic”.
  3. Järgmisena sisestage kasutamata moodulisse järgmine VBA kood.
Sub RecordPrintedEmails()
    Dim objMail As Outlook.MailItem
    Dim objExcelApp As Excel.Application
    Dim strExcelFile As String
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
 
    'Get the mail
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    objMail.PrintOut
 
    On Error Resume Next
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
 
    'Change the path to the specific excel file
    strExcelFile = "E:\Emails\Printed Emails.xlsx"
    Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
    objExcelWorksheet.Activate
 
    nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
    'Change the details as per your own case
    With objExcelWorksheet
         .Cells(nNextEmptyRow, 1) = Date
         .Cells(nNextEmptyRow, 2) = objMail.Subject
         .Cells(nNextEmptyRow, 3) = objMail.Sender
         .Cells(nNextEmptyRow, 4) = objMail.SentOn
         .Cells(nNextEmptyRow, 5) = objMail.Size
         .Cells(nNextEmptyRow, 6) = objMail.Attachments.Count
         .Columns("A:E").AutoFit
    End With
 
    objExcelWorkbook.Close True
    objExcelApp.Quit
End Sub

VBA-kood – iga prinditud meili automaatne logimine Exceli töövihikusse

  1. Pärast seda väljuge VBA redaktorist.
  2. Seejärel vastavalt lk-s olevale valikuleost "Kuidas Outlookis VBA-koodi käivitada“, lisage see makro lindile või kiirpääsuribale.Lisage lindile makronupp
  3. Sellest ajast saati pidage meeles, et iga kord, kui soovite meili printida, kasutage standardse „Prindi“ asemel äsja lisatud makronuppu.Prindi e-post
  4. Sel viisil logib Outlook prinditud kirjad automaatselt eelmääratletud Exceli töölehel.Logib Excelisse

Hoidke Outlooki fail juurdepääsetavaks

Mõnikord võite pärast Outlooki kokkujooksmist saada tõrketeate, mis annab teada, et PST-fail pole juurdepääsetav. Sel ajal peaksite maha rahunema ja seejärel kasutama postkasti parandamise tööriista parandada Outlook. Sisseehitatud utiliit pole aga mitmekülgne. See võib ka ebaõnnestuda. Seega, kui teie PST-fail pole pärast Scanpsti parandamist ikka veel saadaval, on teie viimane abinõu tõhusam ja usaldusväärsem väline tööriist, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

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

Kommentaarid on suletud.