3 rýchle metódy na tlač sledovacieho zoznamu schôdzky programu Outlook

Po odoslaní pozvánky na stretnutie môžete skontrolovať odpovede príjemcov na schôdzu na stránke „Sledovanie“ stretnutia. Ak chcete vytlačiť zoznam sledovania, môžete použiť 3 metódy uvedené v tomto článku.

Outlook poskytuje používateľom funkciu „sledovania“ schôdzí. Zobrazí zoznam všetkých odpovedí od všetkých účastníkov stretnutia. Ak teda dúfate, že skontrolujete, kto prijíma stretnutie, ktoré ste zorganizovali, a kto odmieta, môžete získať prístup k zoznamu sledovania. Neexistuje však priama funkcia na tlač zoznamu. Preto sa tu s vami podelíme o 3 spôsoby, ako si to rýchlo vytlačiť.

Metóda 1: Vytlačte snímku obrazovky „Tracking“.

1. Na začiatok otvorte stránku „Sledovanie“ stretnutia.
2. Ďalej vytvorte nový e-mail.
3. Potom prejdite na kartu „Vložiť“ a kliknite na tlačidlo „Snímka obrazovky“.
4. Neskôr vyberte snímku obrazovky „Sledovanie“ zo zoznamu „Dostupné Windows“.
5. Nakoniec prejdite na „Súbor“ > „Tlačiť“ a vytlačte snímku obrazovky „Sledovanie“.

Metóda 2: Tlač po skopírovaní do Excelu

1. Pre začiatok prejdite na stránku „Sledovanie“.
2. Následne vyberte jednu položku v zozname „Sledovanie“.
3. Potom stlačte „Ctrl + A“ a vyberte všetky položky.
4. Potom ich skopírujte stlačením „Ctrl + C“.
5. Potom otvorte nový súbor programu Excel.
6. Vyberte bunku „A1“ a stlačte „Ctrl + V“ na prilepenie skopírovaného zoznamu „Tracking“.
7. Nakoniec v Exceli prejdite na „Súbor“ > „Tlačiť“ a vytlačte aktuálny pracovný hárok.

Metóda 3: Tlačte pomocou programu Outlook VBA

1. Najprv prejdite do editora Outlook VBA podľa „Ako spustiť kód VBA v programe Outlook".
2. Potom povoľte „Knižnicu objektov MS Excel“ v súlade s „Ako pridať odkaz na knižnicu objektov vo VBA".
3. Potom vložte nižšie 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. Potom pridajte toto makro na panel s nástrojmi Rýchly prístup (QAT).
5. Nakoniec otvorte stretnutie a stlačte tlačidlo makra v QAT.
6. Okamžite sa vytlačí zoznam sledovania stretnutia, ako je znázornené na nasledujúcom obrázku.

Získajte späť cenné údaje z Outlooku

Ak máte problémy s poškodením súborov programu Outlook, v prvom rade môžete skontrolovať najnovšiu zálohu PST. Ak nie je k dispozícii žiadna záloha, je tiež možné použiť vstavaný nástroj na opravu, Scanpst, aby ste sa pokúsili o opravu PST. Napriek tomu, za predpokladu, že obe nemôžu robiť efekty, vašou poslednou možnosťou je výkonnejší a osvedčený externý nástroj, ako napr. DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server korupcie a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S