Outlook会議の追跡リストを印刷する3つの簡単な方法

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

会議の招待状を送信した後、会議の「追跡」ページで受信者の会議の応答を確認できます。トラッキングリストを印刷したい場合は、この記事で紹介した3つの方法を使用できます。

Outlookは、ユーザーに会議の「追跡」機能を提供します。すべての会議出席者からのすべての応答が一覧表示されます。したがって、主催した会議を誰が受け入れ、誰が辞退したかを確認したい場合は、追跡リストにアクセスできます。ただし、リストを印刷する直接的な機能はありません。それにより、ここでは、すばやく印刷するための3つの手段を紹介します。

方法1：「追跡」スクリーンショットを印刷する

まず、会議の「追跡」ページを開きます。
次に、新しいメールを作成します。
その後、「挿入」タブに移動し、「スクリーンショット」ボタンをクリックします。
後で、「使用可能なウィンドウ」リストから「追跡」スクリーンショットを選択します。
最後に、「ファイル」>「印刷」に移動して、「追跡」のスクリーンショットを印刷します。

方法2：Excelにコピーした後に印刷する

まず、「追跡」ページにアクセスしてください。
続いて、「追跡」リストからXNUMXつのエントリを選択します。
次に、「Ctrl + A」を押してすべてのエントリを選択します。
その後、「Ctrl + C」を押してコピーします。
次に、新しいExcelファイルを開きます。
「A1」セルを選択し、「Ctrl + V」を押して、コピーした「追跡」リストを貼り付けます。
最終的に、Excelで[ファイル]> [印刷]に移動して、現在のワークシートを印刷します。

方法3：OutlookVBAで印刷する

まず、「OutlookVBAエディターに移動します。OutlookでVBAコードを実行する方法"
次に、「MS Excel オブジェクトライブラリ」を「VBAでオブジェクトライブラリ参照を追加する方法"
その後、以下のコードをモジュールに入れます。

Sub PrintTracking_Meeting()
    Dim objMeeting As Outlook.AppointmentItem
    Dim objAttendees As Outlook.Recipients
    Dim objAttendee As Outlook.Recipient
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
 
    Set objMeeting = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttendees = objMeeting.Recipients
 
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
    objExcelApp.Visible = True
 
    With objExcelWorksheet
         .Cells(1, 1) = "Name"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Attendance"
         .Cells(1, 2).Font.Bold = True
         .Cells(1, 3) = "Response"
         .Cells(1, 3).Font.Bold = True
    End With
 
    For Each objAttendee In objAttendees
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
       Select Case objAttendee.MeetingResponseStatus
              Case olResponseAccepted
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Accepted"
                   End With
              Case olResponseDeclined
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Declined"
                   End With
              Case olResponseNone
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "None"
                   End With
              Case olResponseTentative
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Tentative"
                   End With
              Case olResponseOrganized
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Organized"
                   End With
       End Select
    Next
 
    objExcelWorksheet.Columns("A:C").AutoFit
    objExcelWorksheet.PrintOut
End Sub

Function GetAttendance(lType As Long) As String
    Select Case lType
           Case 0
                GetAttendance = "Meeting Organizer"
           Case 1
                GetAttendance = "Required Attendee"
           Case 2
                GetAttendance = "Optional Attendee"
    End Select
End Function

次に、このマクロをクイックアクセスツールバー（QAT）に追加します。
最終的に、会議を開き、QATのマクロボタンを押します。
次の図に示すように、会議の追跡リストがすぐに印刷されます。

貴重なOutlookデータを取り戻す

Outlook ファイルの破損が発生している場合は、まず最新の PST バックアップを確認してください。バックアップがない場合は、内蔵の修復ツールを使用することもできます。スキャンプスト、PST修復を試行します。それでも、両方が効果を発揮できないと仮定すると、最後の手段は、次のような、より強力で実績のある外部ツールです。 DataNumen Outlook Repair.

著者紹介：

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