如何在 Excel 工作簿中自动记录每封打印的 Outlook 电子邮件

展望解决方案 2025 年 9 月 29 日
立即分享：

一些用户希望在他们的 Outlook 中自动保存打印电子邮件的日志。 但是，没有这样的直接功能可用。 因此，在本文中，我们将介绍一种在特定 Excel 工作簿中自动记录每封打印电子邮件的方法。

由于某些原因，您可能需要在打印电子邮件时记录电子邮件的信息。 显然，Outlook 不提供支持此功能的本机功能。 因此，一般来说，您必须手动完成此任务。 尽管如此，借助 VBA 代码，您仍然可以让您的 Outlook 轻松完成这项任务。 下面，我们就为大家揭开这样一段VBA代码和详细步骤。

在 Excel 工作簿中自动记录每封打印的电子邮件

  1. 对于作为tart、启动 Outlook 应用程序。
  2. 然后，通过单击“开发人员”选项卡上的“Visual Basic”按钮访问 VBA 编辑器。
  3. 接下来，将以下 VBA 代码放入未使用的模块中。
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 代码 - 在 Excel 工作簿中自动记录每封打印的电子邮件

  1. 之后，退出 VBA 编辑器。
  2. 随后，根据 p 中的“可选步骤”ost “如何在 Outlook 中运行 VBA 代码“，将此宏添加到功能区或快速访问工具栏。将宏按钮添加到功能区
  3. 从那以后，每次当你想打印一封电子邮件时，记得使用新添加的宏按钮而不是标准的“打印”。打印电子邮件
  4. 这样，Outlook 将自动在预定义的 Excel 工作表中记录打印的邮件。Excel 中的日志

保持 Outlook 文件可访问

有时，在 Outlook 崩溃后，您可能会收到 PST 文件无法访问的错误提示。 到时候你就该静下心来，利用收件箱修复工具 修复Outlook. 但是，内置实用程序并不通用。 它也可能失败。 因此，如果您的 PST 文件在 Scanpst 修复后仍然不可用，您最后的选择是更有效和可靠的外部工具，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 中密度纤维板恢复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。