3 brze metode za štampanje liste praćenja vašeg Outlook sastanka

Nakon što pošaljete pozivnicu za sastanak, možete provjeriti odgovore primatelja na sastanak na stranici „Praćenje“ sastanka. Ako želite da odštampate listu praćenja, možete koristiti 3 metode predstavljene u ovom članku.

Outlook korisnicima pruža funkciju „praćenja“ za sastanke. Na njemu će biti navedeni svi odgovori svih učesnika sastanka. Stoga, ako se nadate da ćete provjeriti ko prihvaća sastanak koji ste organizirali, a ko odbija, možete jednostavno dobiti pristup listi za praćenje. Međutim, ne postoji direktna funkcija za ispis liste. Stoga ćemo vam ovdje podijeliti 3 načina da ga brzo odštampate.

Metod 1: Odštampajte snimak ekrana „Praćenje“.

1. Za početak otvorite stranicu „Praćenje“ sastanka.
2. Zatim kreirajte novu e-poštu.
3. Nakon toga, prijeđite na karticu "Insert" i kliknite na dugme "Screenshot".
4. Kasnije odaberite snimak ekrana „Praćenje“ sa liste „Dostupni Windows“.
5. Na kraju, idite na “File” > “Print” da odštampate snimak ekrana “Tracking”.

Metod 2: Štampanje nakon kopiranja u Excel

1. Za početak, pristupite stranici "Praćenje".
2. Zatim izaberite jedan unos na listi „Praćenje“.
3. Zatim pritisnite “Ctrl + A” da odaberete sve unose.
4. Nakon toga pritisnite “Ctrl + C” da ih kopirate.
5. Zatim otvorite novu Excel datoteku.
6. Odaberite ćeliju "A1" i pritisnite "Ctrl + V" da zalijepite kopiranu listu "Praćenje".
7. Na kraju, u Excelu, idite na “Datoteka” > “Odštampaj” da biste odštampali trenutni radni list.

Metod 3: Štampanje pomoću Outlook VBA

1. Prvo idite na Outlook VBA editor pozivajući se na “Kako pokrenuti VBA kod u vašem Outlooku".
2. Zatim, omogućite "MS Excel Object Library" u skladu sa "Kako dodati referencu biblioteke objekata u VBA".
3. Nakon toga, stavite kod ispod u modul.

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. Zatim dodajte ovaj makro na alatnu traku za brzi pristup (QAT).
5. Na kraju, otvorite sastanak i pritisnite dugme za makro u QAT-u.
6. Odjednom će se ispisati lista praćenja sastanka, kao što je prikazano na sljedećoj slici.

Vratite vrijedne Outlook podatke

Ako imate problema s oštećenjem Outlook datoteka, prvo možete provjeriti najnoviju PST sigurnosnu kopiju. Ako nema dostupne sigurnosne kopije, postoji i opcija korištenja ugrađenog alata za popravak, scanpst, za pokušaj PST popravke. Ipak, pod pretpostavkom da oboje ne mogu postići efekte, vaše posljednje sredstvo je moćnije i dobro dokazano vanjsko sredstvo, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server korupcija i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com