So protokollieren Sie automatisch jede gedruckte Outlook-E-Mail in einer Excel-Arbeitsmappe

Einige Benutzer hoffen, Protokolle gedruckter E-Mails automatisch in ihrem Outlook speichern zu können. Es ist jedoch keine solche direkte Funktion verfügbar. In diesem Artikel wird daher eine Möglichkeit vorgestellt, jede gedruckte E-Mail in einer bestimmten Excel-Arbeitsmappe automatisch zu protokollieren.

Aus bestimmten Gründen müssen Sie möglicherweise die Informationen einer E-Mail aufzeichnen, wenn Sie sie drucken. Offensichtlich bietet Outlook keine native Funktion, die dies unterstützt. Daher müssen Sie diese Aufgabe im Allgemeinen manuell ausführen. Mit Hilfe von VBA-Code können Sie Outlook diese Mission dennoch problemlos ausführen lassen. Jetzt werden wir hier einen solchen Teil des VBA-Codes und detaillierte Schritte für Sie aufdecken.

Automatische Protokollierung jeder gedruckten E-Mail in der Excel-Arbeitsmappe

1. Für astart Starten Sie die Outlook-Anwendung.
2. Greifen Sie dann auf den VBA-Editor zu, indem Sie auf der Registerkarte "Entwickler" auf die Schaltfläche "Visual Basic" klicken.
3. Fügen Sie als Nächstes den folgenden VBA-Code in ein nicht verwendetes Modul ein.

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

4. Beenden Sie danach den VBA-Editor.
5. Anschließend gemäß dem „optionalen Schritt“ in post "So führen Sie VBA-Code in Outlook ausFügen Sie dieses Makro der Multifunktionsleiste oder der Symbolleiste für den Schnellzugriff hinzu.
6. Denken Sie seitdem jedes Mal, wenn Sie eine E-Mail drucken möchten, daran, die neu hinzugefügte Makrotaste anstelle der Standardschaltfläche „Drucken“ zu verwenden.
7. Auf diese Weise protokolliert Outlook die gedruckten E-Mails automatisch im vordefinierten Excel-Arbeitsblatt.

Halten Sie Outlook-Dateien zugänglich

Nach dem Absturz von Outlook wird manchmal die Fehlermeldung angezeigt, dass auf die PST-Datei nicht zugegriffen werden kann. Zu diesem Zeitpunkt sollten Sie sich beruhigen und dann das Posteingang-Reparatur-Tool verwenden, um Outlook reparieren. Das eingebaute Dienstprogramm ist jedoch nicht vielseitig. Es kann auch scheitern. Wenn Ihre PST-Datei nach der Scanpst-Reparatur immer noch nicht verfügbar ist, ist Ihr letzter Ausweg ein effektiveres und zuverlässigeres externes Tool, z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich MDF-Wiederherstellung und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX