Outlook電子メールの通常またはインターネットヘッダーのみを印刷する2つの簡単な方法

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

Outlookメールの通常ヘッダーまたはインターネットヘッダーのみを印刷したい場合があります。この記事では、そのための簡単で迅速な2つの方法をご紹介します。

前回の記事から–「ヘッダーとユーザー名なしでOutlook電子メールを印刷するための2つのヒント「、メールのメッセージ本文のみを印刷する簡単な方法を学ぶことができます。ただし、電子メールの通常のヘッダーまたはインターネットヘッダー、つまり電子メールの送信者、受信者、およびその他の情報を印刷したい場合があります。したがって、以下では、それを取得するための2つの方法を説明します。

方法1：手動で印刷する

インターネットヘッダーを印刷する

まず、メールをダブルクリックしてメッセージウィンドウで開きます。
次に、「ファイル」メニューに移動します。
「情報」タブで、「プロパティ」ボタンをクリックします。
「プロパティ」ウィンドウで、「インターネットヘッダー」ボックスをクリックします。
次に、「Ctrl + A」を押してすべてを選択し、「Ctrl + C」を押してヘッダー全体をコピーします。
後で、メールの新着メールを作成し、「Ctrl + V」を押してヘッダーを本文に貼り付けます。
最後に、「ファイル」>「印刷」に移動して、新着メールを印刷します。

通常のヘッダーを印刷する

まず、ソースメールを選択するか開きます。
次に、「転送」ボタンをクリックします。
次のスクリーンショットのように、ポップアップ転送メールで、元のメールのメッセージ本文を選択して削除し、ヘッダーのみを残します。
最終的には、通常どおり現在の転送メールを印刷します。

方法2：VBAで印刷する

インターネットヘッダーを印刷する

まず、目的のメールを開くか選択してください。
次に、「Alt + F11」を使用してOutlookVBAエディターを起動します。
次に、次のコードをモジュールに入れます。

Sub PrintFullHeaders()
    Dim objMail As Outlook.MailItem
    Dim objPropertyAccessor As Outlook.PropertyAccessor
    Dim strHeader As String
    Dim objTempMail As Outlook.MailItem
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Get full headers
    Set objPropertyAccessor = objMail.PropertyAccessor
    strHeader = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E")
 
    'Print headers in temp mail
    Set objTempMail = Outlook.Application.CreateItem(olMailItem)
    objTempMail.HTMLBody = "<HTML><BODY>" & strHeader & "</BODY></HTML>"
    objTempMail.PrintOut
End Sub

最後に、ツールバーの「実行」アイコンをクリックします。
すぐに、電子メールのインターネットヘッダーが印刷されます。

通常のヘッダーを印刷する

引き続きVBAエディターで、以下のコードをモジュールにコピーします。

Sub PrintShortHeaders()
    Dim objMail As Outlook.MailItem
    Dim objTempMail As Outlook.MailItem
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objTempMail = objMail.Copy
    'Remove the body, leave headers only
    objTempMail.Body = ""
    objTempMail.PrintOut
End Sub

その後、このマクロを実行します。
すぐに、電子メールの通常のヘッダーが印刷されます。

不明なメールに注意してください

ヘッダーには、IPアドレスを含むメールの多くの情報が含まれています。メールが不審かどうかを判断するには、ヘッダーを確認する必要があります。正直なところ、ほとんどがスパムであり、悪意のあるマクロが含まれている場合もあるため、未知の送信者からのメールを信用しないことをお勧めします。これらのメールは簡単にOutlookファイルを攻撃する可能性があります。Outlookファイルが破損している場合は、修復を試みる必要があります。 Outlookの修復。次のような専門的で堅牢なツールに頼らない限り、それはかなり節度があります DataNumen Outlook Repair.

著者紹介：

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