印刷された各Outlook電子メールをExcelワークブックに自動記録する方法

Outlookソリューション 2025 年 9 月 29 日

一部のユーザーは、印刷された電子メールのログをOutlookに自動保存することを望んでいます。ただし、そのような直接的な機能はありません。したがって、この記事では、印刷された各電子メールを特定のExcelワークブックに自動記録する方法を紹介します。

何らかの理由で、印刷時に電子メールの情報を記録する必要がある場合があります。明らかに、Outlookはこれをサポートするネイティブ機能を提供していません。したがって、一般に、このタスクは手動で実行する必要があります。それでも、VBAコードを使用すると、Outlookにこのミッションを簡単に実行させることができます。ここで、そのようなVBAコードの一部と詳細な手順を説明します。

印刷された各電子メールをExcelワークブックに自動記録する

としてtart、Outlookアプリケーションを起動します。
次に、「開発者」タブの「VisualBasic」ボタンをクリックしてVBAエディターにアクセスします。
次に、次の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エディターを終了します。
続いて、pの「オプションのステップ」に従ってost OutlookでVBAコードを実行する方法「、このマクロをリボンまたはクイックアクセスツールバーに追加します。
それ以来、電子メールを印刷するときはいつでも、標準の「印刷」の代わりに新しく追加されたマクロボタンを使用することを忘れないでください。
このようにして、Outlookは印刷されたメールを事前定義されたExcelワークシートに自動的に記録します。

Outlookファイルにアクセスできるようにする

Outlookがクラッシュした後、PSTファイルにアクセスできないことを示すエラーが表示される場合があります。そのときは、落ち着いてから受信トレイ修復ツールを使用して Outlookを修正する。ただし、組み込みのユーティリティは用途が広いわけではありません。それも失敗する可能性があります。したがって、Scanpstの修復後もPSTファイルが利用できない場合、最後の手段は、次のようなより効果的で信頼性の高い外部ツールです。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdf回復と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com