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 корупция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com