3 szybkie metody drukowania listy śledzenia spotkania w programie Outlook

Po wysłaniu zaproszenia na spotkanie możesz sprawdzić reakcje odbiorców na spotkanie na stronie „Śledzenie” spotkania. Jeśli chcesz wydrukować listę śledzenia, możesz skorzystać z 3 metod przedstawionych w tym artykule.

Outlook zapewnia użytkownikom funkcję „Śledzenia” spotkań. Spowoduje to wyświetlenie wszystkich odpowiedzi od wszystkich uczestników spotkania. Tak więc, jeśli chcesz sprawdzić, kto akceptuje zorganizowane przez Ciebie spotkanie, a kto odrzuca, możesz po prostu uzyskać dostęp do listy śledzenia. Jednak nie ma bezpośredniej funkcji drukowania listy. W związku z tym tutaj udostępnimy Ci 3 sposoby szybkiego wydrukowania.

Metoda 1: Wydrukuj zrzut ekranu „Śledzenie”.

1. Na początek otwórz stronę „Śledzenie” spotkania.
2. Następnie utwórz nowy e-mail.
3. Następnie przejdź do zakładki „Wstaw” i kliknij przycisk „Zrzut ekranu”.
4. Później wybierz zrzut ekranu „Śledzenie” z listy „Dostępne okna”.
5. Na koniec przejdź do „Plik” > „Drukuj”, aby wydrukować zrzut ekranu „Śledzenie”.

Metoda 2: Wydrukuj po skopiowaniu do programu Excel

1. Na początek przejdź na stronę „Śledzenie”.
2. Następnie wybierz jeden wpis z listy „Śledzenie”.
3. Następnie naciśnij „Ctrl + A”, aby zaznaczyć wszystkie wpisy.
4. Następnie naciśnij „Ctrl + C”, aby je skopiować.
5. Następnie otwórz nowy plik programu Excel.
6. Wybierz komórkę „A1” i naciśnij „Ctrl + V”, aby wkleić skopiowaną listę „Śledzenie”.
7. Ostatecznie w programie Excel przejdź do „Plik”> „Drukuj”, aby wydrukować bieżący arkusz.

Metoda 3: Wydrukuj za pomocą programu Outlook VBA

1. Po pierwsze, przejdź do edytora Outlook VBA, odwołując się do „Jak uruchomić kod VBA w swoim Outlooku".
2. Następnie włącz „Bibliotekę obiektów MS Excel” zgodnie z „Jak dodać odwołanie do biblioteki obiektów w języku VBA".
3. Następnie umieść poniższy kod w 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

4. Następnie dodaj to makro do paska narzędzi szybkiego dostępu (QAT).
5. Ostatecznie otwórz spotkanie i naciśnij przycisk makro w QAT.
6. Natychmiast zostanie wydrukowana lista śledzenia spotkania, jak pokazano na poniższym rysunku.

Odzyskaj cenne dane programu Outlook

Jeśli masz problem z uszkodzeniem pliku Outlook, w pierwszej kolejności sprawdź najnowszą kopię zapasową pliku PST. Jeśli nie ma dostępnej kopii zapasowej, możesz również skorzystać z wbudowanego narzędzia do naprawy. skanpst, aby spróbować naprawić plik PST. Jednak zakładając, że oba nie mogą przynieść efektów, ostatnią deską ratunku jest potężniejsze i sprawdzone narzędzie zewnętrzne, takie jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server korupcja i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com