3 kiirmeetodit Outlooki koosoleku jälgimisloendi printimiseks

Pärast koosolekukutse saatmist saate vaadata adressaatide koosoleku vastuseid koosoleku lehel "Jälgimine". Kui soovite printida jälgimisloendi, võite kasutada kolme selles artiklis kirjeldatud meetodit.

Outlook pakub kasutajatele koosolekute jälgimise funktsiooni. Selles loetletakse kõik koosolekul osalejate vastused. Seega, kui loodate kontrollida, kes nõustub teie korraldatud koosolekuga ja kes keeldub, saate lihtsalt juurdepääsu jälgimisloendile. Siiski pole loendi printimiseks otsest funktsiooni. Seetõttu jagame siin 3 võimalust selle kiireks printimiseks.

1. meetod: printige "Jälgimise" ekraanipilt

1. Alustuseks avage koosoleku leht "Jälgimine".
2. Järgmisena looge uus e-kiri.
3. Pärast seda minge vahekaardile "Sisesta" ja klõpsake nuppu "Ekraanipilt".
4. Hiljem valige loendist "Saadaval Windows" ekraanipilt "Jälgimine".
5. Lõpuks minge jaotisse "Fail" > "Prindi", et printida välja "Jälgimise" ekraanipilt.

2. meetod: printige pärast Excelisse kopeerimist

1. Alustuseks minge lehele „Jälgimine”.
2. Seejärel valige loendist "Jälgimine" üks kirje.
3. Järgmisena vajutage kõigi kirjete valimiseks "Ctrl + A".
4. Seejärel vajutage nende kopeerimiseks "Ctrl + C".
5. Seejärel avage uus Exceli fail.
6. Valige lahter "A1" ja vajutage kopeeritud loendi "Jälgimine" kleepimiseks "Ctrl + V".
7. Lõpuks avage Excelis praeguse töölehe printimiseks "Fail" > "Prindi".

3. meetod: printige Outlook VBA-ga

1. Kõigepealt minge Outlooki VBA redaktorisse, viidates jaotisele "Kuidas Outlookis VBA-koodi käivitada".
2. Seejärel lubage „MS Exceli objektiteek” vastavalt jaotisele „Kuidas lisada VBA-s objektiteegi viidet".
3. Pärast seda pange allolev kood moodulisse.

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. Järgmisena lisage see makro kiirpääsu tööriistaribale (QAT).
5. Lõpuks avage koosolek ja vajutage QATis makronuppu.
6. Kohe prinditakse välja koosoleku jälgimisloend, nagu on näidatud järgmisel joonisel.

Hankige tagasi väärtuslikud Outlooki andmed

Kui teil on Outlooki failide korruptsioon, saate kõigepealt kontrollida viimast PST-varundust. Kui varukoopiat pole saadaval, on võimalik kasutada ka sisseehitatud parandustööriista. scanpst, et proovida PST parandamist. Kuid eeldades, et mõlemad ei saa mõju avaldada, on teie viimane abinõu võimsam ja hästi tõestatud väline tööriist, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server korruptsioon ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom