3 rychlé metody pro tisk sledovacího seznamu schůzky aplikace Outlook

Po odeslání pozvánky na schůzku můžete zkontrolovat odpovědi příjemců na schůzku na stránce Sledování schůzky. Chcete-li vytisknout sledovací seznam, můžete použít 3 metody uvedené v tomto článku.

Outlook poskytuje uživatelům funkci „Sledování“ schůzek. Zobrazí seznam všech odpovědí od všech účastníků schůzky. Pokud tedy doufáte, že zkontrolujete, kdo přijme schůzku, kterou jste uspořádali, a kdo ji odmítne, můžete získat přístup k seznamu sledování. Neexistuje však přímá funkce pro tisk seznamu. Tím vám zde sdílíme 3 způsoby, jak to rychle vytisknout.

Metoda 1: Vytiskněte snímek obrazovky „Sledování“

1. Nejprve otevřete stránku „Sledování“ schůzky.
2. Dále vytvořte nový e-mail.
3. Poté přejděte na kartu „Vložit“ a klikněte na tlačítko „Screenshot“.
4. Později vyberte ze seznamu „Dostupné Windows“ snímek obrazovky „Sledování“.
5. Nakonec přejděte na „Soubor“> „Tisk“ a vytiskněte snímek obrazovky „Sledování“.

Metoda 2: Tisk po zkopírování do aplikace Excel

1. Pro začátek přejděte na stránku „Sledování“.
2. Následně vyberte jednu položku v seznamu „Sledování“.
3. Poté stiskněte „Ctrl + A“ a vyberte všechny položky.
4. Poté je zkopírujte stisknutím „Ctrl + C“.
5. Poté otevřete nový soubor aplikace Excel.
6. Vyberte buňku „A1“ a stisknutím kláves „Ctrl + V“ vložte zkopírovaný seznam „Sledování“.
7. Nakonec v aplikaci Excel přejděte na „Soubor“> „Tisknout“ a vytiskněte aktuální list.

Metoda 3: Tisk pomocí aplikace Outlook VBA

1. Nejprve přejděte do editoru aplikace Outlook VBA odkazem na „Jak spustit kód VBA ve vašem Outlooku".
2. Poté povolte „Knihovnu objektů MS Excel“ v souladu s „Jak přidat odkaz na knihovnu objektů ve VBA".
3. Poté vložte níže uvedený kód do modulu.

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. Dále přidejte toto makro na panel nástrojů Rychlý přístup (QAT).
5. Nakonec otevřete schůzku a stiskněte tlačítko makra v QAT.
6. Najednou se vytiskne sledovací seznam schůzky, jak ukazuje následující obrázek.

Získejte zpět cenná data aplikace Outlook

Pokud máte problémy s poškozením souborů Outlooku, můžete nejprve zkontrolovat nejnovější zálohu PST. Pokud žádná záloha není k dispozici, je také možné použít vestavěný nástroj pro opravu. scanpst, k pokusu o opravu PST. Přesto, za předpokladu, že oba nemohou mít účinky, je vaše poslední možnost silnějším a osvědčeným externím nástrojem, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server korupce a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com