Hoe u automatisch elke afgedrukte Outlook-e-mail in Excel-werkmap registreert

Outlook-oplossingen 29 september 2025

Sommige gebruikers hopen automatisch logboeken van afgedrukte e-mails in hun Outlook op te slaan. Er is echter niet zo'n directe functie beschikbaar. Daarom introduceren we in dit artikel een manier om elke afgedrukte e-mail automatisch in een specifieke Excel-werkmap te loggen.

Om sommige redenen kan het zijn dat u de informatie van een e-mail moet noteren wanneer u deze afdrukt. Uiteraard biedt Outlook geen native functie die dit ondersteunt. Over het algemeen moet u deze taak dus handmatig uitvoeren. Desalniettemin kunt u met behulp van VBA-code uw Outlook deze missie nog steeds gemakkelijk laten uitvoeren. Nu zullen we hier zo'n stukje VBA-code en gedetailleerde stappen voor u ontdekken.

Automatisch loggen van elke afgedrukte e-mail in Excel-werkmap

  1. Voor alstart, start de Outlook-applicatie.
  2. Open vervolgens de VBA-editor door op de knop "Visual Basic" op het tabblad "Developer" te klikken.
  3. Plaats vervolgens de volgende VBA-code in een ongebruikte module.
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-code - Log automatisch elke afgedrukte e-mail in Excel-werkmap

  1. Sluit daarna de VBA-editor.
  2. Vervolgens, volgens de "Optionele stap" in de post "Hoe u VBA-code in uw Outlook uitvoert“, Voeg deze macro toe aan het lint of de werkbalk Snelle toegang.Macro-knop toevoegen aan lint
  3. Sindsdien moet u elke keer dat u een e-mail wilt afdrukken, de nieuw toegevoegde macroknop gebruiken in plaats van de standaard "Afdrukken".E-mail afdrukken
  4. Op deze manier logt Outlook automatisch de afgedrukte e-mail in het vooraf gedefinieerde Excel-werkblad.Logt in Excel

Houd Outlook-bestand toegankelijk

Soms, nadat Outlook is gecrasht, kunt u de foutmelding krijgen dat het PST-bestand niet toegankelijk is. Op dat moment moet u kalmeren en vervolgens de inbox-reparatietool gebruiken om Outlook repareren. Het ingebouwde hulpprogramma is echter niet veelzijdig. Het kan ook mislukken. Dus als uw PST-bestand nog steeds niet beschikbaar is na Scanpst-reparatie, is uw laatste redmiddel een effectievere en betrouwbaardere externe tool, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf herstel en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.