3 Швидкі методи друку списку відстеження вашої зустрічі в Outlook

Відправивши запрошення на зустріч, ви можете перевірити відповіді на зустріч одержувачів на сторінці “Відстеження” наради. Якщо ви хочете надрукувати список відстеження, ви можете скористатися 3 способами, представленими в цій статті.

Outlook надає користувачам функцію “Відстеження” для зустрічей. У ньому будуть перелічені всі відповіді всіх учасників зборів. Таким чином, якщо ви сподіваєтесь перевірити, хто приймає організовану вами зустріч, а хто відмовляється, ви можете просто отримати доступ до Списку відстеження. Однак не існує прямої функції для друку списку. Таким чином, тут ми поділимося вами 3 способами швидко роздрукувати його.

Спосіб 1: Друк знімка екрана “Відстеження”

1. Для початку відкрийте сторінку “Відстеження” наради.
2. Далі створіть новий електронний лист.
3. Після цього перейдіть на вкладку «Вставка» та натисніть кнопку «Знімок екрана».
4. Пізніше виберіть скріншот «Відстеження» зі списку «Доступна Windows».
5. Нарешті, перейдіть до «Файл»> «Друк», щоб роздрукувати знімок екрана «Відстеження».

Спосіб 2: Друк після копіювання в Excel

1. Для початку перейдіть на сторінку «Відстеження».
2. Згодом виберіть один запис у списку “Відстеження”.
3. Далі натисніть “Ctrl + A”, щоб вибрати всі записи.
4. Потім натисніть «Ctrl + C», щоб скопіювати їх.
5. Потім відкрийте новий файл Excel.
6. Виділіть комірку “A1” і натисніть “Ctrl + V”, щоб вставити скопійований список “Відстеження”.
7. Зрештою, у програмі Excel перейдіть до «Файл»> «Друк», щоб надрукувати поточний аркуш.

Спосіб 3: Друк за допомогою Outlook VBA

1. Спочатку перейдіть до редактора Outlook VBA, звернувшись до розділу «Як запустити код VBA у своєму Outlook».
2. Потім увімкніть «Бібліотеку об’єктів MS Excel» відповідно до «Як додати посилання на бібліотеку об'єктів у VBA».
3. Після цього вкладіть код нижче в модуль.

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

4. Потім додайте цей макрос на панель швидкого доступу (QAT).
5. Зрештою, відкрийте зустріч і натисніть кнопку макросу в QAT.
6. Одразу роздрукується список відстеження зустрічі, як показано на наступному малюнку.

Поверніть цінні дані Outlook

Якщо у вас виникли проблеми з файлами Outlook, перш за все, ви можете перевірити останню резервну копію PST. Якщо резервної копії немає, ви також можете скористатися вбудованим інструментом відновлення. scanpst, щоб спробувати відновити PST. Однак, припускаючи, що обидва не можуть дати ефекту, ваша остання інстанція є більш потужним і добре перевіреним зовнішнім інструментом, таким як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі SQL Server корупція та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com