3 Quick Methods to Print the Tracking List of Your Outlook Meeting

After sending a meeting invitation, you can check the recipients’ meeting responses in “Tracking” page of the meeting. If you would like to print the Tracking list, you can use the 3 methods introduced in this article.

Outlook provides users with “Tracking” feature for the meetings. It will list out all the responses from all meeting attendees. Thus, if you hope to check who accept the meeting you organized and who decline, you can just get access to Tracking list. However, there is not a direct function to print the list. Thereby, here we will share you 3 means to quickly print it.

Tracking in Meeting

Method 1: Print “Tracking” Screenshot

  1. To begin with, open the meeting “Tracking” page.
  2. Next, create a new email.
  3. After that, shift to “Insert” tab and click the “Screenshot” button.
  4. Later, choose the “Tracking” screenshot from “Available Windows” list.Insert "Tracking" Screenshot into Email
  5. Finally, go to “File” > “Print” to print out the screenshot of “Tracking”.

Method 2: Print after Copying to Excel

  1. For a start, access “Tracking” page.
  2. Subsequently, select one entry in the “Tracking” list.
  3. Next, press “Ctrl + A” to select all entries.
  4. Afterwards, press “Ctrl + C” to copy them.Copy All Entries in Tracking
  5. Then, open a new Excel file.
  6. Select “A1” cell and press “Ctrl + V” to paste the copied “Tracking” list.Paste into Excel
  7. Eventually, in Excel, go to “File” > “Print” to print the current worksheet.

Method 3: Print with Outlook VBA

  1. First off, go to Outlook VBA editor by referring to “How to Run VBA Code in Your Outlook“.
  2. Then, enable “MS Excel Object Library” with accordance to “How to Add an Object Library Reference in VBA“.
  3. After that, put the code below into a module.
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

VBA Code - Print Tracking List of an Outlook Meeting

  1. Next, add this macro to Quick Access Toolbar (QAT).
  2. Ultimately, open a meeting and hit the macro button in QAT.
  3. At once, the tracking list of the meeting will be printed out, as shown in the following figure.Printed Tracking List

Get back Valuable Outlook Data

If you’re experiencing Outlook file corruption, in the first place, you can check the most recent PST backup. If there isn’t any available backup, it is also an option to make use of the inbuilt repair tool, Scanpst, to attempt PST repair. Yet, assuming that both can’t make effects, your last resort is a more powerful and well-proven external tool, such as DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server corruption and outlook repair software products. For more information visit www.datanumen.com

Leave a Reply

Your email address will not be published. Required fields are marked *